22 lines
531 B
Text
22 lines
531 B
Text
procedure main()
|
|
|
|
SetupComplex()
|
|
a := complex(1,2)
|
|
b := complex(3,4)
|
|
|
|
c := complex(&pi,1.5)
|
|
d := complex(1)
|
|
e := complex(,1)
|
|
|
|
every v := !"abcde" do write(v," := ",cpxstr(variable(v)))
|
|
|
|
write("a+b := ", cpxstr(cpxadd(a,b)))
|
|
write("a-b := ", cpxstr(cpxsub(a,b)))
|
|
write("a*b := ", cpxstr(cpxmul(a,b)))
|
|
write("a/b := ", cpxstr(cpxdiv(a,b)))
|
|
write("neg(a) := ", cpxstr(cpxneg(a)))
|
|
write("inv(a) := ", cpxstr(cpxinv(a)))
|
|
write("conj(a) := ", cpxstr(cpxconj(a)))
|
|
write("abs(a) := ", cpxabs(a))
|
|
write("neg(1) := ", cpxstr(cpxneg(1)))
|
|
end
|