[REQUEST] terminal view for CAS mode
11-26-2016, 09:30 PM (This post was last modified: 12-07-2016 03:52 PM by compsystems.)
Post: #1 compsystems Senior Member Posts: 1,342 Joined: Dec 2013
[REQUEST] terminal view for CAS mode
Hello hp-prime community

The current terminal view was created for numerical mode (HOME MODE), for this reason the output expressions are not symbolic. The numerical results, do not need readable printing.

For those we program in CAS MODE we need or require PRETTY PRINT

A comparison of the view & a practical example simplify flag: off
increasing flag: off
cas mode: on

Script on history view
PHP Code:
assume(a>0);(a*x^2+b*x+c) = 0;Ans*4*a;         // ((a*x^2+b*x+c)*4*a) = 0expand(Ans);     // (4*a^2*x^2+4*a*b*x+4*a*c) = 0Ans+b^2;         // (4*a^2*x^2 +4*a*b*x + 4*a*c+b^2 ) = (b^2)Ans-4*a*c;       // (4*a^2*x^2+4*a*b*x+4*a*c+b^2-4*a*c) = (b^2-4*a*c)simplify(Ans);   // (4*a^2*x^2+4*a*b*x+b^2) = (-4*a*c+b^2)  factor(Ans);     // (2*a*x+b)^2) = (-4*a*c+b^2)√(Ans);          // (abs(2*a*x+b)) = (√(-4*a*c+b^2))assume(b>0);assume(c>0);expr(replace(string(Ans),"abs","")); // (2*a*x+b) = (√(-4*a*c+b^2))Ans-b;           // (2*a*x+b-b) = (√(-4*a*c+b^2)-b)simplify(Ans);   // (2*a*x-b) = (√(-4*a*c+b^2)-2*b)Ans/(2*a);       // (2*a*x/(2*a)) = (-b+√(-4*a*c+b^2))/(2*a)simplify(Ans);   // x = (-b+√(-4*a*c+b^2))/(2*a)part(Ans,1)=reorder(part(Ans,2),[b,a,c]);  // x = (-b+√[b^2-4*a*c])/(2*a)expr(replace(string(Ans),"-b+","-b-")); // x = (-b-√[b^2-4*a*c])/(2*a)

CAS prgm
PHP Code:
#cas    deductionQuadformula():=    begin        local equation;        assume(a>0);        print; // Clear Terminal Window        print( "Use cursor keys ↑↓ to move the output screen" );        print( "Another key to continue after PAUSE" );        print( "" );        print( "[PAUSE]" ); wait();        print; // Clear Terminal Window again        print( "***** Deduction Quadratic Formula *****" ); // Title        print( "" );        equation:= (a*x^2+b*x+c) = 0;         print( string( equation ) );        print( "" );            print( "Ans*4*a" );            equ := equ * 4*a;         // ((a*x^2+b*x+c)*4*a) = 0             print( string( equ ) );            print( "" );                        print( "expand(Ans)" );            equ := expand( equ );     // (4*a^2*x^2+4*a*b*x+4*a*c) = 0            print( string( equ ) );            print( "" );            print( "Ans+b^2" );                equ := equ + b^2;         // (4*a^2*x^2 +4*a*b*x + 4*a*c+b^2 ) = (b^2)            print( string( equ ) );            print( "" );            print( "Ans-4*a*c" );                equ := equ - 4*a*c;       // (4*a^2*x^2+4*a*b*x+4*a*c+b^2-4*a*c) = (b^2-4*a*c)            print( string( equ ) );            print( "" );            print( "simplify(Ans)" );                equ := simplify( equ );   // (4*a^2*x^2+4*a*b*x+b^2) = (-4*a*c+b^2)              print( string( equ ) );            print( "" );            print( "factor(Ans)" );                equ := factor( equ );     // (2*a*x+b)^2) = (-4*a*c+b^2)            print( string( equ ) );            print( "" );            print( "√(Ans)" );             assume( b>0 ); assume( c>0 );            equ := √( equ );          // (abs(2*a*x+b)) = (√(-4*a*c+b^2)) // Should not show ABS            print( string( equ ) );            print( "" );            // patch            equ := expr( replace( string( equ ), "abs", "" ) ); // (2*a*x+b) = (√(-4*a*c+b^2))            print( string( equ ) );            print( "" );            print( "Ans-b" );                equ := equ - b;           // (2*a*x+b-b) = (√(-4*a*c+b^2)-b)            print( string( equ ) );            print( "" );            print( "simplify(Ans)" );                equ := simplify( equ );   // (2*a*x-b) = (√(-4*a*c+b^2)-2*b)            print( string( equ ) );            print( "" );            print( "Ans/(2*a)" );                  equ := equ / ( 2*a );       // (2*a*x/(2*a)) = (-b+√(-4*a*c+b^2))/(2*a)            print( string( equ )  );            print( ""  );            print( "simplify(Ans)"  );                equ := simplify( equ );   // x1 = (-b+√(-4*a*c+b^2))/(2*a)            equ := expr( replace( string( equ ), "x", "x1" ) );            print( string( equ )  );            print( ""  );            print( "expr(replace(string(equ),"-b+","-b-"))" );            equ1 := expr( replace( string( equ ), "-b+", "-b-" ) ); // x2 = (-b-√[b^2-4*a*c])/(2*a)             equ1 := expr( replace( string( equ1 ), "x1", "x2" ) );                print( string( equ1 )  );             print( "[PAUSE]"  ); wait( );                return "done";    end;#end

Survey:
Do you really need a new terminal view with pretty print?

11-27-2016, 03:55 AM
Post: #2
 toml_12953 Senior Member Posts: 2,040 Joined: Dec 2013
RE: terminal view for CAS mode
(11-26-2016 09:30 PM)compsystems Wrote:  Survey:
Do you really need a new terminal view with pretty print?