aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

35
Task/Arithmetic-Complex/M2000-Interpreter/arithmetic-complex-2.m2000 Normal file
View file

@ -0,0 +1,35 @@
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