maxima画图
- 八卦
load(draw)$
draw2d(
dimensions=[800,800], /*大小*/
ip_grid = [1000,1000], /*光滑一点*/
line_width= 1.,
terminal = 'aquaterm,
font = "Kaiti", /*不同系统设置不同字体*/
font_size = 20,
title = "八卦图",
color = blue,
xrange = [-3.3,3.3], yrange=[-3.3,3.3],
proportional_axes=xy,
transform = [ρ.cos(θ), ρ.sin(θ), θ, ρ],
implicit(sin(ρ) / ρ = %e ^ (-θ), θ,0,4*%pi, ρ,-4,4)
)$
- 树
a1: matrix([0.85,0.04],[-0.04,0.85])$
a2: matrix([0.2,-0.26],[0.23,0.22])$
a3: matrix([-0.15,0.28],[0.26,0.24])$
a4: matrix([0,0],[0,0.16])$
p1: [0,1.6]$
p2: [0,1.6]$
p3: [0,0.44]$
p4: [0,0]$
w: [85,92,99,100]$
ifs(w, [a1,a2,a3,a4], [p1,p2,p3,p4], [5,0], 50000, [style,dots],
[box, true], [axes, false], [color, green],
[title, "2019-08-02"])$
- 爱心
load(draw)$
f: sqrt(cos(x)) * cos(200*x) + sqrt(abs(x))$
draw2d(
terminal = 'aquaterm,
color = red,
proportional_axes=xy,
ip_grid = [500,500],
implicit(
(f-7/10)*(4-x*x)**(1/100)=y,
x,-1.6,1.6,
y,-1.6,1.6
)
)$
- 2021 高考题
分析 f(x) = x*(1-log(x)) 单调性, 以及已知 f(1/a) = f(1/b) , 证明: 2 < 1/a + 1/b < e
f(x):=x*(1-log(x))$
wxdraw2d(
explicit(f(x), x, 0, exp(1)),
color = red,
explicit(f(2-x), x, 1, 2),
/* draw again with dots */
color = red,
line_width=6,
line_type=dots,
explicit(f(2-x), x, 1, 2),
color = red,
line_width=6,
line_type=dots,
explicit(f(x), x, 0, 1)
)$
不等式大于2部分的证明思路,用红线构造的对称曲线不大于 f(x), 1<x<2 说明。
可能问题
- terminal = 'aquaterm, -> terminal = [wxt, 1], # 修改画图模式
- set_draw_defaults(terminal=aquaterm)$ # 加到启动脚本中
--- 她说, 她是仙,她不是神