36 lines
803 B
Plaintext
36 lines
803 B
Plaintext
module tstComplex {
|
|
// Var one as complex=(1,0i), A as complex=(8, -3i)
|
|
one=(1,0i)
|
|
A=(8, -3i)
|
|
Print "A=";A
|
|
Print " r=";Abs(A);" θ=";Arg(A);" rad"
|
|
B=one/A
|
|
Print "B=";B
|
|
Print " r=";Abs(B);" θ=";Arg(B);" rad"
|
|
Print A;"*";B;"=";A*B
|
|
Print one;"/";B;"=";one/B
|
|
Print A;"/";A;"=";A/A
|
|
Print A;"+";A;"=";A+A
|
|
Print A;"-";A;"=";A-A
|
|
Print "-"+A+"=";-A
|
|
Print "(round exp to 13th decimal)"
|
|
I=round(exp((0, pi i)),13)+1
|
|
Print "e^(πi)+1=";i
|
|
Print "(without rounding)"
|
|
I=exp((0, pi i))+1
|
|
Print "e^(πi)+1=";i
|
|
Print type$(i) = "Complex"
|
|
Dim a(10) as Complex=(1,0i)
|
|
Print (a(3)+a(3))^2=(4, 0i)
|
|
Print (a(3)+a(3))^2=4
|
|
|
|
Print cos(a)
|
|
Print sin(a)
|
|
Print atn(tan(a))
|
|
Print tan(atn(a))
|
|
Print Polar(abs(a), arg(a))=(8, -3i)
|
|
Print str$(a ,"0.00")
|
|
Print str$((8,-3i) ,"0.00")
|
|
}
|
|
tstComplex
|