本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 . E( n" _/ Y y, V$ p* W: l
8 ]. J/ ?. k1 Q2 L# O, K: R小弟初学mathematica,有些问题想请教下大哥大姐们。
% i E/ s9 o4 ` E# w: j7 X9 x6 j x =.; y =.
% v; v1 h& m* Y# `- B4 v+ C( ] x1 = 2; y1 = 0;
9 T: y7 H n) o. Y0 d x2 = 0; y2 = -1;
6 L2 M1 |) T4 O( ^. i ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
$ ?! X; @) }/ f5 i a -> 1;
5 @. Y+ Q- G. {7 ^ eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
3 r5 j- Q [* \' _4 ^8 y7 _0 j x3 = (x1 + x2)/2;
6 f i. f* ~. h3 a+ U eq2 = x == x3;
6 ~" W' D3 A0 V- [; n& u6 P temp1 = x /. Solve[{eq1, eq2}, {x, y}];
. }8 r( o: L8 Y5 h. Q# h$ ~! g4 y! } temp2 = y /. Solve[{eq1, eq2}, {x, y}];
L8 n. l: f6 e; M# I/ |8 C ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, : v0 z- u' m/ e1 X
Axes -> True];
9 k9 [# Z, {; e0 J Show[ob, ve]$ M) X5 J1 J( W, w- _
写了几行代码,运行后是这样的 (不会填,抱歉)+ o6 I2 k! c, `+ V
& j7 g) y$ [9 N* v9 c0 }file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
$ C) ^# ]: C8 _1 i7 e& W0 z* u
现在想改变a的值,然后垂直线也随着斜线的改变而改变
- a1 k1 \' w" ]* W Manipulate[Show[ob,ve],{a,0,1}]
8 o4 L+ f+ b4 ]3 R& W4 x9 r$ Q 但是运行后没有结果,哪位高手帮忙解答下,多谢。 |