EPS files for w2_1-2.tex

To generate the eps files for w2_1-2.tex

\(\( (*\ 
      Just\ highlight\ the\ bracket\ on\ the\ far\ right
	\ \ and\ shift - 
        \(return . \)\ *) \ 
    
 (*\ And\ YES, \ you\ want\ to\ initialize, \ if\ \(asked . \)\ *) 
      \)\)

*********************************
w-P  axes (wpaxes.eps)
*********************************

\(Clear[xticks, i, fred]; 
xticks = \ Table[i, {i, 0, 13}]; 

    fred\  = \ 
      Plot[100, {x, 0, 13}, PlotRange -> {0, 3}, Axes -> {True, \ True}, 
        AspectRatio -> 1/2, Ticks -> {xticks, Automatic}, 
        AxesLabel -> {w, P}, GridLines -> Automatic]; 

    Display["wpaxes.eps", fred, "EPS"]; \)

*********************************
height of falling rock (rock.eps)
*********************************

\(Clear[height, t, velocity, k, m, g, startheight, v, y, Derivative, h]; 
    
k = 0.2; 
m = 2; 
g = \(-9.8\); 
startheight\  = \ 300; 

    velocity[t_] = \ 
      v[t]\ \  /. 
        \(DSolve[{\(v'\)[t] == \(-k\)/m*v[t] + g, v[0] == 0}, v[t], t]\)[
          \([1]\)]; 

    height[t_] = \ 
      h[t] /. \ N[
          \(DSolve[{\(h'\)[t] == velocity[t], h[0] == startheight}, h[t], t]
              \)[\([1]\)], 3]; 

    Display["rockheight.eps", 
      Plot[height[t], {t, 0, 9}, PlotRange -> Automatic, 
        Axes -> {True, \ True}, 
        AxesLabel -> {"t (seconds)", "h (meters)"}, 
        FormatType -> OutputForm], "EPS"]; 

    Display["rockspeed.eps", 
      Plot[velocity[t], {t, 0, 9}, PlotRange -> {\(-60\), 9.8}, 
        Axes -> {True, \ True}, 
        AxesLabel -> {"  t (sec.)", "v (meters/sec.)"}, \ 
        FormatType\  -> \ OutputForm], "EPS"]; \)

To save space, do NOT save when quitting.

\(Executing\ this\ notebook\ creates\ the\ following\ 
      \(files : 
wpaxes . eps\)\)rockheight . epsrockspeed . eps