home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / progs / pari / pari_137 / testplot < prev   
Text File  |  1992-05-20  |  717b  |  30 lines
  1. \e
  2. \precision=9
  3. initrect(0,500,500)
  4. box(0,0,0,500,500)
  5. draw([0,0,0])
  6. postdraw([0,0,0])
  7. line(0,0,900,900,0)
  8. lines(0,vector(5,k,50*k),vector(5,k,10*k*k))
  9. move(0,243,583);cursor(0)
  10. plot(x=-5,5,sin(x))
  11. ploth(x=-5,5,sin(x))
  12. ploth2(t=0,2*pi,[sin(5*t),sin(7*t)])
  13. plothraw(vector(100,k,k),vector(100,k,k*k/100))
  14. point(0,225,334)
  15. points(0,vector(10,k,10*k),vector(10,k,5*k*k))
  16. draw([0,20,20])
  17. postdraw([0,20,20])
  18. postploth(x=-5,5,sin(x))
  19. postploth2(t=0,2*pi,[sin(5*t),sin(7*t)])
  20. postplothraw(vector(100,k,k),vector(100,k,k*k/100))
  21. move(0,50,50);rbox(0,100,100)
  22. rline(0,200,150)
  23. cursor(0)
  24. rmove(0,5,5);cursor(0)
  25. rpoint(0,20,20)
  26. move(0,100,100);string(0,pi)
  27. move(0,200,200);string(0,"(0,0)")
  28. draw([0,10,10])
  29. postdraw([0,10,10])
  30.