Essays/Isometric Surfaces/Isometric Surfaces02

From J Wiki
Jump to navigation Jump to search


Isometric Surfaces

GIS0200C.jpg


...

... the surfaces can be viewed from the top for the purpose of visualization ...

...


load 'plot'
load 'numeric'

u1=:steps 0 6 30
u2=:steps 0 2p1 30

p=:1

y1=:u1(%:@(*:@[+p*p"_)*/2&o.@])u2
y2=:u1(%:@(*:@[+p*p"_)*/1&o.@])u2
y3=:u1((p*_6&o.@(p%~%:@(*:@[+p*p"_)))*/$@]$1:)u2

pd 'type surface'
pd 'viewpoint 0.1 0 100'
pd y1;y2;y3
pd 'pdf'
pd 'show'


ISurfaceS3.jpg


load 'plot'
load 'numeric'

u1=:steps 0 6 30
u2=:steps 0 2p1 30

p=:1

y1=:u1([*/2&o.@])u2
y2=:u1([*/1&o.@])u2
y3=:u1(($@[$1:)*/p*])u2

pd 'type surface'
pd 'viewpoint 0.1 0 100'
pd y1;y2;y3
pd 'pdf'
pd 'show'


ISurfaceS4.jpg



Download: File:LIS0200C.txt




Download MoinMoin source: File:IsometricSurfaces02.ijs




Prev Page: Essays/Isometric Surfaces/Isometric Surfaces01