Где ошИбка, функция plot в proc

@bazJaz · Регистрация: 11.07.2014

Author24 — интернет-сервис помощи студентам

Matlab M

restart;
with(plots): 
f := proc (steep, number)::integer; 
  local k, first, second, h;
  k := number/steep; 
  first := 0; 
  second := (1/2)*Pi;
  h := steep; 
  plot([sin(x), sin(x+(1/2)*Pi)], x = 0 .. number); 
  numb := 0; 
  for i to k do 
    val := fsolve(sin(x) = sin(x+(1/2)*Pi), x = first .. second); 
      if 0 < val then 
        numb := numb+1 
      end if;
  end do; 
  print("Количество корней - ", numb);
end proc;

не рисует график

@VSI · 09.12.2014, 19:47

Сообщение от bazJaz

не рисует график

А так рисует...
> restart;
with(plots):
f := proc (steep, number)::integer;
local k, first, second, h, numb, i, val;
k := number/steep;
first := 0;
second := (1/2)*Pi;
h := steep;
numb := 0;
for i to k do
val := fsolve(sin(x) = sin(x+(1/2)*Pi), x = first .. second);
if 0 < val then numb := numb+1 end if;
end do;
print("Number roots - ", numb);
plot([sin(x), sin(x+(1/2)*Pi)], x = 0 .. number);
end proc:
> f(0.01,5);

@bazJaz · 09.12.2014, 20:58 **[ТС]**

Сообщение от VSI

А так рисует...

так рисует) спасибо большое!

@VSI Модератор $Эксперт по математике/физике$ 5277 / 4059 / 1389 Регистрация: 30.07.2012 Сообщений: 12,429
	09.12.2014, 19:47	2
	Сообщение было отмечено bazJaz как решение Решение Сообщение от bazJaz не рисует график А так рисует... > restart; with(plots): f := proc (steep, number)::integer; local k, first, second, h, numb, i, val; k := number/steep; first := 0; second := (1/2)Pi; h := steep; numb := 0; for i to k do val := fsolve(sin(x) = sin(x+(1/2)Pi), x = first .. second); if 0 < val then numb := numb+1 end if; end do; print("Number roots - ", numb); plot([sin(x), sin(x+(1/2)*Pi)], x = 0 .. number); end proc: > f(0.01,5); 1

@bazJaz 36 / 33 / 21 Регистрация: 11.07.2014 Сообщений: 390
	09.12.2014, 20:58 [ТС]	3
	Сообщение от VSI А так рисует... так рисует) спасибо большое! 0

Где ошИбка, функция plot в proc

Решение