本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑
0 x8 r5 X; ^ U3 D& T+ q/ H& q( l% z9 }. D) r1 k# Y
小弟初学mathematica,有些问题想请教下大哥大姐们。' ~+ @' A, }/ n, a, t
x =.; y =.
" u a' l5 m4 G c/ k7 i( I' O x1 = 2; y1 = 0;2 r6 o& [7 w7 R7 I2 w' r) l( C
x2 = 0; y2 = -1;
& F0 @- y9 p0 V/ d ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. , r) P+ V: u* v0 `- q, i
a -> 1;) Y1 \% A+ Q. Z d) t. _
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;( M/ s) B3 T- ~6 l6 ^" a
x3 = (x1 + x2)/2;
|# o' ] b8 ]2 c eq2 = x == x3;3 Z" H& J$ ]% D0 f
temp1 = x /. Solve[{eq1, eq2}, {x, y}];" x3 V& G5 f1 N( r5 R
temp2 = y /. Solve[{eq1, eq2}, {x, y}];8 T) I& U5 z& _. b3 H
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, : Q `( G% }- M) p+ o- a
Axes -> True];
8 w" z) F( o2 u Show[ob, ve]
" N* n# `7 |+ \ W6 e 写了几行代码，运行后是这样的 （不会填，抱歉）' P6 g# M; x* _* F
* B2 E/ v2 G" R3 K7 O# C1 x
file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
0 U- g T* V3 s, G! R! {' |( X, ~ 现在想改变a的值，然后垂直线也随着斜线的改变而改变5 O7 ~" I n) y% W9 S7 o% L: T$ V
Manipulate[Show[ob,ve],{a,0,1}]* a, U7 o# n# w
但是运行后没有结果，哪位高手帮忙解答下，多谢。 | 
IP卡
狗仔卡
发表于 2011-2-24 16:15
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
