Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder
Войти
Регистрация
Восстановить пароль
 
ponuliam
0 / 0 / 0
Регистрация: 08.05.2010
Сообщений: 1
#1

ОСЦИЛЛЯТОР - C++ Builder

12.05.2010, 01:43. Просмотров 707. Ответов 1
Метки нет (Все метки)

Здравствуйте. Ребята помогите мне с программой пожалуйста, дело в том что у меня есть готовая прога на паскале, а мне она нужна в билдере. Помогите переделать программный код под него...

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
program PROGRAMMA5;
uses  dos, crt, graph;
Const   m=0.5; r=0.1; k=0.01; 
        dt=0.001; q=100; N=50;
Var     teta, F, t, y  : Real;
i,xx,vv,aa,FF,tt,Gd,Gm  : Integer;
eta, ksi : array [0..N] of real;
Procedure GraphInit;
begin
  Gd:= Detect;
  InitGraph(Gd, Gm, 'c:\bp\bgi');
  if GraphResult <> grOk then Halt(1);
end;
Procedure Oscillator;
  begin
  F:=q*(ksi[i-1]-ksi[i])+q*(ksi[i+1]-ksi[i]);
  teta:=(F-r*eta[i]-k*ksi[i])/m;
  eta[i]:=eta[i]+teta*dt; ksi[i]:=ksi[i]+eta[i]*dt;
end;
BEGIN
  GraphInit;
  Repeat  begin  t:=t+dt;
  For i:=1 to N do  begin
    y:=ksi[i]; Oscillator;
    if 5*t<3.142 then ksi[1]:=20*sin(5*t) else ksi[1]:=0;
    ksi[N]:=0; {закреплен}
    {ksi[N]:=ksi[N-1]; незакреплен}
    setcolor(8); circle(10*i,240-round(y*10),2);
    setcolor(15); circle(10*i,240-round(ksi[i]*10),2);
  end; end;
  until KeyPressed;
CloseGraph;
END.
заранее спасибо!
http://www.cyberforum.ru/windows-forms/thread1698254.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2010, 01:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос ОСЦИЛЛЯТОР (C++ Builder):

Гармонический осциллятор
и с последним помоггитееее пллиииз Задание: Гармонический осциллятор Данные:...

Параметрический осциллятор
Всем привет. В общем есть уравнение параметрического осциллятора:...

Осциллятор на триггере Шмитта
Умные люди, объясните мне по рабоче-крестьянски, пожалуйста. Почему такая...

Одномерный осциллятор с сопротивлением
Подпишите пожалуйсто ход действия программы.Не могу разобраться где и что она...

LC осциллятор с гальванически развязанным контуром
Здраствуйте, Помогите пожалуйста. Ищу схему синусоидального осциллятора с...

1
uggway
219 / 133 / 48
Регистрация: 12.04.2010
Сообщений: 248
12.05.2010, 14:26 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Брось на форму TImage и TTimer
Код будет примерно такой...
C++
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
       Timer1->Interval = 10;
       Image1->Align = alClient;
}
 
const float m=0.5, r=0.1, k=0.01,
        dt=0.001, q=100;
const int N=50;
float teta, F, t, y;
int i,xx,vv,aa,FF,tt,Gd,Gm;
float eta[N+1], ksi[N+1];
 
void Oscillator(void)
{
  F = q * (ksi[i-1]-ksi[i])+q*(ksi[i+1]-ksi[i]);
  teta = (F-r*eta[i]-k*ksi[i])/m;
  eta[i] = eta[i]+teta*dt;
  ksi[i]=ksi[i]+eta[i]*dt;
}
 
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  t = t + dt;
  for(i=1;i<N;i++){
    y=ksi[i];
    Oscillator();
    if (5*t < 3.142) ksi[1]=20*sin(5*t); else ksi[1]=0;
    ksi[N]=0; //{закреплен}
    //ksi[N]=ksi[N-1]; //незакреплен}
    Image1->Canvas->Pen->Color = clBlue;
    Image1->Canvas->Ellipse(10*i-2,240 - (y*10)-2,10*i+2,240 - (y*10)+2);
    Image1->Canvas->Pen->Color = clRed;
    Image1->Canvas->Ellipse(10*i-2,240 - (ksi[i]*10)-2,10*i+2,240 - (y*10)+2);
  }
}
//---------------------------------------------------------------------------
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2010, 14:26
Привет! Вот еще темы с решениями:

Не работает осциллятор на однопереходном транзисторе
Всем привет! Я собрал осциллятор на программируемом однопереходном...

Задачка 1ый курс , осциллятор
Найдите усредненные значения кинетической и потенциальной энергии...

ATmega32u4: бутлоадер, внутренний осциллятор, usb
Всем привет! Подскажите, пожалуйста, столкнулся со следующей штукой: пишу...

Гармонический осциллятор. Построить график, сделать выводы, обосновать построение графика
Гармонический осцилятор. Построить график. + выводы, обосновать построение...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru