mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
18 lines
281 B
Mathematica
18 lines
281 B
Mathematica
BeginTestSection["Untitled-5"]
|
|
|
|
VerificationTest[(* 1 *)
|
|
RotationMatrix[phi]
|
|
,
|
|
List[List[Cos[phi], Times[-1, Sin[phi]]], List[Sin[phi], Cos[phi]]]
|
|
]
|
|
|
|
VerificationTest[(* 2 *)
|
|
Times[1, Power[Plus[a, Times[-1, a]], -1]]
|
|
,
|
|
ComplexInfinity
|
|
,
|
|
{Power::infy}
|
|
]
|
|
|
|
EndTestSection[]
|