tests/testbench_plotdf_manual.wxm

   1 /* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
   2 /* [ Created with wxMaxima version 17.07.0 ] */
   3 /* [wxMaxima: title   start ]
   4 A manual testbench for plotdf
   5    [wxMaxima: title   end   ] */
   6
   7
   8 /* [wxMaxima: comment start ]
   9 Maxima cannot check if the output of this testbench matches the expected results. But it at least can issue commands that test most of plotdf's features.
  10    [wxMaxima: comment end   ] */
  11
  12
  13 /* [wxMaxima: input   start ] */
  14 plotdf(exp(-x)+y,[trajectory_at,2,-0.1])$
  15 /* [wxMaxima: input   end   ] */
  16
  17
  18 /* [wxMaxima: input   start ] */
  19 plotdf(x-y^2,[xfun,"sqrt(x);-sqrt(x)"],
  20          [trajectory_at,-1,3], [direction,forward],
  21          [y,-5,5], [x,-4,16])$
  22 /* [wxMaxima: input   end   ] */
  23
  24
  25 /* [wxMaxima: input   start ] */
  26 plotdf([v,-k*z/m], [z,v], [parameters,"m=2,k=2"],
  27            [sliders,"m=1:5"], [trajectory_at,6,0])$
  28 /* [wxMaxima: input   end   ] */
  29
  30
  31 /* [wxMaxima: input   start ] */
  32 plotdf([y,-(k*x + c*y + b*x^3)/m],
  33              [parameters,"k=-1,m=1.0,c=0,b=1"],
  34              [sliders,"k=-2:2,m=-1:1"],[tstep,0.1])$
  35 /* [wxMaxima: input   end   ] */
  36
  37
  38 /* [wxMaxima: input   start ] */
  39 plotdf([w,-g*sin(a)/l - b*w/m/l], [a,w],
  40         [parameters,"g=9.8,l=0.5,m=0.3,b=0.05"],
  41         [trajectory_at,1.05,-9],[tstep,0.01],
  42         [a,-10,2], [w,-14,14], [direction,forward],
  43         [nsteps,300], [sliders,"m=0.1:1"], [versus_t,1])$
  44 /* [wxMaxima: input   end   ] */
  45
  46
  47 /* [wxMaxima: input   start ] */
  48 V: 900/((x+1)^2+y^2)^(1/2)-900/((x-1)^2+y^2)^(1/2)$
  49 ploteq(V,[x,-2,2],[y,-2,2],[fieldlines,"blue"])$
  50 /* [wxMaxima: input   end   ] */
  51
  52
  53 /* [wxMaxima: input   start ] */
  54 plotdf([-y,x],[trajectory_at,5,0])$
  55 /* [wxMaxima: input   end   ] */
  56
  57
  58
  59 /* Maxima can't load/batch files which end with a comment! */
  60 "Created with wxMaxima"$