数学建模社区-数学中国
标题: manipulate命令 [打印本页]
作者: aqaqaaq 时间: 2011-2-24 16:15
标题: manipulate命令
本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑
! }8 m% B- `0 }4 R) y3 s# u
" J# ~ s) o2 x1 p/ v小弟初学mathematica,有些问题想请教下大哥大姐们。
U- z0 b; U- }9 z) B
x =.; y =.7 h8 f+ ^! ~2 |5 w% n/ D
x1 = 2; y1 = 0;; h. a3 }. d! c! }
x2 = 0; y2 = -1;& g' s4 T- m. g/ Y5 l- R
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. / V5 ~. H0 Q- N- h
a -> 1;
3 v: a/ B1 v ^/ D
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;' V6 T% C$ T: N- s# j
x3 = (x1 + x2)/2;
/ y# c; w' o' p3 i5 Q' q
eq2 = x == x3;; ]. Z' z# ~) q/ j6 _; ?6 E
temp1 = x /. Solve[{eq1, eq2}, {x, y}];
+ k( H: [8 |( B! q6 k3 `
temp2 = y /. Solve[{eq1, eq2}, {x, y}];$ s2 U& h8 c4 R, _+ Y7 ?! H
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, : B, x& A6 o, W4 {' i8 R
Axes -> True];
6 D) k0 V' h/ Q* G# _
Show[ob, ve]
1 b: Y6 a% F6 U' g2 _4 v7 _
写了几行代码，运行后是这样的
（不会填，抱歉）% w, Z6 \! u+ e. b2 |; D
7 Z8 x% S2 L) H4 G$ f
file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png3 T" S/ N5 k* M3 B8 ~
现在想改变a的值，然后垂直线也随着斜线的改变而改变$ t$ O! t# l+ Z/ j/ G/ e
Manipulate[Show[ob,ve],{a,0,1}]4 |5 ~' d/ U0 [ u4 C" A
但是运行后没有结果，哪位高手帮忙解答下，多谢。
作者: gaoshanliu水 时间: 2011-2-25 13:28
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) |
Powered by Discuz! X2.5 |