Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ Синусоиды

Автор: compiler 21.02.2007 20:43

как построить 3 синусоиды с заданным интервалом?
на форуме не нашел...

Заранее бладарен.

Автор: klem4 21.02.2007 21:08

Поиск -> Построение графика ?

Автор: compiler 21.02.2007 21:12

Цитата(klem4 @ 21.02.2007 16:08) *

Поиск -> Построение граффика ?

я искал "синусоида"...
сейчас буду искать "Построение граффика"...

Автор: klem4 21.02.2007 21:15

http://forum.pascal.net.ru/index.php?showtopic=2729&hl=%EF%EE%F1%F2%F0%EE%E5%ED%E8%E5+%E3%F0%E0%F4%E8%EA%E0

Автор: compiler 21.02.2007 21:20

Цитата(klem4 @ 21.02.2007 16:15) *

http://forum.pascal.net.ru/index.php?showtopic=2729&hl=%EF%EE%F1%F2%F0%EE%E5%ED%E8%E5+%E3%F0%E0%F4%E8%EA%E0

спосибо я уже нашел
вопрос всё таки как построить синусоиду с заданым периодом
есть формула y = a + bsin(x + c) куда подставить период...
ой пошла математика...

Автор: TarasBer 21.02.2007 21:44

Цитата(compiler @ 21.02.2007 17:20) *

спосибо я уже нашел
вопрос всё таки как построить синусоиду с заданым периодом
есть формула y = a + bsin(x + c) куда подставить период...
ой пошла математика...

a+bsin((2Pi/w)*x+c). w-период

Автор: compiler 21.02.2007 21:46

Цитата(TarasBer @ 21.02.2007 16:44) *

a+bsin((2Pi/w)*x+c). w-период

благодарю
приступим к реализации..

Добавлено через 9 мин.
Цитата(compiler @ 21.02.2007 16:46) *

приступим к реализации..

не работает
{$N+}
{$E+}
Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;
w:real;
x,y:real;{extended;}
i:integer;
Begin
w:=23.6884;
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do
begin
{ readln(x);}
y:=(sin(2*3/w)*x); if x<>2 then begin y:=abs(x/(x-2))-1; y:=(sin(2*3/w)*x);
{ writeln(y:1:8);}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.

при этом не FP не TP не компилируют...

Добавлено через 10 мин.
секундочку, кажется я понимаю ошибку...

Добавлено через 4 мин.
некоторые ошибки в коде уже устранены, но...

Добавлено через 3 мин.
помоему мои мозги не работают...

Добавлено через 3 мин.
где ошибка?..

Автор: volvo 21.02.2007 22:19

Цитата
приступим к реализации..
Только сначала ВНИМАТЕЛЬНО прочитаем правила раздела.

А пока не прочтешь - закрыто...