Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

БАЗЫ И ВЫСШАЯ МАТЕМАТИКА [D6, Access]

Страницы: < 1 2
Галинка © (2004-05-14 07:56:00)
Есть очень заумные формулы..:
j=1,N; i=1,l[j];
r0:=sqrt(sqr(x[i,j])+sqr(y[i,j]));
c1[i,j]:=sqr(0.08*(p1-I[i,j])-p2/Vozved(h,[j],p3));
fi[i,j]:=arctan(y[i,j]/x[i,j]);
c[i,j]:=c1[i,j]*sqr(cos(fi[i,j]-fi0))+sqr(sin(fi[i,j]-fi0));

b[1,1]:=b[1,1]+l[j];
b[2,1]=b[1,2]:=b[1,2]+l[j]*(K[j]-log(4*pi*sqr(r0)));
b[3,1]=b[1,3]:=b[1,3]-log(sqrt(sqr(h[j])+c[i,j]*(sqr(x[i,j])+sqr(y[i,j]))/r0);
b[2,2]:=b[2,2]+l[j]*sqr(K[j]-log(4*pi*sqr(r0)));
b[3,2]=b[2,3]:=b[2,3]-(K[j]-log(4*pi*sqr(r0)))*log(sqrt(sqr(h[j])+c[i,j]*(sqr(x[i,j])+sqr(y[i,j]))/r0);
b[3,3]:=sqr(log(sqrt(sqr(h[j])+c[i,j]*(sqr(x[i,j])+sqr(y[i,j]))/r0));
c[1]:=c[1]+I[i,j];
c[2]:=c[2]+I[i,j]*(K[j]-log(4*pi*sqr(r0)));
c[3]:=c[3]+I[i,j]*log(sqrt(sqr(h[j])+c[i,j]*(sqr(x[i,j])+sqr(y[i,j]))/r0);

Данные ко всему этому берутся из таблиц базы со структурой
Epicentry Punkty_nabludeniya
Id_epic Id_epic
Data DelX
Time DelY
Shir_epic Inabl
Dolg_epic
H_gip
K_max
Fi_0

Как это все можно реализовать ???

Всем спасибо....

Галинка (2004-05-14 08:45:00) [21]
Для Наталии:
А по-подробнее...

Наталия (2004-05-14 08:18:00) [22]
Делается это обычным образом:
Из таблиц выбираются нужные записи,
В циклах по i,j подставляются в формулы, результаты выводятся (записываются) по необходимости...

Галинка (2004-05-14 08:08:00) [23]
Подстановки такие:
h[j]=H_gip
K[j]=K_max
fi0[j]=Fi_0 (Извините, fi0 надо читать как fi0[j])

x[i,j]=DelX
y[i,j]=DelY
I[i,j]=Inabl

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »