Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 dimension- function  [new]
sasha123
Guest
Pomoqite pojalusta ! Mne nado vicislit napirmer takuyu funksuyu z=x+y
A znachenie X i Y naxoditsa v pole X1 . 1-y 5 zapis znachenie X , sleduyushiy 5 zapis znachenie Y. Summa doljna bit v pole func1.Eto u menya poluchilos (11.RAR). No seychas delo v tom chto, eto funksiya moqut (z=x+y) menyatsa , i moqut bit mnoqoperemenniy:napirmer: z=(x*2+y)/(t-r/3) Kak eto zadachi reshat s pomoshi FUNCTION. Ili kak to po druqomu?

К сообщению приложен файл (11.rar - 519bytes) cкачать
14 июл 04, 12:57    [805786]     Ответить | Цитировать Сообщить модератору
 Re: dimension- function  [new]
sasha123
Guest
???!
14 июл 04, 16:23    [806949]     Ответить | Цитировать Сообщить модератору
 Re: dimension- function  [new]
Burn
Member

Откуда: Днепропетровск, Украина
Сообщений: 1167
Чесно говоря ничего не понял... Нужно написать программу чтобы с любым количеством параметров выбираемых из произвольных мест таблицы считала произвольную формулу? Такое врядли напишешь;)
Что такое в твоем примере "t" и "r"?
Но если остается прежняя схема - несколько записей с постояным шагом и произвольна формула в которой они идут впорядке расположения в таблице, то чтото такое:

PROCEDURE FUNK
PARAMETERS nmb_oper, step, formula
DIMENSION a(nmb_oper)

COPY TO ARRAY ga FIELD ik,x1

n=RecCount()
FOR i= 1 TO n
FOR j=1 TO nmb_oper
a(j)=ga(i+(j-1)*step, 2)
ENDFOR
a=&formula

&& Дальше не понял вашего принципа вставки так что делайте свми
ENDFOR

RETURN

Вызов:
DO funk WITH 4, 3, 'a(1)+a(2)-5*a(3)/a(4)'
14 июл 04, 17:13    [807199]     Ответить | Цитировать Сообщить модератору
 Re: dimension- function  [new]
sasha123
Guest
z=(x*2+y)/(t-r/3). t i r peremenni kak x i y.yesli formula budet takaya , toqda
v tablitse ne 10 , a 20 zapis budet, i sootvetstvenno 1-y 5 zapis otnositsa na x, .... posledniy 5 zapis na r.(shaq postoyanniy, to yest v nashem primere x1=26.393, y1=10.438, x2=28.172, y2=12.466,......, x5=11.799, y5=20.024)
15 июл 04, 07:33    [808017]     Ответить | Цитировать Сообщить модератору
 Re: dimension- function  [new]
Burn
Member

Откуда: Днепропетровск, Украина
Сообщений: 1167
Ну так я все расписал:


*   Вызов
=Funk(4, 5, '(a(1)*2+a(2))/(a(3)-a(4)/3')

*   Функция
FUNCTION FUNK
PARAMETERS nmb_oper, step, formula
DIMENSION a(nmb_oper)

COPY TO ARRAY ga FIELD ik,x1

FOR i= 1 TO step
   FOR j=1 TO nmb_oper
      a(j)=ga(i+(j-1)*step, 2)
   ENDFOR
   a=&formula
   
   REPLACE func1 with a FOR ik=i
ENDFOR
RETURN
15 июл 04, 14:31    [809646]     Ответить | Цитировать Сообщить модератору
 Re: dimension- function  [new]
sasha123
Guest
Takaya oshibka vxodit: "index massiva vne zadannix predelov" I ya ne moq ispravit etu oshibku.
16 июл 04, 10:01    [811861]     Ответить | Цитировать Сообщить модератору
 Re: dimension- function  [new]
Burn
Member

Откуда: Днепропетровск, Украина
Сообщений: 1167
У меня все работает. Разве что я забыл закрывающуюся чтрочку в формуле:
=Funk(4, 5, '(a(1)*2+a(2))/(a(3)-a(4)/3)')

Если чтото неработает, значит проблема в таблице или постановке задачи. Держите тестовый пример .

К сообщению приложен файл (primer.zip - 650bytes) cкачать
16 июл 04, 10:59    [812096]     Ответить | Цитировать Сообщить модератору
 Re: dimension- function  [new]
sasha123
Guest
Vsye , spasibo ,Bum. Poluchilos!
19 июл 04, 08:24    [816322]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить