Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / dimension- function / 8 сообщений из 8, страница 1 из 1
14.07.2004, 12:57
    #32603626
sasha123
sasha123
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
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?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2004, 16:23
    #32604356
sasha123
sasha123
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
???!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2004, 17:13
    #32604551
Burn
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
Чесно говоря ничего не понял... Нужно написать программу чтобы с любым количеством параметров выбираемых из произвольных мест таблицы считала произвольную формулу? Такое врядли напишешь;)
Что такое в твоем примере "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)'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2004, 07:33
    #32605041
sasha123
sasha123
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
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)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2004, 14:31
    #32606066
Burn
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
Ну так я все расписал:


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
*   Вызов
=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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 10:01
    #32607396
sasha123
sasha123
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
Takaya oshibka vxodit: "index massiva vne zadannix predelov" I ya ne moq ispravit etu oshibku.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 10:59
    #32607546
Burn
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
У меня все работает. Разве что я забыл закрывающуюся чтрочку в формуле:
=Funk(4, 5, '(a(1)*2+a(2))/(a(3)-a(4)/3)')

Если чтото неработает, значит проблема в таблице или постановке задачи. Держите тестовый пример .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.07.2004, 08:24
    #32609800
sasha123
sasha123
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dimension- function
Vsye , spasibo ,Bum. Poluchilos!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / dimension- function / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]