Что значит построить фигуру Лиссажу конечно-разностным методом? Опции

[Igor_Fist]

Всем привет! В паскале я чайник Вот дали задание,помогите пожалуйста:

Построить фигуру Лиссажу путем генерации сигналов y=sinx и y=cosx по ортогональным осям. Вычисления производить путем поперменной генерации сигналов конечно-разностным методом в интервале изменения аргумента 0...2pi. Обеспечить ошибку относительно системных функций e=10^(-5).Вывод информации графический с текстовым контролем ошибок.

Заранее спасибо!

[TarasBer]

Это значит, что не надо дважды одну тему создавать.

Фигура лиссажу

[Igor_Fist]

сорри,но я создал потому что всё равно не понял((конечно-разностный метод он используется для решения диф.кравнений,а для чего тут он?здесь какие диф.уравнения?и можт здесь конечно-разностная интерполяция используется?

[Lapp]

сорри,но я создал потому что всё равно не понял((конечно-разностный метод он используется для решения диф.кравнений,а для чего тут он?здесь какие диф.уравнения?и можт здесь конечно-разностная интерполяция используется?

Игорь, этого тут никто не понял. И именно это тебе пытались сказать. Может, ты не совсем точно привел условие? Перепиши его полностью и без каких-либо изменений.

Темы объединяю.

Добавлено через 4 мин.
Перечитав изначальную формулировку условия, я подумал, что тебе нужно было sin и cos рассчитывать конечно-разностным методом (а не использовать библиотечные). То есть получить их из решения некоторого диффура (с точностью 10^-5). Какого именно - вопрос пока открыт.

[Igor_Fist]

Задание привел точно как дали.вот и сам то думаю для чего он тут конечно-разностный метод.

Код

Program lissagu;
uses graph,crt;

var driver,mode,i:integer;
    x0,y0,kx,ky:real;
    h,w1,w2:real;
    n:integer;

function XX(x:real):integer;
begin
     XX:=round((x-x0)*kx);
end;

function YY(y:real):integer;
begin
     YY:=getmaxy-round((y-y0)*ky);
end;

begin

     driver:=detect;
     initgraph(driver,mode, ' ');
     x0:=-1.2;
     y0:=-1.2;
     kx:=getmaxx/2.4;
     ky:=getmaxy/2.4;

     n:=100;
     h:=2*pi/n;
     w1:=2*pi/2;
     w2:=2*pi/6;
     moveto(XX(0),YY(1));
     for i:=1 to n do
         lineto(XX(sin(w1*i*h)),YY(cos(w2*i*h)));
    writeln('figura lissaju');
     readln;
end.

есть программа без использования этого метода и без обеспечения ошибки относительно системных функций,и вот как тут это все применить



Сообщение отредактировано: Igor_Fist - 15.12.2010 0:25