example
Code : Tout sélectionner
X, Y RETURNS 0,0
V1(X,Y):=X-2*Y=7; V2(X,Y):=5*X-3*Y=2; returns [0,0]
0-2*0=7, 5*0-3*0=2
0=7, 0=2
0/FALSE, 0/FALSE
A possible solution is that the operator (=) does not act as a comparison operator, this could be done using a flag to deactivate it.
Code : Tout sélectionner
EXPORT plotGraphParHome()
BEGIN
LOCAL Symbolic_sview:=0;
LOCAL Plot_sview:=1;
LOCAL Numeric_sview:=2;
LOCAL SymbolicSetup_sview:=3;
LOCAL PlotSetup_sview:=4;
LOCAL NumericSetup_sview:=5;
STARTAPP("Parametric");
Parametric.X1:='T^2';
Parametric.Y1:='T';
Parametric.CHECK(1);
STARTVIEW(Plot_sview);
RETURN "Done";
END;
#cas
plotGraphParCAS():=
BEGIN
LOCAL Symbolic_sview:=0;
LOCAL Plot_sview:=1;
LOCAL Numeric_sview:=2;
LOCAL SymbolicSetup_sview:=3;
LOCAL PlotSetup_sview:=4;
LOCAL NumericSetup_sview:=5;
PURGE(T);
STARTAPP("Parametric");
X1(T):=T^2;
Y1(T):=T;
CHECK(1);
STARTVIEW(Plot_sview);
RETURN "Done";
END;
#end
EXPORT plotAdvGraphHOME()
BEGIN
LOCAL Symbolic_sview:=0;
LOCAL Plot_sview:=1;
LOCAL Numeric_sview:=2;
LOCAL SymbolicSetup_sview:=3;
LOCAL PlotSetup_sview:=4;
LOCAL NumericSetup_sview:=5;
STARTAPP("Advanced Graphing");
V1:='X-2*Y=7';
V2:='5*X-3*Y=2';
CHECK(1);CHECK(2);
STARTVIEW(Plot_sview);
RETURN "Done";
END;
#cas
plotAdvGraphCAS():=
BEGIN
LOCAL Symbolic_sview:=0;
LOCAL Plot_sview:=1;
LOCAL Numeric_sview:=2;
LOCAL SymbolicSetup_sview:=3;
LOCAL PlotSetup_sview:=4;
LOCAL NumericSetup_sview:=5;
PURGE(X,Y);
STARTAPP("Advanced Graphing");
V1(X,Y):=X-2*Y=7;
V2(X,Y):=5*X-3*Y=2;
CHECK(1);CHECK(2);
STARTVIEW(Plot_sview);
RETURN "Done";
END;
#end