Форум программистов, компьютерный форум, киберфорум
Delphi
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 8

Программа для расчета и постройки АЧХ/ФЧХ

04.12.2013, 00:41. Показов 2731. Ответов 2
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Доброе время суток!
делаю задание, учусь на первом курсе. Вобщем задание заключается в создании программы для рассчета фазовых звеньев первого и второго порядка. но почему то построить это всё - не получается Пытаюсь всё сделать в Tchart
Помогите пожалуйста, на быдло код внимание не обращайте

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383

unit takoe_chtoto;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, jpeg, ExtCtrls, Menus, TeeProcs, TeEngine,
  Chart, Series;
 
type
  TGeneralForm = class(TForm)
    edtR: TEdit;
    Resist: TLabel;
    lblCapacityValue1: TLabel;
    edtCapacity: TEdit;
    Frequency: TLabel;
    edtFreq: TEdit;
    lblCapacityValue3: TLabel;
    lblResist2: TLabel;
    lblResist3: TLabel;
    edtResist2: TEdit;
    edtResist3: TEdit;
    edtCapacityValue3: TEdit;
    lblVhodnieParametri: TLabel;
    lblDiagrama: TLabel;
    btnExit: TButton;
    rbPhaseOne: TRadioButton;
    rbPhaseTwo: TRadioButton;
    img1: TImage;
    img2: TImage;
    pnl1: TPanel;
    btnOpen: TButton;
    btnSave: TButton;
    btnSaveAs: TButton;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    Memo1: TMemo;
    btnFont: TButton;
    dlgFont1: TFontDialog;
    cht1: TChart;
    fstlnsrsSeries1: TFastLineSeries;
    btnACH: TButton;
    btnFCH: TButton;
    edtFmax: TEdit;
    lblFmax: TLabel;
    edtNach: TEdit;
    lblNach: TLabel;
    edtNum: TEdit;
    lblKol: TLabel;
    btnACH2: TButton;
    btnFCH2: TButton;
    btnClear: TButton;
    procedure edtRKeyPress(Sender: TObject; var Key: Char);
    procedure edtResist2KeyPress(Sender: TObject; var Key: Char);
    procedure edtResist3KeyPress(Sender: TObject; var Key: Char);
    procedure edtCapacityKeyPress(Sender: TObject; var Key: Char);
    procedure edtCapacityValue2KeyPress(Sender: TObject; var Key: Char);
    procedure edtCapacityValue3KeyPress(Sender: TObject; var Key: Char);
    procedure edtFreqKeyPress(Sender: TObject; var Key: Char);
    procedure btnExitClick(Sender: TObject);
    procedure edtCapacityChange(Sender: TObject);
 
    procedure edtCapacityValue3Change(Sender: TObject);
    procedure edtFreqChange(Sender: TObject);
    procedure edtRChange(Sender: TObject);
    procedure edtResist2Change(Sender: TObject);
    procedure edtResist3Change(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnSaveAsClick(Sender: TObject);
    procedure btnFontClick(Sender: TObject);
    procedure rbPhaseOneClick(Sender: TObject);
    procedure rbPhaseTwoClick(Sender: TObject);
    procedure btnACHClick(Sender: TObject);
    procedure btnFCHClick(Sender: TObject);
    procedure btnACH2Click(Sender: TObject);
    procedure btnClearClick(Sender: TObject);
    procedure btnFCH2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  GeneralForm: TGeneralForm;
            w, y, dx: Real;
             R,C,T: Real;
             Fmax: Real;
              fi: Real;
              R2,R3,C2,C3: Real;
              A,B,Clo: real;
      Nach, Kon, Num: Real;
                  fi2: Real;
                  y2: Real;
implementation
 
{$R *.dfm}
 
procedure TGeneralForm.edtRKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1', '2', '3', '4',  '5', '6', '7', '8', '9', '0', ',': ;
else key:=#0; end;
end;
 
procedure TGeneralForm.edtResist2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1', '2', '3', '4',  '5', '6', '7', '8', '9', '0', ',': ;
else key:=#0; end;
end;
 
procedure TGeneralForm.edtResist3KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1', '2', '3', '4',  '5', '6', '7', '8', '9', '0', ',': ;
else key:=#0; end;
end;
 
procedure TGeneralForm.edtCapacityKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1', '2', '3', '4',  '5', '6', '7', '8', '9', '0', ',': ;
else key:=#0; end;
end;
 
procedure TGeneralForm.edtCapacityValue2KeyPress(Sender: TObject;
  var Key: Char);
begin
case key of
'1', '2', '3', '4',  '5', '6', '7', '8', '9', '0', ',': ;
else key:=#0; end;
end;
 
procedure TGeneralForm.edtCapacityValue3KeyPress(Sender: TObject;
  var Key: Char);
begin
case key of
'1', '2', '3', '4',  '5', '6', '7', '8', '9', '0', ',': ;
else key:=#0; end;
end;
 
procedure TGeneralForm.edtFreqKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1', '2', '3', '4',  '5', '6', '7', '8', '9', '0', ',': ;
else key:=#0; end;
end;
 
procedure TGeneralForm.btnExitClick(Sender: TObject);
begin
if MessageDlg('Âíàòóðå âûéòè?',
  mtConfirmation, [mbYes, mbNo], 0) = mrYes
            then close;
 
 
end;
 
procedure TGeneralForm.edtCapacityChange(Sender: TObject);
    var  i,n:integer;
   begin
 
 
 n:=pos(',',edtCapacity.text);
 for i:=n+1 to length(edtCapacity.text) do
 if edtCapacity.text[i]=',' then edtCapacity.clear;
end;
 
procedure TGeneralForm.edtCapacityValue3Change(Sender: TObject);
 
var  i3,n3:integer;
   begin
 
 
 n3:=pos(',',edtCapacityValue3.text);
 for i3:=n3+1 to length(edtCapacityValue3.text) do
 if edtCapacityValue3.text[i3]=',' then edtCapacityValue3.clear;
end;
 
    procedure TGeneralForm.edtFreqChange(Sender: TObject);
    var nf,ief:Integer;
begin
 
      nf:=pos(',',edtFreq.text);
 for ief:=nf+1 to length(edtFreq.text) do
 if edtFreq.text[ief]=',' then edtFreq.clear;
end;
 
 
procedure TGeneralForm.edtRChange(Sender: TObject);
        var ir,nr:integer;
begin
 
 nr:=pos(',',edtR.text);
 for ir:=nr+1 to length(edtR.text) do
 if edtR.text[ir]=',' then edtR.clear;
 
end;
 
procedure TGeneralForm.edtResist2Change(Sender: TObject);
var ir2,nr2:Integer;
begin
 
 nr2:=pos(',',edtResist2.text);
 for ir2:=nr2+1 to length(edtResist2.text) do
 if edtResist2.text[ir2]=',' then edtResist2.clear;
end;
 
 
procedure TGeneralForm.edtResist3Change(Sender: TObject);
var nr3, ir3:integer;
begin
 nr3:=pos(',',edtResist3.text);
 for ir3:=nr3+1 to length(edtResist3.text) do
 if edtResist3.text[ir3]=',' then edtResist3.clear;
end;
 
procedure TGeneralForm.btnOpenClick(Sender: TObject);
begin
with dlgOpen1 DO
IF Execute then
begin
Memo1.Lines.LoadFromFile(Filename);
HistoryList.Add(Filename);
Caption:='My Editor-'+ExtractFileName(FileName);
dlgSave1.FileName :=Filename;
FileName :='';
END;
 
end;
 
procedure TGeneralForm.btnSaveClick(Sender: TObject);
begin
Memo1.Lines.SaveToFile(dlgSave1.Filename);
end;
 
procedure TGeneralForm.btnSaveAsClick(Sender: TObject);
begin
WITH dlgSave1 DO
IF Execute THEN
BEGIN
Memo1.Lines.SaveToFile(FileName);
Caption :='My Editor - '+ExtractfileName(FileName);
END;
 
end;
 
procedure TGeneralForm.btnFontClick(Sender: TObject);
begin
if dlgFont1.Execute then
  Memo1.Font.Assign(dlgFont1.Font);
end;
 
procedure TGeneralForm.rbPhaseOneClick(Sender: TObject);
begin
  img1.Visible:=True; img2.Visible:=false;
 
  lblCapacityValue3.visible:=False;
  edtResist2.Visible:=False;
  edtResist3.visible:=False;
 
  edtCapacityValue3.Visible:=False;
  lblResist2.Visible:=False;
  lblResist3.visible:=False;
     btnACH.visible:=true;
     btnFCH.visible:=True;
     btnACH2.visible:=False;
     btnFCH2.visible:=false;
end;
 
procedure TGeneralForm.rbPhaseTwoClick(Sender: TObject);
begin
  img2.Visible:=True; img1.Visible:=false;
 
 
  lblCapacityValue3.visible:=true;
  edtResist2.Visible:=true;
  edtResist3.visible:=true;
 
  edtCapacityValue3.Visible:=true;
  lblResist2.Visible:=true;
  lblResist3.visible:=true;
    btnACH.Visible:=false;
    btnFCH.Visible:=False;
    btnACH2.visible:=true;
    btnFCH2.visible:=true;
 
 
  
end;
 
procedure TGeneralForm.btnACHClick(Sender: TObject);
begin
  R:=StrToFloat(edtR.text);
  C:=StrToFloat(edtCapacity.text);
  Nach:= strtofloat(EdtNach.Text);
  Fmax:= strtofloat(EdtFmax.Text);
  Num:= strtofloat(EdtNum.Text);
  T:=R*C;
  dx:= (Fmax-Nach)/num;
  w:= Nach;
  while w<=Fmax do
   begin
     y:= ((w*T)-1)/(w*T+1);
     Cht1.SeriesList[0].AddXY(w,y,'',
     clBlack);
     w:= w+dx;
 
end;
 
end;
procedure TGeneralForm.btnFCHClick(Sender: TObject);
begin
R:=StrToFloat(edtR.text);
  C:=StrToFloat(edtCapacity.text);
  Nach:= strtofloat(EdtNach.Text);
  Fmax:= strtofloat(EdtFmax.Text);
  Num:= strtofloat(EdtNum.Text);
  T:=R*C;
  dx:= (Fmax-Nach)/num;
  w:= Nach;
  while w<=Fmax do
   begin
     fi:= arctan(2*w*T)/(((w*w)*(R*R)*(C*C))-1) ;
     Cht1.SeriesList[0].AddXY(w,fi,'',
     clBlack);
     w:= w+dx;
end;
end;
 
procedure TGeneralForm.btnACH2Click(Sender: TObject);
begin
      R:=StrToFloat(edtR.text);
  C:=StrToFloat(edtCapacity.text);
 
  Nach:= strtofloat(EdtNach.Text);
  Fmax:= strtofloat(EdtFmax.Text);
  Num:= strtofloat(EdtNum.Text);
   B:=1/(R*R3*C*C3);
  C2:=C+C3;
  A:=C2/(C*C3*R3);
 
  dx:= (Fmax-Nach)/num;
  w:= Nach;
 
  while w<=Fmax do
   begin
     y2:= ((w*w)-(w*A*(0.8999))+(w*B*0.9999))/((w*w)+(w*A*0.8999)+(w*B*0.9999));
     Cht1.SeriesList[0].AddXY(w,y2,'',
     clBlack);
     w:= w+dx;
end;
          end;
procedure TGeneralForm.btnClearClick(Sender: TObject);
begin
Cht1.SeriesList[0].Clear;
end;
 
procedure TGeneralForm.btnFCH2Click(Sender: TObject);
begin
       R:=StrToFloat(edtR.text);
  C:=StrToFloat(edtCapacity.text);
   w:=StrToFloat(edtFreq.text);
  Nach:= strtofloat(EdtNach.Text);
  Fmax:= strtofloat(EdtFmax.Text);
  Num:= strtofloat(EdtNum.Text);
   B:=1/(R*R3*C*C3);
  C2:=C+C3;
  A:=C2/(C*C3*R3);
 
  dx:= (Fmax-Nach)/num;
 
 
  while w<=Fmax do
   begin
     fi2:= arctan((2*w*w)/((w*w)/(w-(w*w))-1));
     Cht1.SeriesList[0].AddXY(w,fi2,'',
     clBlack);
     w:= w+dx;
end;
      end;
end.
Добавлено через 10 минут
исходник программы :
Вложения
Тип файла: rar code).rar (498.6 Кб, 19 просмотров)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 04.12.2013, 00:41
Ответы с готовыми решениями:

Необходимость постройки АЧХ и ФЧХ
Добрый день, помогите пожалуйста с постройкой ачх и фчх и вах Схема и формула во вложении

Выражение для АЧХ и ФЧХ цепи
Здравствуйте! Есть такая задачка: В общем виде записать выражение для АЧХ и ФЧХ цепи показанной на рисунке, качественно построить эти...

Как построить АЧХ и ФЧХ для цепи?
Не могу найти хорошую инструкцию для построения АЧХ и ФЧХ для цепи. Может кто подскажет?

2
0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 8
04.12.2013, 00:52  [ТС]
сейчас добавлю формулы по которым считаю
0
0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 8
04.12.2013, 00:54  [ТС]
формула по которой провожу рассчет
Миниатюры
Программа для расчета и постройки АЧХ/ФЧХ  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 04.12.2013, 00:54
Помогаю со студенческими работами здесь

Упростить формулу для нахождения АЧХ и ФЧХ
Помогите пожалуйста упростить формулу (т.е. вывести j из этой формулы ), чтобы потом можно было найти К(ω) ... И какие графики...

Уравнение АЧХ/ФЧХ в каноническом виде для параллельной RLC-цепи
Имеется такая параллельная RLC цепь. Нужно записать АЧХ и ФЧХ в каноническом виде. Как ни пробовал упрощать выражение - выходит бред....

Построить частотные характеристики (АЧХ, ФЧХ, ГВЗ) для фильтров с конечной импульсной характеристикой
Необходимо построить построить частотные характеристики (АЧХ, ФЧХ, ГВЗ) для вариантов фильтров с конечной импульсной характеристикой: ...

АЧХ и ФЧХ
Помогите пожалуйста довести до ума формулку по которой строить АЧХ и ФЧХ. Делал в маткаде 15.

АЧХ и ФЧХ
Кто-нибудь может подсказать в чем проблема ? Нужно построить вот такое http://image.************/image/bc0691fe884347a5b77fcaba480997c2.png...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru