Dec 052017
 
Plot ANY function (X,Y,Z,values) in 3D. Scaled, increments, etc.
File GRAPH.ZIP from The Programmer’s Corner in
Category Printer + Display Graphics
Plot ANY function (X,Y,Z,values) in 3D. Scaled, increments, etc.
File Name File Size Zip Size Zip Type
3DGRAPH.COM 24964 14999 deflated
3DGRAPH.DOC 2738 934 deflated

Download File GRAPH.ZIP Here

Contents of the 3DGRAPH.DOC file




3D GRAPH

BY Joe Martin
Ft. Walton Bch. FL 32548
1-904-862-7108


3D Graph is a 3 dimensional equation plotter. Plotted on an imaginary
xyz coordinate system. You have the ability to rotate the graph,
determine the object to image perspective distances, adjust the X and Y
ranges as well as their increments, state translations of both the X
and the Y axes and scale on both X and Y axes.

So experiment with the default equation then try some of the others at
the end of the doc.

Menu
Z:=2*COS(0.1*(X^2+Y^2)) The equation may be edited with backspace,
cursor keys, and the home key

YRot: Rotate along Y axis suggested range (-1.0 thru 1.0)
XRot: Rotate along X axis range (0.6 - 1.4)
Obj : distance of object from origin (20-100)
Im : distance of Image(screen) from origin (500-1000)

XRan: most equations should have a range of 10 which means (-10 to 10)
YRan: most equations should have a range of 10 which means (-10 to 10)
XInc: the step value of the loop (2.0 to 0.25)
YInc:

XTr : X Translation factor (200)
YTr : Y Translation factor (100)

ScX : Scale X (2.0)
ScY : Scale Y (1.0)

When you have made the adjustments ESC will start the plot.
Some error checking is done but overflow errors will crash the system.



Try these:

Z := 0.2*(0.1*(X/Y)^2-0.1*(Y/X)^2)+6*EXP(-1.9*(X^2+Y^2))
YRot:0.8 XRot:1.8 XRange:4 YRange:5 Obj:45 Im:900
Inc:0.25

Z := 0.5*(-0.1*(X/Y)^2-0.3*(Y/X)^2)+8*EXP(-0.1*(X^2+Y^2))
YRot:0.8 XRot:1.4 XRange:10 YRange:10 Obj:75 Im:900
Inc:0.50

Z := 0.02*(X*X*Y/X/Y)
YRot:0.3 XRot:1.2 XRange:10 YRange:10 Obj:50 Im:800
Inc:0.50

Z := 1/12*(SIN(X)*SIN(Y))
YRot:0.6 XRot:0.8 XRange:4 YRange:4 Obj:45 Im:900
Inc:0.25

Z := 2*COS(0.1*(X^2+Y^2))-2*SIN(0.1*(X^2+Y^2))
YRot:0.3 XRot:1.2 XRange:10 YRange:10 Obj:50 Im:750
Inc:0.25

Z := 0.5*(0.2*(X/Y)^2-0.2*(Y/X)^2)
YRot:0.3 XRot:1.8 XRange:10 YRange:10 Obj:45 Im:900
Inc:0.50

Z := 3*SIN(-0.05*(X^2-Y^2))-2*COS(0.1*(X^2+Y^2))
YRot:-0.6 XRot:1.2 XRange:10 YRange:10 Obj:50 Im:550
Inc:0.50



 December 5, 2017  Add comments

Leave a Reply