home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma18.dms / ma18.adf / OPlot / demo.bat < prev    next >
Encoding:
DOS Batch File  |  1994-01-21  |  10.3 KB  |  229 lines
  1. ;
  2. ; ###########################################################################
  3. ; #                               Welcome !                                 #
  4. ; #         This batchfile shows you the main features of OPlotV0.6         #
  5. ; #                                                                         #
  6. ; #           OPlot is ©1993 by A.Maschke, all rights reserved.             #
  7. ; ###########################################################################
  8. ;
  9. pause(3)
  10. set(overscan=t)
  11. opendisplay(hires,lace)
  12. ; ###########################################################################
  13. ; #                                                                         #
  14. ; #                        Multiple Function Plots                          #
  15. ; #                                                                         #
  16. ; ###########################################################################
  17. pause(2)
  18. plot(1,sin(x)..cos(x)..sin(x)*cos(x),-pi..2*pi)
  19. showdisplay(1)
  20. pause(5)
  21. backdisplay(1)
  22. cleardisplay(1)
  23. ; ###########################################################################
  24. ; #                                                                         #
  25. ; #                         Multiple Plot-Styles                            #
  26. ; #                                                                         #
  27. ; ###########################################################################
  28. pause(2)
  29. set(drawgt=f)
  30. plot(1,sin(x)..sin(2*x)+2*sin(x),-pi..3*pi,plotstyle=impulses,drawaxis=f)
  31. plot(1,sin(x)..sin(2*x)+2*sin(x),-pi..3*pi,plotstyle=lines,drawaxis=f)
  32. plot(1,sin(x)..sin(2*x)+2*sin(x),-pi..3*pi,plotstyle=points,pointtype=star)
  33. set(drawgt=t)
  34. showdisplay(1)
  35. pause(5)
  36. backdisplay(1)
  37. cleardisplay(1)
  38. ; ###########################################################################
  39. ; #                                                                         #
  40. ; #                               Log-Scale                                 #
  41. ; #                                                                         #
  42. ; ###########################################################################
  43. pause(2)
  44. set(xlogscale=t)
  45. set(drawgt=f)
  46. plot(1,sin(x)..sin(2*x)+2*sin(x),pi..5*pi,plotstyle=boxes,pcount=60)
  47. set(drawgt=t)
  48. set(xlogscale=f)
  49. showdisplay(1)
  50. pause(5)
  51. backdisplay(1)
  52. cleardisplay(1)
  53. ; ###########################################################################
  54. ; #                                                                         #
  55. ; #                           Parametrical Plots                            #
  56. ; #                                                                         #
  57. ; ###########################################################################
  58. pause(2)
  59. set(drawgt=f)
  60. pplot(1,(12-3)*cos(t)+4*cos((12-3)/3*t),(12-3)*sin(t)-4*sin((12-3)/3*t),0..2*pi,plotstyle=points,pointtype=box,pointsize=8,drawaxis=f)
  61. set(drawgt=t)
  62. pplot(1,(12-3)*cos(t)+4*cos((12-3)/3*t),(12-3)*sin(t)-4*sin((12-3)/3*t),0..2*pi)
  63. showdisplay(1)
  64. pause(5)
  65. backdisplay(1)
  66. cleardisplay(1)
  67. ; ###########################################################################
  68. ; #                                                                         #
  69. ; #                  Parametrical Plots with custom ranges                  #
  70. ; #                                                                         #
  71. ; ###########################################################################
  72. pause(2)
  73. pplot(1,(9-3)*cos(t)+4*cos((9-3)/3*t),(9-3)*sin(t)-4*sin((9-3)/3*t),0..2*pi,-9..2,-5..11)
  74. showdisplay(1)
  75. pause(5)
  76. backdisplay(1)
  77. cleardisplay(1)
  78. ; ###########################################################################
  79. ; #                                                                         #
  80. ; #                     Multiple Parametrical Plots                         #
  81. ; #                                                                         #
  82. ; ###########################################################################
  83. pause(2)
  84. set(drawgt=f)
  85. pplot(1,(12-3)*cos(t)-4*cos((12-3)/3*t)..(12-3)*cos(t),(12-3)*sin(t)-4*sin((12-3)/3*t)..(12-3)*sin(t)..-4*sin((12-3)/3*t),0..2*pi)
  86. showdisplay(1)
  87. pause(5)
  88. backdisplay(1)
  89. cleardisplay(1)
  90. ; ###########################################################################
  91. ; #                                                                         #
  92. ; #                         Multiple Data-Plots                             #
  93. ; #                                                                         #
  94. ; ###########################################################################
  95. pause(2)
  96. set(drawgt=f)
  97. plotdata(1,ram:data1..ram:data2,plotstyle=points,pointtype=circle2,drawaxis=f)
  98. plotdata(1,ram:data1..ram:data2)
  99. showdisplay(1)
  100. pause(5)
  101. backdisplay(1)
  102. cleardisplay(1)
  103. ; ###########################################################################
  104. ; #                                                                         #
  105. ; #          Multiple Data-Plots with Cubic-Spline-Interpolation            #
  106. ; #                                                                         #
  107. ; ###########################################################################
  108. pause(2)
  109. set(drawgt=f)
  110. plotdata(1,ram:data1..ram:data2,cubsplinepnts=700,drawaxis=f)
  111. plotdata(1,ram:data1..ram:data2,plotstyle=points,pointtype=box,pointsize=6,pointmode=filled)
  112. showdisplay(1)
  113. pause(6)
  114. backdisplay(1)
  115. cleardisplay(1)
  116. ; ###########################################################################
  117. ; #                                                                         #
  118. ; #         Multiple Data-Plots with Basic-Spline-Interpolation             #
  119. ; #                                                                         #
  120. ; ###########################################################################
  121. pause(2)
  122. set(drawgt=f)
  123. plotdata(1,ram:data1..ram:data2,-1..10,-6..10,bsplinepnts=100,drawaxis=f)
  124. plotdata(1,ram:data1..ram:data2,-1..10,-6..10)
  125. showdisplay(1)
  126. pause(6)
  127. backdisplay(1)
  128. cleardisplay(1)
  129. ; ###########################################################################
  130. ; #                                                                         #
  131. ; #       Data-Plot with Basic-Spline-Interpolation: altering Order         #
  132. ; #                                                                         #
  133. ; ###########################################################################
  134. pause(2)
  135. set(drawgt=f)
  136. showdisplay(1)
  137. set(bsplineorder=3)
  138. plotdata(1,ram:data1,-1..10,-5..10,bsplinepnts=100,drawaxis=f)
  139. set(bsplineorder=4)
  140. plotdata(1,ram:data1,-1..10,-5..10,bsplinepnts=100,drawaxis=f)
  141. set(bsplineorder=5)
  142. plotdata(1,ram:data1,-1..10,-5..10,bsplinepnts=100,drawaxis=f)
  143. plotdata(1,ram:data1,-1..10,-5..10)
  144. pause(10)
  145. backdisplay(1)
  146. closedisplay(1)
  147. ; ###########################################################################
  148. ; #                                                                         #
  149. ; #                    Changing Display: LORES, LACE                        #
  150. ; #                                                                         #
  151. ; ###########################################################################
  152. opendisplay(lores,lace)
  153. pause(2)
  154. showdisplay(2)
  155. set(drawgt=false)
  156. set(drawgt=false)
  157. plotdata(2,ram:data1..ram:data2,-2..5,-6..3,plotstyle=points,drawaxis=false)
  158. plotdata(2,ram:data1..ram:data2,-2..5,-6..3,plotstyle=lines,cubsplinepnts=600,title="Cubic-Spline-Interpolation")
  159. set(drawgt=true)
  160. set(drawgt=true)
  161. pause(3)
  162. closedisplay(2)
  163. ; ###########################################################################
  164. ; #                                                                         #
  165. ; #                   Changing Display: LORES, NOLACE                       #
  166. ; #                                                                         #
  167. ; ###########################################################################
  168. opendisplay(lores,nolace)
  169. pause(2)
  170. showdisplay(3)
  171. set(drawgt=false)
  172. pplot(3,(15-3)*sin(t)-4*sin((15-3)/3*t),(15-3)*cos(t)+4*cos((15-3)/3*t),0..2*pi)
  173. set(drawgt=true)
  174. pause(3)
  175. closedisplay(3)
  176. ; ###########################################################################
  177. ; #                                                                         #
  178. ; #                   Changing Display: HIRES, NOLACE                       #
  179. ; #                                                                         #
  180. ; ###########################################################################
  181. opendisplay(hires,nolace)
  182. pause(2)
  183. showdisplay(4)
  184. set(drawgt=false)
  185. pplot(4,(16-4)*sin(t)-4*sin((16-4)/3*t),(16-4)*cos(t)+4*cos((16-4)/3*t),0..2*pi)
  186. set(drawgt=true)
  187. pause(3)
  188. closedisplay(4)
  189. ; ###########################################################################
  190. ; #                                                                         #
  191. ; #                  Changing Display: SHIRES,NOLACE                        #
  192. ; #                                                                         #
  193. ; ###########################################################################
  194. opendisplay(shires,nolace)
  195. pause(2)
  196. showdisplay(5)
  197. set(drawgt=false)
  198. set(drawgt=false)
  199. plot(5,sin(x),-pi..2*pi,-2..3,plotstyle=points,pcount=50,drawaxis=false)
  200. plot(5,cos(x),-pi..2*pi,-2..3,plotstyle=points,pointtype=circle,pcount=50,drawaxis=false)
  201. plot(5,sin(x),-pi..2*pi,-2..3,plotstyle=impulses,pcount=50,drawaxis=false)
  202. plot(5,cos(x),-pi..2*pi,-2..3,plotstyle=impulses,pcount=50,drawaxis=false)
  203. set(drawgt=true)
  204. plot(5,sin(x),-pi..2*pi,-2..3,plotstyle=lines,pcount=50,drawaxis=false)
  205. plot(5,cos(x),-pi..2*pi,-2..3,plotstyle=lines,pcount=50)
  206. set(drawgt=true)
  207. pause(4)
  208. closedisplay(5)
  209. ; ###########################################################################
  210. ; #                                                                         #
  211. ; #                    Changing Display: SHIRES, LACE                       #
  212. ; #                                                                         #
  213. ; ###########################################################################
  214. opendisplay(shires,lace)
  215. pause(2)
  216. showdisplay(6)
  217. set(drawgt=false)
  218. pplot(6,(40-4)*sin(t)-12*sin((40-4)/4*t),(40-4)*cos(t)+12*cos((40-4)/4*t),0..2*pi,pcount=600)
  219. set(drawgt=true)
  220. pause(6)
  221. closedisplay(6)
  222. ; ###########################################################################
  223. ; #                                                                         #
  224. ; #                              THAT'S ALL                                 #
  225. ; #                                                                         #
  226. ; ###########################################################################
  227. pause(6)
  228. exit
  229.