Some 3D Graphs

[compsystems]

please, you can create some programs for each graphic.
guide
https://edspi31415.blogspot.com/2018/07/
https://www.youtube.com/watch?v=OgnIwt2q_Io

PHP Code:

EXPORT plotGraphParHome()
BEGIN
    LOCAL Symbolic_sview:=0;
    LOCAL Plot_sview:=1; 
    LOCAL Numeric_sview:=2;
    LOCAL SymbolicSetup_sview:=3;
    LOCAL PlotSetup_sview:=4;
    LOCAL NumericSetup_sview:=5;
           
    STARTAPP("Parametric");
    Parametric.X1:='T^2';
    Parametric.Y1:='T';
    Parametric.CHECK(1);
    STARTVIEW(Plot_sview);
    RETURN "Done";
END;


#cas
    plotGraphParCAS():=
    BEGIN
        LOCAL Symbolic_sview:=0;
        LOCAL Plot_sview:=1; 
        LOCAL Numeric_sview:=2;
        LOCAL SymbolicSetup_sview:=3;
        LOCAL PlotSetup_sview:=4;
        LOCAL NumericSetup_sview:=5;
                PURGE(T);
        STARTAPP("Parametric");
        X1(T):=T^2;
        Y1(T):=T;
        CHECK(1);
        STARTVIEW(Plot_sview);
        RETURN "Done";
    END;
#end


EXPORT plotAdvGraphHOME()
BEGIN
    LOCAL Symbolic_sview:=0;
    LOCAL Plot_sview:=1; 
    LOCAL Numeric_sview:=2;
    LOCAL SymbolicSetup_sview:=3;
    LOCAL PlotSetup_sview:=4;
    LOCAL NumericSetup_sview:=5;
           
    STARTAPP("Advanced Graphing");
    V1:='X-2*Y=7'; 
    V2:='5*X-3*Y=2';
    CHECK(1);CHECK(2);
    STARTVIEW(Plot_sview);
    RETURN "Done";
END;

#cas
    plotAdvGraphCAS():=
    BEGIN
        LOCAL Symbolic_sview:=0;
        LOCAL Plot_sview:=1; 
        LOCAL Numeric_sview:=2;
        LOCAL SymbolicSetup_sview:=3;
        LOCAL PlotSetup_sview:=4;
        LOCAL NumericSetup_sview:=5;
               PURGE(X,Y);
        STARTAPP("Advanced Graphing");
        V1(X,Y):=X-2*Y=7; 
        V2(X,Y):=5*X-3*Y=2;
        CHECK(1);CHECK(2);
        STARTVIEW(Plot_sview);
        RETURN "Done";
    END;
#end