A-M baby

Task/Arithmetic-Complex/Icon/arithmetic-complex-1.icon

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