Фортран, функция Sign

← →
MBo (2003-01-25 01:43) [0]

Как она работает?
В имеющейся книге просто упоминается - присвоение знака

Надо перевести:

X=SIGN((A*B)**(C),P )

X будет модулем первого аргумента со знаком второго или первый изменит знак, если второй отрицателен?

← →
Johnmen (2003-01-25 01:51) [1]

SIGN возвращает 1 для положительных и -1 для отрицательных...

← →
MBo (2003-01-25 01:59) [2]

два аргумента...

← →
Johnmen (2003-01-25 02:03) [3]

Честно говоря, впервые вижу SIGN с двумя аргументами...:)
Откуда это ?

← →
MBo (2003-01-25 03:59) [4]

Из старой программы.
Да и в книге по Фортрану 4
упоминается Sign(p1,p2)

← →
Юрий Зотов (2003-01-25 07:27) [5]

http://parallel.uran.ru/alpha/f90www/instric_fortran_90_rus.html

"Функция переноса знака SIGN(X,Y) берет знак второго аргумента и устанавливат его первому аргументу, ABS(X) если Y >= 0 и -ABS(X) если Y < 0".

← →
MBo (2003-01-25 08:01) [6]

Большое спасибо!

← →
MBo (2003-01-25 08:02) [7]

Большое спасибо!

Фортран, функция Sign Найти похожие ветки