数学建模社区-数学中国
标题: manipulate命令 [打印本页]
作者: aqaqaaq 时间: 2011-2-24 16:15
标题: manipulate命令
本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 ( U1 e9 t( n, q- I9 {
+ L% ^$ Y) U- r% K) m( }& z0 M% o6 X小弟初学mathematica,有些问题想请教下大哥大姐们。2 e* g, @: @3 _7 s0 X8 }; ~
x =.; y =.. H& j* a. R& X4 z: s
x1 = 2; y1 = 0;
- l$ X. B5 C7 ^- r
x2 = 0; y2 = -1;
* Z& p% c( _* O9 |/ a
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. ) I4 u! ^% J8 U0 w* W) v
a -> 1;
7 J f1 t( ?( a @. }1 s6 w# c
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;# H; i( G: @9 P5 v$ }+ P
x3 = (x1 + x2)/2;" I2 i) w ^8 e; D
eq2 = x == x3;
& J' }, h1 G' k
temp1 = x /. Solve[{eq1, eq2}, {x, y}];+ `7 e& |5 D6 ^+ q3 o
temp2 = y /. Solve[{eq1, eq2}, {x, y}];; M% d* u* O6 g& z0 w
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
6 q- B# x: ?8 u( b5 n1 D
Axes -> True];
: q. P5 h$ A) _! E) X! s4 U- x5 V
Show[ob, ve]
; v' @- i0 x$ n4 b! T
写了几行代码，运行后是这样的
（不会填，抱歉）" m l1 k, h/ ~, ?1 a4 M3 e
3 I5 s7 [+ r! J+ |/ i. t; N% lfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png5 r/ Q+ c$ K0 x& @9 @5 c. B' c
现在想改变a的值，然后垂直线也随着斜线的改变而改变
. u) h3 C8 H, g
Manipulate[Show[ob,ve],{a,0,1}]
% R# l* F3 U5 I5 ^$ ^
但是运行后没有结果，哪位高手帮忙解答下，多谢。
作者: gaoshanliu水 时间: 2011-2-25 13:28
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) |
Powered by Discuz! X2.5 |