- 注册时间
- 2009-3-10
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 2345
- 在线时间
- 小时
|
发表于 2024-4-30 22:54:46
|
显示全部楼层
- \!\(\*OverscriptBox[\(a\), \(_\)]\) = 1/a;
- \!\(\*OverscriptBox[\(e\), \(_\)]\) = 1/e;
- \!\(\*OverscriptBox[\(c\), \(_\)]\) = 1/c;
- \!\(\*OverscriptBox[\(u\), \(_\)]\) = 1/u;
- \!\(\*OverscriptBox[\(v\), \(_\)]\) = 1/v;
- \!\(\*OverscriptBox[\(w\), \(_\)]\) = 1/w;(*三角形AEC外接圆心作原点
- e^i\[Gamma]=u,e^i\[Beta]=w,e^i\[Beta]=v*)
- Fendian[t_, a_, b_] := (a - t b )/(1 - t );
- \!\(\*OverscriptBox[\(Fendian\), \(_\)]\)[t_, a_, b_] := (
- \!\(\*OverscriptBox[\(a\), \(_\)]\) -
- \!\(\*OverscriptBox[\(t\), \(_\)]\)
- \!\(\*OverscriptBox[\(\(b\)\(\ \)\), \(_\)]\))/(1 -
- \!\(\*OverscriptBox[\(\(t\)\(\ \)\), \(_\)]\) );
- Md[a_, b_] := (a + b )/2;
- \!\(\*OverscriptBox[\(Md\), \(_\)]\)[a_, b_] := (
- \!\(\*OverscriptBox[\(a\), \(_\)]\) +
- \!\(\*OverscriptBox[\(\(b\)\(\ \)\), \(_\)]\))/2 ;
- f = (a u - e)/(u - 1);
- \!\(\*OverscriptBox[\(f\), \(_\)]\) = (
- \!\(\*OverscriptBox[\(\(a\)\(\ \)\), \(_\)]\)/u -
- \!\(\*OverscriptBox[\(e\), \(_\)]\))/(
- \!\(\*OverscriptBox[\(u\), \(_\)]\) - 1); d = (e v - c)/(v - 1);
- \!\(\*OverscriptBox[\(d\), \(_\)]\) = (
- \!\(\*OverscriptBox[\(e\), \(_\)]\)/v -
- \!\(\*OverscriptBox[\(c\), \(_\)]\))/(
- \!\(\*OverscriptBox[\(v\), \(_\)]\) - 1); b = (c w - a)/(w - 1);
- \!\(\*OverscriptBox[\(b\), \(_\)]\) = (
- \!\(\*OverscriptBox[\(c\), \(_\)]\)/w -
- \!\(\*OverscriptBox[\(a\), \(_\)]\))/(
- \!\(\*OverscriptBox[\(w\), \(_\)]\) - 1);
- L = Md[a, e];
- \!\(\*OverscriptBox[\(L\), \(_\)]\) =
- \!\(\*OverscriptBox[\(Md\), \(_\)]\)[a, e]; g = Md[f, b];
- \!\(\*OverscriptBox[\(g\), \(_\)]\) =
- \!\(\*OverscriptBox[\(Md\), \(_\)]\)[f, b];
- h = Md[a, c];
- \!\(\*OverscriptBox[\(h\), \(_\)]\) =
- \!\(\*OverscriptBox[\(Md\), \(_\)]\)[a, c]; i = Md[d, b];
- \!\(\*OverscriptBox[\(i\), \(_\)]\) =
- \!\(\*OverscriptBox[\(Md\), \(_\)]\)[d, b];
- j = Md[c, e];
- \!\(\*OverscriptBox[\(j\), \(_\)]\) =
- \!\(\*OverscriptBox[\(Md\), \(_\)]\)[c, e]; k = Md[d, f];
- \!\(\*OverscriptBox[\(k\), \(_\)]\) =
- \!\(\*OverscriptBox[\(Md\), \(_\)]\)[d, f];
- Sqd[a_, b_] := (a - b) (
- \!\(\*OverscriptBox[\(a\), \(_\)]\) -
- \!\(\*OverscriptBox[\(b\), \(_\)]\));(*AB距离平方*)
- Juli[a_, b_] := Sqrt[Sqd[a, b]];(*AB距离*)
- KAB[a_, b_] := (a - b)/(
- \!\(\*OverscriptBox[\(a\), \(_\)]\) -
- \!\(\*OverscriptBox[\(b\), \(_\)]\));(*复斜率定义*)
- (*Overscript[KAB, _][a_,b_]:=1/KAB[a,b];*)
- Angle2[a_, b_, c_] := KAB[a, b]/KAB[b, c];(*e^(2iB)等于复斜率相除*)
- \!\(\*OverscriptBox[\(Jd\), \(_\)]\)[k1_, a1_, k2_, a2_] := -((a1 - k1
- \!\(\*OverscriptBox[\(a1\), \(_\)]\) - (a2 - k2
- \!\(\*OverscriptBox[\(a2\), \(_\)]\)))/(
- k1 - k2));(*复斜率等于k1,过点A1与复斜率等于k2,过点A2的直线交点*)
- Jd[k1_, a1_, k2_, a2_] := -((k2 (a1 - k1
- \!\(\*OverscriptBox[\(a1\), \(_\)]\)) - k1 (a2 - k2
- \!\(\*OverscriptBox[\(a2\), \(_\)]\)))/(k1 - k2));
- FourPoint[a_, b_, c_, d_] := ((
- \!\(\*OverscriptBox[\(c\), \(_\)]\) d - c
- \!\(\*OverscriptBox[\(d\), \(_\)]\)) (a - b) - (
- \!\(\*OverscriptBox[\(a\), \(_\)]\) b - a
- \!\(\*OverscriptBox[\(b\), \(_\)]\)) (c - d))/((a - b) (
- \!\(\*OverscriptBox[\(c\), \(_\)]\) -
- \!\(\*OverscriptBox[\(d\), \(_\)]\)) - (
- \!\(\*OverscriptBox[\(a\), \(_\)]\) -
- \!\(\*OverscriptBox[\(b\), \(_\)]\)) (c - d));(*过两点A和B、C和D的交点*)
- \!\(\*OverscriptBox[\(FourPoint\), \(_\)]\)[a_, b_, c_, d_] := -(((c
- \!\(\*OverscriptBox[\(d\), \(_\)]\) -
- \!\(\*OverscriptBox[\(c\), \(_\)]\) d) (
- \!\(\*OverscriptBox[\(a\), \(_\)]\) -
- \!\(\*OverscriptBox[\(b\), \(_\)]\)) - ( a
- \!\(\*OverscriptBox[\(b\), \(_\)]\) -
- \!\(\*OverscriptBox[\(a\), \(_\)]\) b) (
- \!\(\*OverscriptBox[\(c\), \(_\)]\) -
- \!\(\*OverscriptBox[\(d\), \(_\)]\)))/((a - b) (
- \!\(\*OverscriptBox[\(c\), \(_\)]\) -
- \!\(\*OverscriptBox[\(d\), \(_\)]\)) - (
- \!\(\*OverscriptBox[\(a\), \(_\)]\) -
- \!\(\*OverscriptBox[\(b\), \(_\)]\)) (c - d)));
- n1 = FourPoint[k, h, L, i]; n2 = FourPoint[k, h, g, j];
- Simplify[{1, Sqd[e, f], Sqd[e, d], Sqd[a, b]}]
- Simplify[{2, Sqd[e, f] - Sqd[e, d], , Sqd[e, f] - Sqd[a, b]}]
- FullSimplify[{21, Sqd[e, f] - Sqd[e, d], , Sqd[e, f] - Sqd[a, b]}]
- Factor[{20, Sqd[e, f] - Sqd[e, d], , Sqd[e, f] - Sqd[a, b]}]
- Simplify[{3, n1, n2, , n1 - n2}]
- Factor[{30, n1, n2, , n1 - n2}]
复制代码
复数方法对于非线性构造没有优势 |
|