manipulate命令

aqaqaaq

( [3 }0 D) M- f& t- E1 q5 Y- A- g

小弟初学mathematica,有些问题想请教下大哥大姐们。

x =.; y =.
- o4 y5 ]% Q0 T% W- x' j+ j

x1 = 2; y1 = 0;
7 A! W% O, G+ H1 Q& ?  k, q0 l

x2 = 0; y2 = -1;
9 R2 c7 {+ K# \7 C" l

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
( G! e7 O% B6 f7 m7 v

   a -> 1;
: B1 J$ |2 x4 q  D& \( P) G

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
. l, r) [! F. S  s* {- h' K. A& N( y

x3 = (x1 + x2)/2;
9 V7 H: ^! Z( w( A

eq2 = x == x3;

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
9 q+ j; J: k6 b+ K) q

temp2 = y /. Solve[{eq1, eq2}, {x, y}];

ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
; m, ]# Q9 m3 h+ N5 [9 @

   Axes -> True];
) g& W# l. f1 z* k/ ?& G: }1 ?

Show[ob, ve]
# h" B6 d* C+ Y/ M3 `8 A1 k

写了几行代码，运行后是这样的

（不会填，抱歉）

2 h' m1 M8 G! W) Sfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

现在想改变a的值，然后垂直线也随着斜线的改变而改变

Manipulate[Show[ob,ve],{a,0,1}]
2 l# }- V( Z+ `) A; i

但是运行后没有结果，哪位高手帮忙解答下，多谢。

gaoshanliu水