本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 - `" S. S8 e0 F, S' l
* E" Y- X4 | E) \2 A* F! a小弟初学mathematica,有些问题想请教下大哥大姐们。
# j9 d' b8 m: Q, L5 a x =.; y =.
4 H% |7 o1 m7 f' F x1 = 2; y1 = 0;/ K+ ~6 n) h: |
x2 = 0; y2 = -1;' m. C) L8 ~7 P$ U
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
. t" D( Z8 e4 N! } a -> 1;7 r( a4 ]5 U; v! T
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;% c& P' O" [1 ~, M/ g, q8 E
x3 = (x1 + x2)/2;
3 V0 o! `5 C' E" B eq2 = x == x3;& e0 Y. H: h$ W3 z: a
temp1 = x /. Solve[{eq1, eq2}, {x, y}];1 Z' |5 G8 j$ l9 d3 p3 q2 m* g
temp2 = y /. Solve[{eq1, eq2}, {x, y}];# k+ `2 R; Z* x: d$ }: y
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
. c5 S0 K9 l9 z; ?' B Axes -> True];" T2 e4 V, ]) l# t' q5 h7 T
Show[ob, ve]. P( k! A _4 a* x
写了几行代码,运行后是这样的 (不会填,抱歉)
% K& k' a$ i& Z6 ~5 W 9 w4 o( L+ g. [
file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
! t- Q$ X% j& N3 Y3 f1 v 现在想改变a的值,然后垂直线也随着斜线的改变而改变
- R; O# q" I8 @/ @% g/ ^ Manipulate[Show[ob,ve],{a,0,1}]
; g' e0 Z" l6 N5 }+ |) T 但是运行后没有结果,哪位高手帮忙解答下,多谢。 |