Essays/Isometric Surfaces/Isometric Surfaces02

From J Wiki
Jump to: navigation, 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