- 注册时间
- 2009-3-10
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 2344
- 在线时间
- 小时
|
发表于 2023-2-13 20:29:11
|
显示全部楼层
本帖最后由 dlsh 于 2023-2-13 20:59 编辑
- AD是角平分线,求证:AB = PQ,PQ // BC
- \!\(\*OverscriptBox["b", "_"]\) = b = 0;
- \!\(\*OverscriptBox["c", "_"]\) = c = 1;
- a = 1/(1 - \[Lambda] v);
- \!\(\*OverscriptBox["a", "_"]\) = v/(v - \[Lambda] );(*假设
- \!\(\*OverscriptBox["AC", "_"]\) /
- \!\(\*OverscriptBox["AB", "\[RightVector]"]\)=\[Lambda]v*)
- \!\(\*OverscriptBox["d", "_"]\) = d = 1/(1 - \[Lambda] ); o = 1/(
- 1 - v^2);
- \!\(\*OverscriptBox["o", "_"]\) = -(v^2/(
- 1 - v^2));(*内角平分线性质定理,圆心角是圆周角2倍*)
- (*a,d,o各点复坐标由向量定比分点公式求出*)
- KAB[a_, b_] := (a - b)/(
- \!\(\*OverscriptBox["a", "_"]\) -
- \!\(\*OverscriptBox["b", "_"]\));
- \!\(\*OverscriptBox["KAB", "_"]\)[a_, b_] := 1/KAB[a, b](*复斜率定义*)
- \!\(\*OverscriptBox["p", "_"]\) =
- \!\(\*OverscriptBox["KAB", "_"]\)[a, d] (p - a) +
- \!\(\*OverscriptBox["a", "_"]\);(*P在直线AD上*)
- \!\(\*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)));
- f = FourPoint[a, b, c, p];
- \!\(\*OverscriptBox["f", "_"]\) =
- \!\(\*OverscriptBox["FourPoint", "_"]\)[a, b, c, p]; e =
- FourPoint[a, c, b, p];
- \!\(\*OverscriptBox["e", "_"]\) =
- \!\(\*OverscriptBox["FourPoint", "_"]\)[a, c, b, p];
- q = Jd[-KAB[a, o], a, KAB[e, f], e];
- \!\(\*OverscriptBox["q", "_"]\) =
- \!\(\*OverscriptBox["Jd", "_"]\)[-KAB[a, o], a, KAB[e, f], e];
- Simplify[{1,
- \!\(\*OverscriptBox["p", "_"]\), , f,
- \!\(\*OverscriptBox["f", "_"]\), , e,
- \!\(\*OverscriptBox["e", "_"]\)}]
- Simplify[{2, q,
- \!\(\*OverscriptBox["q", "_"]\)}]
- Simplify[{3, a - q, p - q, (a - q)/(p - q)}]
- Simplify[KAB[p, q](*验证AB//PQ *)
复制代码
Edge,QQ,360浏览器都传不了图 |
|