数学建模社区-数学中国
标题: manipulate命令 [打印本页]
作者: aqaqaaq 时间: 2011-2-24 16:15
标题: manipulate命令
本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑
- V) \* j$ ^; @9 Z# U" B
8 B0 I/ r k) s2 I. ^) u小弟初学mathematica,有些问题想请教下大哥大姐们。
* K% B/ b9 |+ K/ S6 m: t
x =.; y =.
6 {2 S& J% J- x5 M
x1 = 2; y1 = 0;- a" y6 E3 h; V0 ^
x2 = 0; y2 = -1;8 d# U% E; c9 J! b& R
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. % z2 u; `; K0 _; k- U
a -> 1;
. K/ c0 S m! |$ n! V# R8 {8 u
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
0 l* t# d' E" P/ q
x3 = (x1 + x2)/2;
! }; y5 s, H7 e8 R
eq2 = x == x3;
* e; o' r) g* o* ~# e
temp1 = x /. Solve[{eq1, eq2}, {x, y}];
v$ l+ G+ H. W4 o4 d* Y
temp2 = y /. Solve[{eq1, eq2}, {x, y}];9 R% K0 B' r. M" d* G( t2 q
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, 2 I k, z, S: J9 u
Axes -> True]; Q# [4 T) T2 T% }& v8 I7 I
Show[ob, ve]
5 g% E" p* w! q
写了几行代码，运行后是这样的
（不会填，抱歉）
; m) c7 U2 `) E, O, Y
3 D1 a0 x! y: O. k, G5 Bfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
* d5 U! F- {+ |( D$ I- C
现在想改变a的值，然后垂直线也随着斜线的改变而改变
T1 B9 @. l: R$ q* M$ B
Manipulate[Show[ob,ve],{a,0,1}]
; I* h1 h2 X9 P( n( h
但是运行后没有结果，哪位高手帮忙解答下，多谢。
作者: gaoshanliu水 时间: 2011-2-25 13:28
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) |
Powered by Discuz! X2.5 |