program aaa; { Показана работа непрерывного и дискретного фильтров
в замкнутой системе. Необходимо сравнить работу фильтров в системе
и выбрать их параметры,так чтобы переходные процессы имели большее
быстродействие и небольшое перерегулирование}
uses Graph,Crt;
var At,B,C:array[0..1300] of real;
procedure GRAFIK;
var Gd,Gm,XX,YY,MX,MY,I:integer;
var XX1,YY1:real;
var s:string[3];
begin Gd:=detect;
InitGraph(Gd,Gm,'C:\Tp.7_1\Tp\Bgi');
SetBkColor(7);
SetColor(1);
Line(40,250,495,250);
Line(40,250,40,20);
XX:=40; YY:=250; MX:=40; MY:=100;
for I:=1 to 23 do
begin Line(XX,250,XX,247);
XX:=XX+20; end;
for I:=1 to 12 do
begin Line(40,YY,43,YY);
YY:=YY-20; end;
OutTextXY(2,20,'Gamma');
SetColor(5);
OutTextXY(50,20,'n');
SetColor(1);
OutTextXY(500,250,'t,c');
XX:=30; YY:=250; XX1:=0;
for I:=1 to 12 do
begin Str(XX1:5:2,s); OutTextXY(XX,YY+3,s);
XX:=XX+40; XX1:=XX1+1; end;
YY1:=0; YY:=244;
for I:=1 to 11 do
begin Str(YY1:5:2,s); OutTextXY(14,YY,s);
YY:=YY-20; YY1:=YY1+0.2; end;
for I:=0 to 1200 do
begin SetColor(1);
Circle(40+Round(At[I]*MX),250-Round(B[I]*MY),1);
SetColor(5);
Circle(40+Round(At[I]*MX),250-Round(C[I]*MY),1); end;
readln; CloseGraph;
end;
procedure DFiltr;
var t,dt,tk,Tkb,Tkw,Tauf,G,dG,Gamma,Tauo,K,Ko,Kfd,a,a1,bo,b1,
n0,n,dnd,dn,dnfdi,dnfdi_1,dni,npi,dni_1,dnpi:real;
var I,It,M:integer;
label 1;
t:=t+dt; inc(M); inc(i);
At[i]:=t; B[i]:=Gamma; C[i]:=n;
if M=100 then begin writeln(t:5:3,' ',n:5:3,' ',Gamma:5:3); M:=0; end;
if t<=tk then goto 1;
readln; readln;
end;
procedure NFiltr;
var a,t,tk,dt,K,Ko,Tp,Tauf,Tauo,n,n0,nd,np,dn,nf,dnf,G,dG,Gamma:real;
var I,M:integer;
label 1;
begin
n0:=1; t:=0; dt:=0.01; tk:=12; n:=0; nf:=0;
Tauo:=1; a:=1; Ko:=1; Gamma:=0;
M:=0; I:=0;
write('Введите коэффициент при производной Tp='); read(Tp); { Tp:=1; }
write('Введите постоянную времени фильтра Tauf='); read(Tauf);{ Tauf:=0.5;}
write('Введите коэффициент усиления K='); read(K); { K:=1; }
At[0]:=0; B[0]:=0; C[0]:=0;
writeln(' t n Gamma');
writeln(t:5:3,' ',nd:5:3,' ',Gamma:5:3);
Неправда, он усердно тренеруется, чтобы не забыть Да и вообще много ли изменилось с тех 80ых в Паскале? ...хотя мб алгоритмы есть немного усовершенственней...
Изменилась как минимум архитектура программы, очень сильно бросается в глаза "goto" это уже давно не рекамендуют использовать, во первых это делает код труднотлаживаемым во вторых код выглядит некрасиво и не читабелно Плюс эта штука написан на турбапаскале и работает не совсем корректно тк написанна под дос и требует инициализации видио драйвера, которая почему то не реализована у дедушки, а так работает вполне приемлемо, только графики нестроит а цифирки какето принимает чета выдает Вообщем надо разбираться.
ЗЫ Эта то что нам надо написать(те пример того что нам надо написать) или что?
Finch вы на лабе, в следующую среду, вроде, с дедушкой будете эту программу разбирать, можешь ему задать любые вопросы по алгоритму
В прикрепленном файле модель в Симулинке для курсовой, делали опять же в Матлабе 6ом, на 7ом, дома, у меня не открылось Интересно, как мы будем всё это сдавать, если такая несовместимость версий...
P.S.
Ну ничего...
Я думаю, что через год или два наша кафедра подтянется в плане образовательной части, когда всё закупленное и закупаемое оборудование пустят в дело... Тогда все учащиеся вместо того чтобы сидеть и строить какие-то непонятные модели в матлабе смогут на конкретных системах(сервосистемах - двигатели и датчики) разобраться в автоматизации, а так же научаться программировать микроконтроллеры. Но это пока не доступно...
Finch лаба у вас где-то в 20ых числах мая. На ней была была модель постами выше, описывающая курсовой проект, и программа, которая вам очень понравилась.
PS Пока не забыл, курсовая должна состоять из 2ух частей, одна написанная на matlabe, другая - на любом языке программирования (pascal, delphi, c++). Защита курсовых состоится 31.05.06 и 06.06.06. Про время и место сего таинства пока умалчивается.
Следующая тема Предыдущая тема
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете вкладывать файлы Вы можете скачивать файлы
Да и вообще много ли изменилось с тех 80ых в Паскале? 
...хотя мб алгоритмы есть немного усовершенственней...
Интересно, как мы будем всё это сдавать, если такая несовместимость версий...
