|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2008, 20:33 | #1 |
Пока ещё
Форумчанин
Регистрация: 26.02.2008
Сообщений: 116
|
Затухающае колебание пружина
Затухающие колебание пружины - сори за ошибки
Помогите исправить этот код Код:
Я мегапрограммер потерявший память.
Если кому помог, поставте '+' я буду благодарен Последний раз редактировалось gred; 17.05.2008 в 22:03. Причина: исправил |
17.05.2008, 21:59 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Первое, что бросилось в глаза.
var X,Y, step: Extended; gd,gm:integer; begin InitGraph(gd,gm,'d\tp\bgi');//создаем путь к файлу(у вас свой) SetColor(13); MoveTo(cx, cy); step := Xmax / (640-cx); X := step; while X <= Xmax do begin { Y = A*sin(wt + fi); w = 2*Pi/T = 2*Pi*F; F = 1/T где: A - амплитуда; w - круговая частота; T - период; F - частота; wt + fi - фаза колебаний; fi - фаза в начальный момент времени (t=0) } Y := A*Sin(2*Pi*F*X); LineTo(CoordX(X), CoordY(Y)); X := X + step end; SetColor(15); Line(cx,cy, 640,cy); Line(cx,0, cx,480); repeat until KeyPressed; CloseGraph end. Теги кода не поставил, потому что с ними не работают теги шрифта. |
17.05.2008, 22:10 | #3 |
Пока ещё
Форумчанин
Регистрация: 26.02.2008
Сообщений: 116
|
Код:
Я мегапрограммер потерявший память.
Если кому помог, поставте '+' я буду благодарен |
17.05.2008, 22:34 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Попробуйте вместо Trunc(X * sx) + cx;
написать round(X * sx) + cx; |
17.05.2008, 23:18 | #5 |
Пользователь
Регистрация: 03.04.2008
Сообщений: 11
|
А какая необходимость X объявлять как Extended?
|
19.05.2008, 16:44 | #6 |
Пока ещё
Форумчанин
Регистрация: 26.02.2008
Сообщений: 116
|
А какой тип надо? если не Extended
Я мегапрограммер потерявший память.
Если кому помог, поставте '+' я буду благодарен |
19.05.2008, 16:58 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Естественно Integer, т.к. в графике работают только целые числа, поскольку часть пиксела нельзя изобразить.
|