X:=100;
M1:=MAKEMAT(0,100);
export testUserAndAppVars()
begin
PRINT();
//USER VARS
A := 1; B:=2;
X := 5.9;
L1 := {1,{2},"HELLO"};
M1 := [[1,2,3],[4,5,6]];
Z1 := 3+4*i;
// APP VARS
PRINT( "F(X) Function app user symbolic variables" );
Function.F1 := 'X^3-6*X^2+11*X-6'; // OR F1 := 'X^3-6*X^2+11*X-6'; OR CAS("F1(X):=X^3-6*X^2+11*X-6"); or sto('X^3-6*X^2+11*X-6',F1);
F2 := 'X^2-3*X+2';
F0 := 'X^3-0*X^2+X';
CAS("F3(X):=X^3"); // usando CAS CMD
CAS("F4(X):=X^3-2");
sto('X+5',F5); // usando STO CMD
PRINT( "F1(X) = " + Function.F1 );
PRINT( "F2(X) = " + Function.F2 );
PRINT( "F3(X) = " + Function.F0 );
PRINT( "" );
PRINT( "V(X,Y) Advanced Graphing app user symbolic variables" );
V1 := 'X^2+Y^2 = 10';
V2 := '2*X-3*Y = 6';
V3 := 'Y MOD X = 3';
Advanced_Graphing.V4 := Function.F1+'Y'; // usando dot
PRINT( "V1(X,Y) = " + Advanced_Graphing.V1 );
PRINT( "V2(X,Y) = " + Advanced_Graphing.V2 );
PRINT( "V3(X,Y) = " + Advanced_Graphing.V3 );
PRINT( "" );
PRINT( "{ X(T), Y(T) } PARAMETRIC app user symbolic variables" );
Y1 := 'SIN(4*T)';
X1 := 'SIN(6*T)';
PRINT( "{ X1(T) = " + Parametric.X1 + ", Y1(T) = " + Parametric.Y1 + " }" );
PRINT( "" );
PRINT( "R(THETHA) POLAR app user symbolic variables" );
R1 := 'SIN(θ)';
PRINT( "R(θ) = " + Polar.R1 );
PRINT( "" );
PRINT( "EQ() SOLVE app user symbolic variables" );
E1 := 'X^2';
E2 := '2*X+3';
PRINT( "{ E1(X) = " + E1 + ", E2(X) = " + E2 + " }" );
PRINT( "END" );
//User Vars
// {"A", "B", "X","L1","M1","Z1","F1","F2","F0","V1","V2","T"})
//F(X) Function symbolic variables
// { "F0","Function.F1","F1", "F2","F3","F4","F5","F6","F7","F8","F9" }
// V(X,Y) Advanced Graphing symbolic variables
// { "V0","V1","V2","V3","V4","V5","V6","V7","V8","V9" }
// { X(T), Y(T) } PARAMETRIC symbolic variables
// { "X0","X1","X2","X3","X4","X5","X6","X7","X8","X9" }
// { "Y0","Y1","Y2","Y3","Y4","Y5","Y6","Y7","Y8","Y9" }
//R(THETHA) POLAR symbolic variables
// { "R0","R1","R2","R3","R4","R5","R6","R7","R8","R9" }
return "Done";
end;