本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 # w# z& e |& T5 E/ \# I; V; [. B
- ~3 J- W& h5 ]+ E' j N小弟初学mathematica,有些问题想请教下大哥大姐们。
" ^ Y. l. u% q, k# y1 t" @ D7 l1 Z x =.; y =.$ i% S/ i: A- I+ `; s R2 A" A/ ? P
x1 = 2; y1 = 0;
, e5 G. _0 ^0 l! q7 J Z x2 = 0; y2 = -1;
6 B0 E4 d |4 {. D2 x, _ ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
& v2 w% w' e- Z$ ?* @% y& C9 b a -> 1;
6 T- ?# w4 v$ ] eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
. y; d2 f0 c* k7 m: k. o x3 = (x1 + x2)/2;9 `) P0 r9 |! L; c, n
eq2 = x == x3;% ]% ~) E7 t& @9 L
temp1 = x /. Solve[{eq1, eq2}, {x, y}];
8 s% L0 e) a( C5 F \ temp2 = y /. Solve[{eq1, eq2}, {x, y}];! v6 {) A1 Y, x
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, + \" f/ v2 m3 F. z
Axes -> True];
r* N0 l+ ` K- B) F6 H7 ?4 m8 S Show[ob, ve]) x8 S; N+ v7 c" d
写了几行代码,运行后是这样的 (不会填,抱歉)
) N0 E$ x+ Q$ x$ z9 J% w
1 o+ a! t" x5 rfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png. c: t2 \& @( M5 f; Q& z) `3 s j8 V
现在想改变a的值,然后垂直线也随着斜线的改变而改变
- T1 E4 G( O; V N: M" e Manipulate[Show[ob,ve],{a,0,1}]0 ^& O" O# ^* W! V3 m& @% g
但是运行后没有结果,哪位高手帮忙解答下,多谢。 |