I hope this is in right format.
Giuseppe
Hello all
I am learning F95
The intrinsic sqrt (z) for z complex yields only a result.
Really, the square root of z=x+i y ( z=ro * exp(i*tet) ) is
z1 = ro1 * exp (i tet1)
z2 = ro1 * exp (i tet2)
where
ro1 = sqrt (ro)
tet1 = tet / 2
tet2 = tet1 + k * pi k = 1, 2, .....
If I need all the solutions, have I write a module to overwrite the original
intrinsic ? (This new intrinsic maintain the same name as original.)
If I want all the n-root of z = z1 ** (1 / n) must be overwritten the **
operator?
I am sorry for these simple problems, but my F book is coming from USA.
Thanks in advance
Giuseppe
ing Giuseppe Panei
S.G.A.I. srl di E. Forlani & c
Studio di Geologia Applicata e Ingegneria srl
Tel 39 0541 988277
Fax 39 0541 987606
e-mail [log in to unmask]
web http://www.sgai.com/
via Mariotti 20
47833 Morciano di Romagna (RN)
ITALY
|