repo.or.cz
/
maxima.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge branch 'rtoy-wrap-option-args'
[maxima.git]
/
doc
/
info
/
figures
/
draw_enhanced3d5.mac
blob
99f7a2e563b01136a4e5b389a0952084ec83d5ab
1
load("docdraw.mac");
2
m: apply(
3
matrix,
4
makelist(makelist(cos(i^2/80-k/30),k,1,30),i,1,20)
5
)$
6
docdraw3d("figures/draw_enhanced3d5",
7
enhanced3d = [cos(x*y*10),x,y],
8
elevation_grid(m,-1,-1,2,2),
9
xlabel = "x",
10
ylabel = "y"
11
)$