应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Euler 工程 第三十九题：最多的直角三角形
31/1返回列表
查看: 845  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看

holmescn

金虫 (正式写手)

[交流] Euler 工程 第三十九题：最多的直角三角形 已有1人参与

如果p是直角三角形的周长，那么对于p=120这个周长来说，三个边长有三组解：(20,48,52), (24,45,51),(30,40,50)

那么对于p<=1000来说，哪个周长能构建最多的直角三角形？

PS：原来right angle triangle是直角三角形.....
回复此楼

» 猜你喜欢
1楼 2011-07-10 09:24:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★
xzhdty(金币+2): 谢谢 2011-07-10 16:21:43
余泽成(程序强帖+1): 鼓励交流！ 2011-07-11 20:45:48
跟前面有个题类似
CODE:
% ===analysis
% a^2+b^2 = c^2; c = p-a-b;
% ==> a^2 = (p-a-b)^2-b^2
% ==> a^2 = (p-a)(p-a-2b) = (p-a)^2-2b(p-a)
% ==> p(p-2a) = 2b(p-a) ---(1)
% ==> 2b/p + a/(p-a) = 1
% ==> 2b

% ==> a

function result = euler39()
tic;
maxLen = 3;
for p=120:1000
    curLen = 0;
    for a=3:p/2 % (2)
        if mod(p*(p-2*a),2*(p-a))==0 %(1)
            curLen = curLen+1;
        end
    end
   
    if curLen>maxLen
        maxLen = curLen;
        result = p;
    end
end
toc;
end


结果
CODE:
% Elapsed time is 0.027793 seconds.
% ans =
%    840
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
2楼2011-07-10 16:08:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 11:16:27
这个不定方程组的解法，好像没什么好玩的。不过，p应该是偶数。
赞一下(1人) 回复此楼
3楼2011-07-11 09:12:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 holmescn 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭