HP Forums
[REQUEST] terminal view for CAS mode - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: HP Prime (/forum-5.html)
+--- Thread: [REQUEST] terminal view for CAS mode (/thread-7318.html)

[REQUEST] terminal view for CAS mode - compsystems - 11-26-2016 09:30 PM

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

[Image: script_hp_prime_image02.png]


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) = 0
expand(Ans);     // (4*a^2*x^2+4*a*b*x+4*a*c) = 0
Ans+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?

Please vote, Thanks

RE: terminal view for CAS mode - toml_12953 - 11-27-2016 03:55 AM

(11-26-2016 09:30 PM)compsystems Wrote:  Survey:
Do you really need a new terminal view with pretty print?

Please vote, Thanks

I don't need one. What I need is a terminal that works like a terminal with ANSI escape sequences. One that allows printing just as a physical terminal would.

Tom L