// versión 0.0.9e - mar 23/2017 by: CompSystems
// Los primeros ejemplos es un demostración general del uso de la orden INPUT, luego se muestran desde el caso mas simple hasta el mas complejo
//Global for this file
//xx := 0;
//yy := 0;
//Global and visible variables for all files
export xx := 7;
export yy := 6;
export zz := 5;
export inputv0()
BEGIN
// request xx, yy, zz data
//xx := 5;
print( );
print( "input cmd with a variable" ); wait;
input( xx );
print( "foo1()" ); wait;
//foo1();
input( yy );
print( "foo2()" ); wait;
//foo2();
input( zz );
print( "foo3()" ); wait;
//foo3();
return { "xx: "+xx, "yy: "+yy, "zz: "+zz };
END;
export inputDemo()
begin
local r;
local resetVAL_r;
local initVAL_r;
initVAL_r := 1;
initVAL_r := 5;
local ObjectType_Real := 0;
local ObjectType := ObjectType_Real;
local title := "input cmd, demo";
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input
(
{
{ r, [ ObjectType ] }
},
title,
{ "Radious:" },
{ "Entre radious" },
{ resetVAL_r },
{ initVAL_r }
);
if keyPressedOnMenu == ok then
return( "Area: " + pi*r^2 +"u²" );
else
return "Done";
end;
end;
export inputv01()
BEGIN
// I: La forma más simple de INPUT CMD, requiere un solo argumento, el nombre de la variable a modificar
// ARGUMENTO#1 variable(s) obligatoria(s): por ejemplo xx
// ARGUMENTO#2 etiqueta opcional: si no se incluye este argumento, se agrega automáticamente a la caja de dialogo
// el mismo nombre de la variable más ":" , en este caso "xx:"
// ARGUMENTO#3 titulo opcional de la caja de dialogo: por defecto coloca el nombre "Input"
// ARGUMENTO#4 ayuda opcional: agrega la cadena "Enter value for" + nombre de la variable, en este caso
// "Enter value for xx" si la calculadora está en language/English
// ARGUMENTO#5 valores opcionales de restablecimiento de cada variable
// ARGUMENTO#6 valores iniciales que se muestran en cada variable (opcionales)
local xx;
xx := 4; // valor inicial constante de la variable de almacenamiento siempre que se llame a la orden de usuario inputv01()
input( xx ); // un solo argumento
// [enter] ó [ok] ejecuta los campos de la caja de dialogo
// [esc] ó [cancel] sale de la caja de dialogo sin modificar los campos de entrada.
return "xx: "+xx;
END;
//Código anterior sin comentarios
export inputv1()
BEGIN
local xx;
xx := 4;
input( xx );
return "xx: "+xx;
END;
export inputFX()
BEGIN
F1:= 'X^2';
input( F1 );
return "F1: "+F1;
END;
export unitVar, strVar;
export inputTypes()
BEGIN
X:=0; Y:=0;
//initVAL_a := #FFFh; initVAL_b := #FFh; initVAL_c := #Fh; // integer 1
//initVAL_a := "abc"; initVAL_b := "123"; initVAL_c := "\"X\""; // string 2
//initVAL_a := i; initVAL_b := (3,4); initVAL_c := 3+4*i; // complex 3
//initVAL_a := [1]; initVAL_b := [2]; initVAL_c := [3]; // matrix 4
//initVAL_a := {1}; initVAL_b := {2}; initVAL_c := {3}; // list 6
//initVAL_a := 1_m; initVAL_b := 2_cm; initVAL_c := 3_inch; // unit 9
//resetVAL_a := 0; resetVAL_b := 0; resetVAL_c := 0; // real 0
//resetVAL_a := 0; resetVAL_b := 0; resetVAL_c := 0; // integer 1
//resetVAL_a := ""; resetVAL_b := ""; resetVAL_c := ""; // string 2
//resetVAL_a := 0; resetVAL_b := 0; resetVAL_c := 0; // complex 3
//resetVAL_a := [0]; resetVAL_b := [0]; resetVAL_c := [0]; // matrix 4
//resetVAL_a := {}; resetVAL_b := {}; resetVAL_c := {}; // list 6
//resetVAL_a := 'X'; resetVAL_b := 'X'; resetVAL_c := 'X'; // function 8
//resetVAL_a := 0_u; resetVAL_b := 0_u; resetVAL_c := 0_u; // unit 9
local ObjectType_All := -1;
local ObjectType_Real := 0;
local ObjectType_Integer := 1;
local ObjectType_String := 2;
local ObjectType_Complex := 3;
local ObjectType_Matrix := 4;
local ObjectType_Error := 5;
local ObjectType_List := 6;
local ObjectType_SymbolicExpression := 8;
local ObjectType_Unit := 9;
L1 := { 1.5, #FFFh, "X \"2\" Y", 3+4*i, "5", [[ 1, 3+4*i ],[ #FFFh, 3°05′06″ ]], { { 'Y=X^2', 'Y=2*X+3' },(5∡53), [ 3,4 ] }, 'X^2^Y^Z^W', 3_m, 3°05′06″, (3,4), "pi+3", 'X' };
if(
input
(
{
{ L1(1), [ ObjectType_Real ] },
{ L1(2), [ ObjectType_Integer ] },
{ L1(3), [ ObjectType_String ] },
{ L1(4), [ ObjectType_Complex ] },
{ L1(6), [ ObjectType_Matrix ] },
{ L1(7), [ ObjectType_List ] },
{ L1(8), [ ObjectType_SymbolicExpression ] },
{ L1(9), [ ObjectType_Unit ] },
{ L1(10), [ ObjectType_Real ] },
{ L1(11), [ ObjectType_Complex ] },
{ L1(12), [ ObjectType_All ] },
{ L1(13), [ ObjectType_SymbolicExpression, ObjectType_Real ] }
},
{ "Data Types page 1/2","Data Types page 2/2" },
{ "Real:", "Binary Integer:", "String:", "Complex:", "Matrix:", "List:", "SymExpr:", "Unit:", "Real (Angle)", "Complex (x,y)", "Any", "Real or SymbExpr" },
{},
{ 5/3, #10h, char(64), (5∡53), [ e^1, pi/2 ], { {1, 2}, 5 mod 3 }, 'Y=X^2', 3.1_m, 3°, e^1, "e", 'Y' }
)
)
then
A:=L1(1);
B:=L1(2);
strVar:=L1(3);
Z1:=L1(4);
M1:=L1(6);
L2:=L1(7);
L3:=L1(7,1);
E1:=L3(1);
E2:=L3(2);
F1:=L1(8);
unitVar:=L1(9);
C:=L1(10);
Z2:=L1(11);
IFERR F2:=L1(12);
THEN
END;
IFERR F3:=L1(13);
THEN
END;
return(L1);
end;
END;
//export xx := 7;
export inputv1a()
BEGIN
// RECUPERARANDO EL ULTIMO VALOR ASIGNADO, se debe crear xx como
// variable global "export xx := 7;" antes de la definición de la función
input( xx );
return "xx: "+xx;
END;
export inputv1b()
BEGIN
// RECUPERARANDO EL ULTIMO VALOR ASIGNADO sin usar el EXPORT CMD,
//también puede usarse variables de almacenamiento de números reales [A,B,...,Z, THETA] (EN MAYÚSCULAS)
// conocidas como "USER VARIABLES"
input( X );
return "X: "+X;
END;
export CheckingKeystrokesInput()
begin
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input(X);
if keyPressedOnMenu == ok then
return X;
else
return "Done";
end;
end;
//export xx := 7;
export inputv1c()
BEGIN
// Agregando TÍTULO PERSONALIZADO, argumento #2
input( xx, "titulo» Modificando xx" );
return "xx: "+xx;
END;
//export xx := 7;
export inputv1d()
BEGIN
// Agregando TÍTULO Y NOMBRE DE LA ETIQUETA PERSONALIZADA, argumentos #2-3
input( xx, "titulo» Modificando xx", "etiqueta» xx:" );
// note que la ayuda automáticamente elimina los dos puntos si los hay al final de la etiqueta
// mostrando solo "Enter value for etiqueta X" yy no "Enter value for etiqueta X:"
return "xx: "+xx;
END;
//export xx := 7;
export inputv1e()
BEGIN
// Agregando TÍTULO, ETIQUETA Y AYUDA PERSONALIZADA, argumentos #2-4
input( xx, "titulo» Modificando xx","etiqueta» xx:","Ayuda» Ingrese valor para la etiqueta xx" );
return "xx: "+xx;
END;
//export xx := 7;
export inputv1f()
BEGIN
// agregando TITULO, ETIQUETA, AYUDA, Y VALOR DE REINICIO PERSONALIZADO, argumentos #2-5
local valorDeReinicio := 5.1;
input(
xx,
"titulo» Modificando xx",
"etiqueta» xx:",
"Ayuda» Ingrese valor para la etiqueta xx",
valorDeReinicio
);
// el valor de reinicio se coloca con la secuencia [shift]+[esc] ó solo [backspace]
//Resetting all the fields oprima [shift]+[clear]
return "xx: "+xx;
END;
//export xx := 7;
export inputv1g()
BEGIN
// agregando TÍTULO, ETIQUETA, AYUDA, VALOR DE REINICIO E INICIAL PERSONALIZADO, argumentos #2-5
//xx := 5.2; // ya no es necesario definir un valor inicial en esta forma
local valorDeReinicio := 5.1234;
local valorInicial := 5.2;
input(
xx,
"titulo» Modificando xx",
"etiqueta» xx:",
"Ayuda» Ingrese valor para la etiqueta xx",
valorDeReinicio,
valorInicial
);
return "xx: "+xx;
END;
//export xx := 7;
export inputv1h()
BEGIN
// ARGUMENTOS POR DEFECTO se agrega {} y para campo vacío ""
// {} para nombre de etiqueta por defecto yy ayuda vacía o sin texto
input( xx, "titulo» Modificando xx", {}, "" );
return "xx: "+xx;
END;
// II: INPUT con varias variables
//export xx := 7; export yy := 0; export zz := 0;
export inputv02()
BEGIN
// para un CONJUNTO DE VARIABLES se abarcan entre {}
input( { xx, yy, zz },
"titulo» Modificando xx, yy, zz", "etiqueta» xx:", "Ayuda» Ingrese valor para la etiqueta xx" );
// note que las cadenas de texto para etiqueta yy ayuda solo afectan a la primera variable
return { "xx: "+xx, "yy: "+yy, "zz: "+zz };
END;
//export xx := 7; export yy := 0; export zz := 0;
export inputv2a()
BEGIN
// para un CONJUNTO DE ETIQUETAS Y AYUDAS SE ABARCAN ENTRE {}
input( { xx, yy, zz }, "titulo» Modificando xx, yy, zz",
{ "etiqueta» xx:", "etiqueta» zz:", "etiqueta» zz:" },
{ "Ayuda» Ingrese valor para la etiqueta xx", "Ayuda» Ingrese valor para la etiqueta yy",
"Ayuda» Ingrese valor para la etiqueta zz" }
);
return { "xx: "+xx, "yy: "+yy, "zz: "+zz };
END;
//export xx := 7; export yy := 0; export zz := 0;
export a := 4, b := 3, c := 2, d := 1, e1 := 0;
export f := 10;
export inputv2b()
BEGIN
// Si hay más de 7 variables LOS CAMPOS SE MUESTRAN EN N PANTALLAS
input(
{ xx, yy, zz, a, b, c, d, e1, f },
"titulo» modificando n variables",
{ "etiqueta» xx:", "etiqueta» yy:", "etiqueta» zz:" },
{ "Ayuda» Ingrese valor para la etiqueta xx", "Ayuda» Ingrese valor para la etiqueta yy",
"Ayuda» Ingrese valor para la etiqueta zz" }
);
// puede completar las cadenas de texto para las etiquetas yy ayuda para A,B,C,D,EE
// con la tecla virtual [page #/#] se avanza ó REGRESA entre pantallas
return { xx, yy, zz, a, b, c, d, e1, f };
END;
//export xx := 7; export yy := 0; export zz := 0;
//export a := 4, b := 3, c := 2, d := 1, e1 := 0;
//export f := 10;
export inputv2c()
BEGIN
// para un CONJUNTO DE TÍTULOS se abarcan entre {}
input(
{ xx, yy, zz, a, b, c, d, e1, f },
{ "Titulo» modificando variables xx, yy, ... d", "titulo» modificando variable ee, f" },
{ "etiqueta» xx:", "etiqueta» yy:", "etiqueta» zz:" },
{ "Ayuda» Ingrese valor para la etiqueta xx", "Ayuda» Ingrese valor para la etiqueta yy",
"Ayuda» Ingrese valor para la etiqueta zz" }
);
return { xx, yy, zz, a, b, c, d, e1, f };
END;
// III: Variable con n elementos
export inputv03()
BEGIN
// Variable con n elementos tipo LISTA
local list1 := { 5, 4, 3, 2};
input( {list1[ 1 ], list1[ 2 ], list1[ 3 ], list1[ 4 ]},
"T» Mod los elementos de una lista",
{ "list[1]:", "list[2]:", "list[3]:", "list[4]:" }
);
return list1;
END;
export inputv3a()
BEGIN
// Variable con n elementos tipo ARRAY
local array1 := [[1,2],[3,4]];
input(
{
array1[ 1,1 ],
array1[ 1,2 ],
array1[ 2,1 ],
array1[ 1,2 ]
},
"T» Mod los elementos de un arreglo",
{ "M[1,1]:", "M[1,2]:", "M[2,1]:", "M[2,1]:" }
);
return array1;
END;
export inputv3b()
BEGIN
// Variable con n elementos tipo CADENA DE CARACTERES
local str1 := "abcdefgh";
input(
{
str1[ 1 ],
str1[ 2 ],
str1[ 3 ],
str1[ 4 ],
str1[ 5 ],
str1[ 6 ],
str1[ 7 ]
},
"T» Mod los elementos de una cadena"
);
return str1;
END;
export inputv3c()
BEGIN
// POSICIONANDO LOS CAMPOS DE ENTRADA ó
// desfasadolos xx% hacia la derecha, con x1% de ancho
// tercer argumento entre llaves
local offsetField0 := 0; //0%
local offsetField5 := 5; //10%
local offsetField10 := 10; //%
local offsetField15 := 15; //%
local offsetField20 := 20; //%
local offsetField25 := 25; //%
local offsetField30 := 30; //%
local offsetField40 := 40; //%
local offsetField45 := 45; //%
local offsetField50 := 50; //%
//...
local offsetField100 := 100; //100%
local widthField0 := 0; //0%
local widthField10 := 10; //%
local widthField15 := 15; //%
local widthField20 := 20; //%
local widthField25 := 25; //%
local widthField30 := 30; //%
local widthField40 := 40; //%
local widthField50 := 50; //%
// ...
// page 1
local lineField0 := 0;
local lineField1 := 1;
local lineField2 := 2;
local lineField3 := 3;
local lineField4 := 4;
local lineField5 := 5;
local lineField6 := 6;
// page 2
local lineField7 := 7;
local lineField8 := 8;
// ...
local ObjectType_Real := 0;
local array1 := [[1,2],[3,4]];
input(
{
{ array1[1,1], [ ObjectType_Real ], { offsetField15, widthField15, lineField0 } },
{ array1[1,2], [ ObjectType_Real ], { offsetField15, widthField15, lineField1 } },
{ array1[2,1], [ ObjectType_Real ], { offsetField45, widthField15, lineField0 } },
{ array1[2,2], [ ObjectType_Real ], { offsetField45, widthField15, lineField1 } }
},
"T» Mod los elementos de un arreglo",
{ "M[1,1]:", "M[1,2]:", "M[2,1]:", "M[2,1]:" }
);
return array1;
END;
export inputcheckv04()
BEGIN
// Seleccion de una dato por
local checkbox := 0;
local checkbox_true := true;
local checkbox_false := false;
input(
{
{ X, checkbox },
{ Y, checkbox }
}
);
return [ X, Y ];
// las teclas [±] ó [enter] ó [CHECK] cambian el estado de la casilla
END;
export inputcheckv4a()
BEGIN
// AGRUPANDO CAMPOS, solo un campo se puede chulear
local checkbox := 0;
local checkbox_true := true;
local checkbox_false := false;
local group2_checkbox := 2;
local group3_checkbox := 3;
local group4_checkbox := 4;
input(
{
{ X,group2_checkbox },
{ Y,checkbox },
{ Z,checkbox },
{ W,checkbox }
}
);
return [ X, Y, Z, W ];
END;
export posList := 2; // global
export inputDropDownv05()
BEGIN
// Selección de una dato por menú desplegable
local list1 := { 1, 2, 3, 4 };
input( { { posList, list1 } },
"Titulo» menú desplegable",
"list"
);
return "opcion "+posList+": "+list1[posList];
END;
export inputIntroduction()
BEGIN
// truco para mostrar una introducción
local offsetField0 := 0; //0%
local offsetField5 := 5; //10%
local offsetField10 := 10; //%
local offsetField15 := 15; //%
local offsetField20 := 20; //%
local offsetField25 := 25; //%
local offsetField30 := 30; //%
local offsetField40 := 40; //%
local offsetField45 := 45; //%
local offsetField50 := 50; //%
//...
local offsetField100 := 100; //100%
local widthField0 := 0; //0%
local widthField10 := 10; //%
local widthField15 := 15; //%
local widthField20 := 20; //%
local widthField25 := 25; //%
local widthField30 := 30; //%
local widthField40 := 40; //%
local widthField50 := 50; //%
// ...
// page 1
local lineField0 := 0;
local lineField1 := 1;
local lineField2 := 2;
local lineField3 := 3;
local lineField4 := 4;
local lineField5 := 5;
local lineField6 := 6;
// page 2
local lineField7 := 7;
local lineField8 := 8;
// ...
local ObjectType_Real := 0;
local empty, xx := 2.5;
input(
{
{ empty, [ ObjectType_Real ], { offsetField100, widthField0, lineField0 } },
{ empty, [ ObjectType_Real ], { offsetField100, widthField0, lineField1 } },
{ empty, [ ObjectType_Real ], { offsetField100, widthField0, lineField2 } },
{ empty, [ ObjectType_Real ], { offsetField100, widthField0, lineField3 } },
{ empty, [ ObjectType_Real ], { offsetField100, widthField0, lineField4 } },
{ empty, [ ObjectType_Real ], { offsetField100, widthField0, lineField5 } },
{ empty, [ ObjectType_Real ], { offsetField100, widthField0, lineField6 } },
{ xx, [ ObjectType_Real ], { offsetField5, widthField20, lineField7 } }
},
{ "Introduction at the first page", "Input" },
{ "HELLO on Line 1 ",
"WORLD on Line 2 ",
"AGAIN on Line 3 ",
"",
"",
"",
"Press [Page 1/#] to continue ",
"xx:"
},
{ "", "", "", "", "", "", "", "Enter xx value" }
);
return "xx: "+xx;
END;
export resetFunctionAppVars( varApp_str )
BEGIN
expr( "Function." + varApp_str + ":=0"); // "" = "No definition in Symbolic view"
return "Done";
END;
#cas
PRGCAS():=
BEGIN
SetFunctionAppVars( "F1" );
SetFunctionAppVars( "F2" );
// ...
return("Done");
END;
#end
export SetFunctionAppVars( varApp_str )
BEGIN
local symbExpr, resetVALUE_FX, initVALUE_FX;
IFERR
initVALUE_FX := EXPR( varApp_str );
THEN
initVALUE_FX := 0; //
END;
resetVALUE_FX := 'X^2/9';
local ObjectType_SymbolicExpression := 8;
if
(
input(
{ { symbExpr, [ ObjectType_SymbolicExpression ] } },
"Set Function App Vars",
varApp_str+"(X):",
"Enter Symbolic Expression for "+varApp_str+"(X)",
resetVALUE_FX,
initVALUE_FX
)
)
then
expr("Function." + varApp_str + ":='" + symbExpr + "'");
//CAS( EVAL(varApp_str + "(X):=" + symbExpr) );
//return( { varApp_str, symbExpr, varApp_str + "(X):=" + symbExpr, varApp_str + ":='" + symbExpr + "'" });
end;
END;
export testInputList2()
begin
// usando las variables de USUARIO L0, ... L9
//local L0, L1, ..., L9; // NO SE REQUIEREN ESTAS VARIABLES DEFINIRLAS COMO LOCALES
local resetVAL_L1, resetVAL_L2;
local initVAL_L1, initVAL_L2;
L9 := { 0, 1 }; L8 := { 2 };
L7 := { 3 }; L6 := { 4 };
initVAL_L1 := L9; initVAL_L2 := L8;
resetVAL_L1 := L7; resetVAL_L2 := L6;
local ObjectType_List :=6;
local ObjectType := ObjectType_List ;
local title := "Type Allow: List ";
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input
(
{
{ L1, [ ObjectType ] },
{ L2, [ ObjectType ] }
},
title,
{ "L1:=", "L2:="},
{ "Enter LIST1", "Enter LIST2"},
{ resetVAL_L1, resetVAL_L2 },
{ initVAL_L1, initVAL_L2 }
);
if keyPressedOnMenu == ok then
return( { L1, L2 } );
else
return "Done";
end;
end;
export testInputArray()
begin
local a, b, c;
local resetVAL_a, resetVAL_b, resetVAL_c;
local initVAL_a, initVAL_b, initVAL_c;
initVAL_a := [ 1 ]; initVAL_b := [ 2 ]; initVAL_c := [ 3 ];
resetVAL_a := [ 0 ]; resetVAL_b := [ 0 ]; resetVAL_c := [ 0 ];
local ObjectType_Matrix := 4;
local ObjectType := ObjectType_Matrix;
local title := "Type Allow: Array [0]";
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input
(
{
{ a, [ ObjectType ] },
{ b, [ ObjectType ] },
{ c, [ ObjectType ] }
},
title,
{ "label_a:", "label_b:","label_c:" },
{ "help_a", "help_b", "help_c" },
{ resetVAL_a, resetVAL_b, resetVAL_c },
{ initVAL_a, initVAL_b, initVAL_c }
);
if keyPressedOnMenu == ok then
return ({a, b, c});
else
return "Done";
end;
end;
export testInputComplex()
begin
local a, b, c;
local resetVAL_a, resetVAL_b, resetVAL_c;
local initVAL_a, initVAL_b, initVAL_c;
initVAL_a := i; initVAL_b := (3,4); initVAL_c := 3+4*i;
resetVAL_a := 0+0*i; resetVAL_b := 0+0*i; resetVAL_c := 0+0*i;
local ObjectType_Complex := 3;
local ObjectType := ObjectType_Complex;
local title := "Type Allow: Complex a+b*i";
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input
(
{
{ a, [ ObjectType ] },
{ b, [ ObjectType ] },
{ c, [ ObjectType ] }
},
title,
{ "label_a:", "label_b:","label_c:" },
{ "help_a", "help_b", "help_c" },
{ resetVAL_a, resetVAL_b, resetVAL_c },
{ initVAL_a, initVAL_b, initVAL_c }
);
if keyPressedOnMenu == ok then
return ({a, b, c});
else
return "Done";
end;
end;
export testInputComplex2()
begin
// VARIABLES Z0-Z9
local a, b, c;
local resetVAL_a, resetVAL_b, resetVAL_c;
local initVAL_a, initVAL_b, initVAL_c;
initVAL_a := i; initVAL_b := (3,4); initVAL_c := 3+4*i;
resetVAL_a := 0+0*i; resetVAL_b := 0+0*i; resetVAL_c := 0+0*i;
local ObjectType_Complex := 3;
local ObjectType := ObjectType_Complex;
local title := "Type Allow: Complex a+b*i";
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input
(
{
{ a, [ ObjectType ] },
{ b, [ ObjectType ] },
{ c, [ ObjectType ] }
},
title,
{ "label_a:", "label_b:","label_c:" },
{ "help_a", "help_b", "help_c" },
{ resetVAL_a, resetVAL_b, resetVAL_c },
{ initVAL_a, initVAL_b, initVAL_c }
);
if keyPressedOnMenu == ok then
return ({a, b, c});
else
return "Done";
end;
end;
export testInputString()
begin
local a, b, c;
local resetVAL_a, resetVAL_b, resetVAL_c;
local initVAL_a, initVAL_b, initVAL_c;
initVAL_a := "abc"; initVAL_b := "123"; initVAL_c := "\"X\"";
resetVAL_a := ""; resetVAL_b := ""; resetVAL_c := "";
local ObjectType_String := 2;
local ObjectType := ObjectType_String;
local title := "Type Allow: String ";
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input
(
{
{ a, [ ObjectType ] },
{ b, [ ObjectType ] },
{ c, [ ObjectType ] }
},
title,
{ "label_a:", "label_b:","label_c:" },
{ "help_a", "help_b", "help_c" },
{ resetVAL_a, resetVAL_b, resetVAL_c },
{ initVAL_a, initVAL_b, initVAL_c }
);
if keyPressedOnMenu == ok then
return ({a, b, c});
else
return "Done";
end;
end;
export testInputSymbolic()
begin
local FN1, FN2;
local resetVAL_FN1, resetVAL_FN2;
local initVAL_FN1, initVAL_FN2;
initVAL_FN1 := 'X^3-6*X^2+11*X-6'; initVAL_FN2 := 'X^2-3*X+2';
resetVAL_FN1 := 'X^3-0*X^2+X'; resetVAL_FN2 := 'X^2-0*X+1';
local ObjectType_Symbolic := 8;
local ObjectType := ObjectType_Symbolic;
local title := "Type Allow: Symbolic";
local ok := true;
local cancel := false;
local keyPressedOnMenu := cancel;
keyPressedOnMenu := input
(
{
{ FN1, [ ObjectType ] },
{ FN2, [ ObjectType ] }
},
title,
{ "F1(X):=", "F2(X):="},
{ "Enter symbolic expression for F1", "Enter symbolic expression for F2"},
{ resetVAL_FN1, resetVAL_FN2 },
{ initVAL_FN1, initVAL_FN2 }
);
if keyPressedOnMenu == ok then
return( { { Function.F1:=FN1, F2:=FN2 },{ csolve(F1,X), csolve(F2,X) } } ); // 1 2 3 - 1 2
else
return "Done";
end;
end;
export TESTVARS()
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("F3(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");
CAS("F4(X):=X^3-2");
sto('X+5',F5);
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';
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(T)';
PRINT( "R(T) = " + 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(?) POLAR symbolic variables
// { "R0","R1","R2","R3","R4","R5","R6","R7","R8","R9" }
return "Done";
end;
Search
Member List
Calendar
Help
/
Challenge: bi-directional terminal view. (I/O)
![[Image: guiplus.png]](https://www.hpcalc.org/hp49/utils/interface/sshots/guiplus.png)