- 注册时间
- 2008-11-26
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 149497
- 在线时间
- 小时
|
楼主 |
发表于 2021-6-11 08:50:16
|
显示全部楼层
- Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
- a=2/3;
- {x1,y1}=2*RotationMatrix[-135*Degree].{0-x,a-y}+{x,y}
- ff=x1^2+y1^2//FullSimplify(*求解出OG^2*)
- f=ff+t*(x^2+y^2-2^2)(*拉格朗日乘子法目标函数*)
- ans=Solve[D[f,{{x,y,t}}]==0,{x,y,t}]//FullSimplify(*求解零点*)
- bbb={x^2+y^2,x,y}/.ans[[2]]//FullSimplify;(*这是主动圆周上的点*)
- bbb2={x1^2+y1^2,x1,y1}/.ans[[2]]//FullSimplify;(*这是从动的G点*)
- ccc={{a^2,0,a},bbb,bbb2}
- ddd=Det[ccc]//FullSimplify
复制代码
测试一下,看最后的行列式,我感觉是四点共圆,我感觉有必然性在里面!@hujunhua |
|