manipulate命令

aqaqaaq

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

x =.; y =.
4 |; v, m: x( X0 C+ ^& z

x1 = 2; y1 = 0;
* c+ S# Z1 G( L1 x6 M- D& o  X) L* H

x2 = 0; y2 = -1;
, T- \. k7 k0 D( y- H

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.

   a -> 1;

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;

x3 = (x1 + x2)/2;
: u; k/ x$ s0 P/ i

eq2 = x == x3;
! z, m1 S& m4 g$ A" _

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
, v+ c/ [$ E' D' Z  N% W

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
7 }) p  V' w8 p( U7 a; o5 ~$ R2 b

ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
9 V! n: c& w# j

   Axes -> True];

Show[ob, ve]

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

（不会填，抱歉）
: B+ {  ?- K  c$ c+ ]

; p' t. y! L: _' }, Nfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

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

Manipulate[Show[ob,ve],{a,0,1}]
5 I# q/ ^6 A# I3 e1 Y8 l5 q

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

gaoshanliu水