Arithmetic/Complex: Difference between revisions

DECLARE SUB suma (a AS complex, b AS complex, c AS complex)

DECLARE SUB rest (a AS complex, b AS complex, c AS complex)

DECLARE SUB divi (a AS complex, b AS complex, c AS complex)

DECLARE SUB inv (a AS complex, b AS complex)

DECLARE SUB conj (a AS complex, b AS complex)

PRINT "Siendo x = "; x.real; "+"; x.imag; "i"

PRINT " e y = "; y.real; "+"; y.imag; "i"

PRINT

CALL suma(x, y, z)

PRINT "x + y = "; z.real; "+"; z.imag; "i"

CALL rest(x, y, z)

PRINT "x - y = "; z.real; "+"; z.imag; "i"

PRINT "x * y = "; z.real; "+"; z.imag; "i"

CALL divi(x, y, z)

PRINT "x / y = "; z.real; "+"; z.imag; "i"

PRINT " -x = "; z.real; "+"; z.imag; "i"

CALL inv(x, z)

PRINT "1 / x = "; z.real; "+"; z.imag; "i"

CALL conj(x, z)

PRINT " x* = "; z.real; "+"; z.imag; "i"

END

SUB suma (a AS complex, b AS complex, c AS complex)

END SUB

SUB conj (a AS complex, b AS complex)

b.real = a.real

b.imag = -a.imag

END SUB

SUB divi (a AS complex, b AS complex, c AS complex)

c.real = ((a.real * b.real + b.imag * a.imag) / (b.real ^ 2 + b.imag ^ 2))

c.imag = ((a.imag * b.real - a.real * b.imag) / (b.real ^ 2 + b.imag ^ 2))

END SUB

SUB rest (a AS complex, b AS complex, c AS complex)

c.real = a.real - b.real

c.imag = a.imag - b.imag

END SUB

</lang>

<pre>Siendo x = 1+ 3i

e y = 5+ 2i

x + y = 6 + 5 i

x - y = -4 + 1 i

x * y = -1 + 17 i

x / y = .3793103448275862 + .4482758620689655 i

-x = -1 +-3 i

1 / x = .1 +-.3 i

x* = 1 +-3 i</pre>