dlpg070 发表于 2020-4-3 15:10
我的低水平代码,善于发现bug,与某人代码仅差2字符
多么好的代码,半途而废太可惜
我苦口婆心提醒多少 ...
再贴一段代码欣赏和比较水平有多低
(* 改进 仍然修改 b\c *)
(* BAC临界值 --- 计算P点在BC上且面积最大值时的对应的角BAC*)
Clear["Global`*"];
PA = 12; PB = 6; PC = 7;
cs := (a^2 + b^2 - c^2)/(2*a*b)
ans = Solve[{cs + cs == 0 && b == c &&
b > 0}, {b, c}] // FullSimplify
b = b /. ans[];
c = c /. ans[];
BAC = ArcCos]*180/Pi
Print["BAC= ", N, " 度"]
输出:
{{b->Sqrt,c->Sqrt}}
(180 ArcCos)/\
BAC= 56.927561350057540452 度
dlpg070 发表于 2020-4-3 18:02
再贴一段代码欣赏和比较水平有多低
我求的是p点在三角形内部时，并且PA=12 PB=6 PC=7时对应的最大角，
这个用来反驳你的条件不兼容（即不可能又在内部，又PA=12 PB=6 PC=7，又满足BAC=60）
而你想要得到的在内部时，PA=12 PB=6 PC=7，又最大面积时对应的角，
你想要的是最大面积对应的角，我求出来的是最大角，
根本不是一个概念！！！！！！！！！！！！！！！！！！！！！
本帖最后由 dlpg070 于 2020-4-15 17:00 编辑
三角形有解的极限
参见图片:
有解极限60_a_6_7.png
给定角度BAC,b,c,随着a的增加P点组件靠近BC边,P点在BC边是P点开始不在三角形内部,
a再增加P对AB ,AC的垂足逐渐靠近B ,C ,
P对AB ,AC的垂足在B ,C 时,a达到极限
由图可知:
因面积最大时 ,P的垂足同时在B,C点
BAC= PAB+PAC
Sin= b/a
Sin= c/a
解方程可求得 aU=13.0128
求Au的代码:
Clear["Global`*"];
Print["有解极限:"]
Clear
(*PA=12,*)PB = 6; PC = 7; BAC = 60*Pi/180;
ans = Solve[{BAC == PAB + PAC && Sin == PB/PA &&
Sin == PC/PA && PA > 0 && PAB > 0 && PAC > 0}, {PA, PAB,
PAC}] // FullSimplify
PA = PA /. ans[];
PAB = PAB /. ans[];
PAC = PAC /. ans[];
BAC = ArcCos]*180/Pi
Print["aU= ", N]
Print["PAB= ", N]
Print["PAC= ", N]
至此对于 在△ABC中，∠BAC=60°,PB=6，PC=7 求△ABC的最大面积
有如下判断:
0 < PA < 11.269 P在在△ABC内部
11.269 <= PA < =13.0128 P在在△ABC外部
13.0128 < PA P点不存在,无解
对于∠BAC=60°,PA=14,PB=6，PC=7
因为 14>13.0128 判断此题无解
如果不预先判断,有些代码给出错误的结果,有些优秀的代码则运行不停
显得预判很重要
哎，这个问题还是我最早发在数学中国上的，王守恩发到这里的。为了解个题至于这样吵架吗？
markfang2050 发表于 2020-4-15 20:15
哎，这个问题还是我最早发在数学中国上的，王守恩发到这里的。为了解个题至于这样吵架吗？
23#不是吵架,认认真真讨论问题. 被骂后发泄一下,已经翻片儿了
三角形面积最大问题我也发到数学中国里过的。和气理性讨论问题，方法不同正常，水平有高低也是正常。
markfang2050 发表于 2020-4-16 09:22
三角形面积最大问题我也发到数学中国里过的。和气理性讨论问题，方法不同正常，水平有高低也是正常。
不知为什么我最近不能登录数学中国,
我的讨论有错吗,诚恳邀请参加讨论,指教
dlpg070 发表于 2020-4-3 18:02
再贴一段代码欣赏和比较水平有多低
这里有一些代码可以比对一下.
https://bbs.emath.ac.cn/thread-17176-1-1.html
个人的理解是, 代码的优劣差异不是特别的大, 主要是解题思路的优劣差异明显.
wayne 发表于 2020-4-16 12:41
这里有一些代码可以比对一下.
https://bbs.emath.ac.cn/thread-17176-1-1.html
谢谢,我拜读了该主题全部代码,全部验算一遍,对错优劣明显