LOGO-L> Re: 3_D Graphs

["George Mills" <mills@softronix.com>]

There are many ways to do it here is one.
It is not the best viewpoint and I didn't have time to
fiddle with it.

See attached GIF

to z_sin_xy
cs
perspective
clearpalette
setsc [255 255 255]
setpc [64 0 0]
ht
for [x 0 3 0.1] ~
   [
   for [y 0 3 0.1]
      [
      localmake "x1 :x+0.0
      localmake "y1 :y+0.0
      localmake "x2 :x+0.1
      localmake "y2 :y+0.1
      localmake "z1 radsin :x1 * :y1
      localmake "z2 radsin :x2 * :y1
      localmake "z3 radsin :x2 * :y2
      localmake "z4 radsin :x1 * :y2
      pu
      setxyz :x1*100 :y1*100 :z1*100
      pd
      polystart
      setxyz :x2*100 :y1*100 :z2*100
      setxyz :x2*100 :y2*100 :z3*100
      setxyz :x1*100 :y2*100 :z4*100
      setxyz :x1*100 :y1*100 :z1*100
      polyend
      ]
   ]
Messagebox [] [Solid View]
setsc [0 0 0]
polyview
end




-----Original Message-----
From: Yehuda <yehuka@beitberl.ac.il>
To: George Mills <mills@ultranet.com>
Date: Monday, July 20, 1998 1:55 PM
Subject: 3_D Graphs


>Hi,
>
>3-D graphing in MSW was not yet demonstrated here. Can we trace, e.g.
>z=sin (x*y)?
>[You can see it in Brian's Simply Scheme (p.16): x and y go from 0 to 3,
>drawn by Mathematica.]
>
>Regards...
>
>[[Yehuda]]
>
>    _/    _/     _/ _/_/_/_/_/ _/_/_/_/
>   _/   _/     _/_/    _/          _/
>  _/_/_/     _/  _/   _/        _/
> _/   _/   _/_/_/_/  _/      _/
>_/     _/_/      _/ _/     _/_/_/_/
>
>http://www.geocities.com/CollegePark/lab/2276/
>e-mail: yehuka@beitberl.ac.il
>
>

z_sin_xy.GIF