11 lines
395 B
Text
11 lines
395 B
Text
MatrixD$ ="3, 3, 0.86603, 0.50000, 0.00000, -0.50000, 0.86603, 0.00000, 0.00000, 0.00000, 1.00000"
|
|
|
|
|
|
print "Exponentiation of a matrix"
|
|
call DisplayMatrix MatrixD$
|
|
print " Raised to power 5 ="
|
|
MatrixE$ =MatrixToPower$( MatrixD$, 5)
|
|
call DisplayMatrix MatrixE$
|
|
print " Raised to power 9 ="
|
|
MatrixE$ =MatrixToPower$( MatrixD$, 9)
|
|
call DisplayMatrix MatrixE$
|