- 注册时间
- 2009-3-10
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 2344
- 在线时间
- 小时
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?欢迎注册
×
- Clear["Global`*"]
- \!\(\*OverscriptBox["a", "_"]\) = 1/a;
- \!\(\*OverscriptBox["b", "_"]\) = 1/b;
- \!\(\*OverscriptBox["c", "_"]\) = 1/c;
- 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)));
- d = FourPoint[b, c, a, o]; e = FourPoint[a, c, b, o]; f =
- FourPoint[b, a, c, o];
- \!\(\*OverscriptBox["FA", "\[RightVector]"]\) = a - f;
- \!\(\*OverscriptBox["FB", "\[RightVector]"]\) = b - f;
- \!\(\*OverscriptBox["DB", "\[RightVector]"]\) = d - b;
- \!\(\*OverscriptBox["DC", "\[RightVector]"]\) = d - c;
- \!\(\*OverscriptBox["EA", "\[RightVector]"]\) = e - a;
- \!\(\*OverscriptBox["EC", "\[RightVector]"]\) = e - c;
- Simplify[{d, e, f}]
- Simplify[{
- \!\(\*OverscriptBox["FA", "\[RightVector]"]\),
- \!\(\*OverscriptBox["FB", "\[RightVector]"]\),
- \!\(\*OverscriptBox["DB", "\[RightVector]"]\),
- \!\(\*OverscriptBox["DC", "\[RightVector]"]\),
- \!\(\*OverscriptBox["EA", "\[RightVector]"]\),
- \!\(\*OverscriptBox["EC", "\[RightVector]"]\), ,
- \!\(\*OverscriptBox["FA", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["FB", "\[RightVector]"]\),
- \!\(\*OverscriptBox["DB", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["DC", "\[RightVector]"]\),
- \!\(\*OverscriptBox["EC", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["EA", "\[RightVector]"]\),
- \!\(\*OverscriptBox["FA", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["FB", "\[RightVector]"]\)
- \!\(\*OverscriptBox["DB", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["DC", "\[RightVector]"]\)
- \!\(\*OverscriptBox["EC", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["EA", "\[RightVector]"]\)}]
- Simplify[{
- \!\(\*OverscriptBox["FA", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["EA", "\[RightVector]"]\),
- \!\(\*OverscriptBox["DB", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["FB", "\[RightVector]"]\),
- \!\(\*OverscriptBox["EC", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["DC", "\[RightVector]"]\),
- \!\(\*OverscriptBox["FA", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["EA", "\[RightVector]"]\)
- \!\(\*OverscriptBox["DB", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["FB", "\[RightVector]"]\)
- \!\(\*OverscriptBox["EC", "\[RightVector]"]\)/
- \!\(\*OverscriptBox["DC", "\[RightVector]"]\)}]
复制代码
Ceva定理,用向量商表示比较准确,但是其中的向量如何表示成长度与单位向量的乘积?因为这样,才能很好解释红色标记的计算结果。 |
|