Project together. a new GUI about triangle solver

[compsystems]

I started with the mathematical part written in XCAS, then I port it from xcas to hp-prime, the first version is a version by formulas, the second will be solving a system

Someone helps me with the GUI, because the INPUT command is very limited

Thank you

PHP Code:

// triangle Solver version alpha 0.1 By: compsystems
// CASE_1_11_aBC
triangleSolverCase_1_11_aBC( Sidea, AngleB , AngleC ):={ // side a with Angle B, C
  local AngleA, Sideb, Sidec; 
  AngleA := 180 - (AngleB + AngleC); // A = 180° - (B + C) // ANGULO FALTANTE CON SUMA DE ANGULOS DE ENTRADA
  Sideb := (Sidea*sin(AngleB))/sin(AngleA);  //  b:= (a*sin(B))/sin(A) 
  Sidec := (Sidea*sin(AngleC))/sin(AngleA);  //  c:= (a*sin(C))/sin(A)
  
  return [ AngleA, AngleB, AngleC, Sidea, Sideb, Sidec ];
}:;

// CASE_1_12_aAC
triangleSolverCase_1_12_aAC( Sidea, AngleA , AngleC ):={ // side a with Angle A, C
  local AngleB, Sideb, Sidec; 
  AngleB := 180 - (AngleA + AngleC); // B = 180° - (C + A) // ANGULO FALTANTE CON SUMA DE ANGULOS DE ENTRADA
  Sideb := (Sidea*sin(AngleB))/sin(AngleA);  //  b:= (a*sin(B))/sin(A)
  Sidec := (Sidea*sin(AngleC))/sin(AngleA);  //  c:= (a*sin(C))/sin(A)
  
  return [ AngleA, AngleB, AngleC, Sidea, Sideb, Sidec ];
}:;

// CASE_1_13_aAB
triangleSolverCase_1_13_aAB( Sidea, AngleA , AngleB ):={ // side a with Angle A, B
  local AngleC, Sideb, Sidec; 
  AngleC := 180 - (AngleA + AngleB); // C = 180° - (A + B) // ANGULO FALTANTE CON SUMA DE ANGULOS DE ENTRADA
  Sideb := (Sidea*sin(AngleB))/sin(AngleA);  //  b:= (a*sin(B))/sin(A)
  Sidec := (Sidea*sin(AngleC))/sin(AngleA);  //  c:= (a*sin(C))/sin(A)
  
  return [ AngleA, AngleB, AngleC, Sidea, Sideb, Sidec ];
}:;


// CASE_1_21_bAC
triangleSolverCase_1_21_bAC( Sideb, AngleA , AngleC ):={ // side b with Angle A, C
  local AngleB, Sidea, Sidec; 
  AngleB := 180 - (AngleA + AngleC); // C = 180° - (A + C) // ANGULO FALTANTE CON SUMA DE ANGULOS DE ENTRADA
  Sidea := (Sideb*sin(AngleA))/sin(AngleB);  //  a:= (c*sin(A))/sin(B)
  Sidec := (Sideb*sin(AngleC))/sin(AngleB);  //  c:= (a*sin(C))/sin(B)
  
  return [ AngleA, AngleB, AngleC, Sidea, Sideb, Sidec ];
}:;

// CASE_1_31_cAB
triangleSolverCase_1_31_cAB( Sidec, AngleA , AngleB ):={ // side c
  local AngleC, Sidea, Sideb; // ANGULO FALTANTE CON SUMA DE ANGULOS DE ENTRADA
  AngleC := 180 - (AngleA + AngleB); // C = 180° - (A + B).
  Sidea := (Sidec*sin(AngleA))/sin(AngleC);  //  a:= (c*sin(A))/sin(C)
  Sideb := (Sidec*sin(AngleB))/sin(AngleC);  //  b:= (c*sin(B))/sin(C)
  
  return [ AngleA, AngleB, AngleC, Sidea, Sideb, Sidec ];
}:;




}:; 


triangleSolverCase_1_11_aBC(125,108.33333333333,61.33333333333);
[10.3333333333,108.333333333,61.3333333333,125,661.494658379,611.447681794]

test
http://triancal.esy.es/?lang=en&a=125&B=...3333333333

triangleSolverCase_1_11_aBC(3,45.,60);
[75.0,45.0,60,3,2.19615242271,2.6897264165]

test
http://triancal.esy.es/?lang=en&a=3&B=45&C=60