|
如何判断E和F点,不知道算不出来的原因
- Clear["Global`*"]
- \!\(\*OverscriptBox["b", "_"]\) = b = 0;
- \!\(\*OverscriptBox["c", "_"]\) = c = 1; a = 1/(1 - v);
- \!\(\*OverscriptBox["a", "_"]\) = -(v/(1 - v));(*因为AB=AC,设
- \!\(\*OverscriptBox["AC", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["AB", "\[RightVector]"]\)=v*)
- d = v;
- \!\(\*OverscriptBox["d", "_"]\) = 1/d;
- g = (a + d)/2;
- \!\(\*OverscriptBox["g", "_"]\) = (
- \!\(\*OverscriptBox["a", "_"]\) +
- \!\(\*OverscriptBox["d", "_"]\))/2;
- KAB[a_, b_] := (a - b)/(
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\));
- \!\(\*OverscriptBox["KAB", "_"]\)[a_, b_] := 1/KAB[a, b];(*复斜率定义*)
- KAB[a_, b_, c_] := KAB[a, b]/KAB[b, c];(*e^(2iB) 等于复斜率相除*)
- Simplify[{
- \!\(\*OverscriptBox["d", "_"]\)}]
- Simplify[{KAB[a, b], KAB[a, c]}]
- Simplify[Solve[{z
- \!\(\*OverscriptBox["z", "_"]\) == a
- \!\(\*OverscriptBox["a", "_"]\), KAB[z, g] == v}, {z,
- \!\(\*OverscriptBox["z", "_"]\)}]]
- Simplify[{KAB[z, d], KAB[b, d], KAB[z, d, b]} /. Solve[{z
- \!\(\*OverscriptBox["z", "_"]\) == a
- \!\(\*OverscriptBox["a", "_"]\), KAB[z, g] == v}, {z,
- \!\(\*OverscriptBox["z", "_"]\)}]]
- (*Simplify[{KAB[f,d],KAB[b,d],KAB[f,d,b]}]
- Simplify[{KAB[e,d],KAB[b,d],KAB[e,d,b]}]*)
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|