数学建模社区-数学中国
标题: manipulate命令 [打印本页]
作者: aqaqaaq 时间: 2011-2-24 16:15
标题: manipulate命令
本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 + T. m3 V. f- j C' a) ]$ X
+ H( g( U% H- n小弟初学mathematica,有些问题想请教下大哥大姐们。2 i- j/ X- p0 Q, E9 a& M) G
x =.; y =." r8 a$ @. P0 ^ h6 V
x1 = 2; y1 = 0;
! P0 A8 V: F5 V. Q; I/ \
x2 = 0; y2 = -1;
: C5 j4 m6 n1 V; N: l8 y7 g
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. ! ~( v" ~# F8 ^0 B0 N- t# T
a -> 1;
( k0 }1 E' [! g* D* _
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
) ^ P v( B7 Q' g3 D: [" W) f) [
x3 = (x1 + x2)/2;7 ~, r, k, J A$ n$ b0 j" E! B
eq2 = x == x3;' m% `4 E$ h0 b* h. C
temp1 = x /. Solve[{eq1, eq2}, {x, y}];- e$ Q9 i$ d+ g& ?' n* q6 E
temp2 = y /. Solve[{eq1, eq2}, {x, y}];
+ I5 n, Y3 I9 \7 P& |
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
& E; S1 _1 K( e: q- V
Axes -> True];' K! i7 z' k" k3 B* E2 U6 W
Show[ob, ve]1 C: p. k) G$ V7 D2 F7 N3 i6 T
写了几行代码，运行后是这样的
（不会填，抱歉）
. V( ?8 d4 E/ V ?, m r2 s8 N
4 K" {5 @# O9 s/ o6 \2 R% J
file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png8 j3 ?5 {: B9 _" K4 g$ u
现在想改变a的值，然后垂直线也随着斜线的改变而改变; L! K2 j8 r/ A/ u+ @) \; A
Manipulate[Show[ob,ve],{a,0,1}]2 ^4 @5 ], P+ Z7 I+ d. X1 g# o! g
但是运行后没有结果，哪位高手帮忙解答下，多谢。
作者: gaoshanliu水 时间: 2011-2-25 13:28
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) |
Powered by Discuz! X2.5 |