|

楼主 |
发表于 2023-6-14 20:59
|
显示全部楼层
- Clear["Global`*"]
- \!\(\*OverscriptBox["a", "_"]\) = a = 0;
- \!\(\*OverscriptBox["b", "_"]\) = 1/b;(*假设A在原点,AC与实轴重合,AB=1*)
- \!\(\*OverscriptBox["c", "_"]\) = c = (b +
- \!\(\*OverscriptBox["b", "_"]\))/2;
- \!\(\*OverscriptBox["d", "_"]\) = d = c/2; e = (1 - d) b;
- \!\(\*OverscriptBox["e", "_"]\) = (1 - d)
- \!\(\*OverscriptBox["b", "_"]\); f = (d + e)/2;
- \!\(\*OverscriptBox["f", "_"]\) = (
- \!\(\*OverscriptBox["d", "_"]\) +
- \!\(\*OverscriptBox["e", "_"]\))/2;
- KAB[a_, b_] := (a - b)/(
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\));
- \!\(\*OverscriptBox["KAB", "_"]\)[a_, b_] := 1/KAB[a, b];(*复斜率定义*)
- Angle2[a_, b_, c_] := KAB[a, b]/KAB[b, c];(*e^(2iB) 等于复斜率相除*)
- Tan1[a_, b_, c_] := (KAB[a, b] - KAB[b, c])/(KAB[b, c] + KAB[a, b]) I;
- \!\(\*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));
- Simplify[{1, , d,
- \!\(\*OverscriptBox["d", "_"]\), , e,
- \!\(\*OverscriptBox["e", "_"]\), , f,
- \!\(\*OverscriptBox["f", "_"]\)}]
- Simplify[{2, KAB[d, e], KAB[a, e], , KAB[f, b]}]
- Simplify[{3, Angle2[d, e, a], Angle2[c, b, f],
- Angle2[d, e, a] == Angle2[c, b, f]}](*平方单位验证角度相等*)
- Simplify[{30, Tan1[d, e, a], Tan1[c, b, f],
- Tan1[d, e, a] == Tan1[c, b, f]}](*平方单位验证角度相等*)
- Simplify[{4, d - e, a - e, , f - b, , (d - e)/(a - e), (c - b)/(
- f - b), , ((d - e)/(a - e))/((c - b)/(f - b)), , ((
- \!\(\*OverscriptBox["d", "_"]\) -
- \!\(\*OverscriptBox["e", "_"]\))/(
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["e", "_"]\)))/((
- \!\(\*OverscriptBox["c", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\))/(
- \!\(\*OverscriptBox["f", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\)))}](*验证虚部为0*)
- Simplify[{5, (d - e)/(a - e)/(c - b)/(f - b), , (
- \!\(\*OverscriptBox["d", "_"]\) -
- \!\(\*OverscriptBox["e", "_"]\))/(
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["e", "_"]\))/(
- \!\(\*OverscriptBox["c", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\))/(
- \!\(\*OverscriptBox["f", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\))}](*验证斜线当除法是否需要加括号*)
- Simplify[((d - e)/(a - e))/((c - b)/(f - b)) == ((
- \!\(\*OverscriptBox["d", "_"]\) -
- \!\(\*OverscriptBox["e", "_"]\))/(
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["e", "_"]\)))/((
- \!\(\*OverscriptBox["c", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\))/(
- \!\(\*OverscriptBox["f", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\)))]
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|