To fix what you have:

$selector=range(1,5,1);

$TA=maple("

option1:=geom3d[point](P1,[5,2,1]):

option2:=geom3d[point](P2,[4,0,-4]):

option3:=geom3d[point](P3,[1,1,1]):

option4:=geom3d[plane](E1,[P1,P2,P3]):

option5:=geom3d[Equation](E1,[x,y,z]):

[option1,option2,option3,option4,option5];

");

$LE=maple("$TA[$selector]");

A BETTER WAY that is more efficient (single maple call)....

$selector=range(1,5,1);

$TA=maple("

option1:=geom3d[point](P1,[5,2,1]):

option2:=geom3d[point](P2,[4,0,-4]):

option3:=geom3d[point](P3,[1,1,1]):

option4:=geom3d[plane](E1,[P1,P2,P3]):

option5:=geom3d[Equation](E1,[x,y,z]):

listOfAll:=[option1,option2,option3,option4,option5];

selected:=listOfAll[$selector];

[convert(selected,string),convert(listOfAll,string)]

");

$theChosenOne=switch(0,$TA);

$theRest=switch(1,$TA);

Thanks for the response.

I found this other option as well.

]]>One solution to this would be to hold the answer in a variable. For example to calculate power = energy/time we could use variables such that $P = $E/$T. In the response area (assuming you are using numeric) you can then set "Required with" to "absolute accuracy". If you are using randomisation such that $P would be to more than two significant figures you can use the command "decimal(n,x)" in the algorithm section where x is the input and n is the number of decimal places. In this case it would be decimal(2,$P).

Hope this helps.

]]>It seems that they have an iframe embedder feature, so it's pretty much copy-paste of their source code into source code of a Mobius question. I've attached a TA question with one of their demos as an example: Example.zip

Cheers,

Anatoly

Or alternatively, the Maple-specific community MaplePrimes may know the answer. They are located at https://www.mapleprimes.com/

]]>EDIT: Also if you are looking for a specific topic, try the "Subjects" list under Maple Cloud, instead of "All Content Types".

]]>My grading code:

local I:=II:

if evalb(simplify(algsubs(I = a^4/(32*sqrt(3)), algsubs(C = 192, $RESPONSE) = $RV1))) then 1.0;

elif evalb(simplify(algsubs(I = a^4/(32*sqrt(3)), algsubs(C[1] = 192, $RESPONSE) = $RV1))) then 1.0;

elif algsubs($fact2 = 1,$RESPONSE) <> $RESPONSE then 1.0;

else 0.0;

end if;

Custom previewing code: local I:=`I `:printf(MathML[ExportPresentation]($RESPONSE));

my algoritm:

$fact2 = "E*a^4/L^3";

$RV1 = "$fact2*2*sqrt(3)";

$RVdisplay = "printf(MathML[ExportPresentation]($RV1))";