Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

как вывести на график результат?   Найти похожие ветки 

← →
ШТОРМ   (2004-05-11 04:19) [0]

Народ! Я не программер, но позарез нужно!
по выполнении этого кода он нихрена на график не выводит...
Хелп!!
procedure TForm1.Button1Click(Sender: TObject);
var N0, tau0, Ea, k,  vr: real; T, T0: integer;
begin
N0:=10e+15;
tau0:=0.67;
Ea:=0.5;
k:=8.6*10e-5;
vr:=2;
T0:=400;
T:=800;
//tau:=tau0*exp(Ea/(k*T));
//N:=N0*exp(-(vr/tau));
//for T:=400 to 800 do
while (T0+1)>T do
chart1.SeriesList[0].AddXY(T,N0*exp(-vr/(tau0*(exp(Ea/(k*T)))))," ",clred);
end;

---

← →
тихий вовочка ©   (2004-05-11 07:01) [1]

while (T0+1)>T ты писал? А теперь посмотри T0 = 400, T = 800
У тебя цикл ни разу не срабатывает

---

← →
тихий вовочка ©   (2004-05-11 07:02) [2]

Если ты раскомментируешь сроку
for T:=400 to 800 do
то все у тебя получиться. И делай лучше не Chart1.SeriesList[0], а просто Series1.AddXY

chart1.SeriesList[0].AddXY(T,N0*exp(-vr/(tau0*(exp(Ea/(k*T)))))," ",clred);

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.033 c