数学建模社区-数学中国
标题: manipulate命令 [打印本页]
作者: aqaqaaq 时间: 2011-2-24 16:15
标题: manipulate命令
本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 ' o! V* g3 D; t3 c
+ R, R9 d ]7 y! m" F! S
小弟初学mathematica,有些问题想请教下大哥大姐们。
: d% a% d* M) q; E |
x =.; y =.2 z$ V/ Z1 n; D, N* F) l( Z
x1 = 2; y1 = 0;
4 L6 M. T- v+ ?; b
x2 = 0; y2 = -1;
( s; m9 X3 B1 z9 }' U2 _
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. ) ]1 l4 r! O, d7 c
a -> 1; N7 ]$ y/ w) Q4 z
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;7 n$ d. Q1 z: t1 g0 S; m* `; L) c
x3 = (x1 + x2)/2;
8 K- V+ ]+ |4 n; H: _
eq2 = x == x3;
4 R* W6 _, A+ ]% H* Q
temp1 = x /. Solve[{eq1, eq2}, {x, y}];8 t* Y' m+ q3 a5 U/ F2 f
temp2 = y /. Solve[{eq1, eq2}, {x, y}];
+ V3 g/ E5 k. d% u( |* `4 K. n" \* g
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, ! _: G# C1 J$ a1 }7 J# k
Axes -> True];: {; d T8 A. B$ L
Show[ob, ve], D1 w$ Z( b. Z9 ^) b4 i7 h& Y
写了几行代码，运行后是这样的
（不会填，抱歉）: j ]9 w% X' C* G. O
$ x, O& H0 g! Y+ G$ ?% p$ p# ufile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
0 N5 Q6 w# a8 m8 f5 r) `$ f9 L+ B- _; d
现在想改变a的值，然后垂直线也随着斜线的改变而改变
) ]( j I/ V$ a$ D
Manipulate[Show[ob,ve],{a,0,1}]
" A& C( G; h% Z% ^' }! o
但是运行后没有结果，哪位高手帮忙解答下，多谢。
作者: gaoshanliu水 时间: 2011-2-25 13:28
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) |
Powered by Discuz! X2.5 |