? ?    realprecision = 38 significant digits
?    echo = 1 (on)
? plotinit(0,500,500)
? plotmove(0,0,0);plotbox(0,500,500)
? plotmove(0,200,150)
? plotcursor(0)
% = [200, 150]
? psdraw([0,0,0])
? plotinit(1,700,700)
? plotkill(1)
? plotmove(0,0,900);plotlines(0,900,0)
? plotlines(0,vector(5,k,50*k),vector(5,k,10*k*k))
? plotmove(0,243,583);plotcursor(0)
% = [243, 583]
? plot(x=-5,5,sin(x))

      0.999 xxxx---------------------------------xxxx------------------|
            |   x                               x    xx                |
            |    x                             x       x               |
            |     x                           x                        |
            |      x                         x          x              |
            |       x                                    x             |
            |                               x                          |
            |        x                     x              x            |
            |         x                                    x           |
            |                             x                            |
            -----------x------------------------------------x-----------
            |                            x                             |
            |           x                                    x         |
            |            x              x                     x        |
            |                          x                               |
            |             x                                    x       |
            |              x          x                         x      |
            |                        x                           x     |
            |               x       x                             x    |
            |                xx    x                               x   |
     -0.999 |------------------xxxx---------------------------------xxxx
             -5.000                                                   5.00
0

? plotpoints(0,225,334)
? plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
? psdraw([0,20,20])
? psploth(x=-5,5,sin(x))
% = [-5.0000000000000000000000000000000000000, 5.0000000000000000000000000
000000000000, -0.99999641075647216492683355600000000000, 0.999996410756472
16492683355600000000000]
? psploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100)
% = [-0.99987412767387506828953291900000000000, 0.999874127673875068289532
91900000000000, -0.99987412767387506828953291900000000000, 0.9998741276738
7506828953291900000000000]
? psplothraw(vector(100,k,k),vector(100,k,k*k/100))
% = [1.0000000000000000000000000000000000000, 100.000000000000000000000000
00000000000, 0.010000000000000000208166817100000000000, 100.00000000000000
000000000000000000000]
? plotmove(0,50,50);plotrbox(0,50,50)
? plotrline(0,200,150)
? plotcursor(0)
% = [250, 200]
? plotrmove(0,5,5);plotcursor(0)
% = [255, 205]
? plotrpoint(0,20,20)
? plotinit(3,600,600);plotscale(3,-7,7,-2,2);plotcursor(3)
% = [-7, 2]
? plotmove(0,100,100);plotstring(0,Pi)
? plotmove(0,200,200);plotstring(0,"(0,0)")
? psdraw([0,10,10])
? getheap
% = [9, 153]
? print("Total time spent: ",gettime);
Total time spent: 440
? \q
Good bye!
