manipulate命令

aqaqaaq

小弟初学mathematica,有些问题想请教下大哥大姐们。
$ `* k$ L  [# i9 ~& p3 K, o

x =.; y =.

x1 = 2; y1 = 0;
$ }# ~% W- h  o7 l1 O9 B4 g

x2 = 0; y2 = -1;
1 u" s( J7 u5 y' f2 @

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
  t* e( f* r  y* _3 k% l

   a -> 1;

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

x3 = (x1 + x2)/2;
' j  `; J) o, f

eq2 = x == x3;

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

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
, L+ Q" |, Z, N  N

ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
  ]! R' m( |: q5 ?0 K+ h8 i

   Axes -> True];
7 z( U) h4 W5 e1 p

Show[ob, ve]
$ `8 Y+ V( m4 ]

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

（不会填，抱歉）

" {" o& ?0 u/ L# i! @& x3 y6 G4 ifile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
  \; O6 c1 m) u; W; ^% O  M9 d- Y/ ]

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

Manipulate[Show[ob,ve],{a,0,1}]

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

gaoshanliu水