找回密码
 欢迎注册
楼主: bolizhou

[讨论] 求所有的满足条件的三角形的三边长

[复制链接]
发表于 2009-8-31 10:44:04 | 显示全部楼层
一类海伦三角形 有的字母看不太清楚,维普有下载,谁有权限可以下载后传上来。 http://www.cqvip.com/asp/userlink.asp?re=77591
推荐

评分

参与人数 1贡献 +3 鲜花 +3 收起 理由
gxqcn + 3 + 3 所提供参考资料正好切题。

查看全部评分

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 10:55:28 | 显示全部楼层
简单写了程序计算所有的解: 9,10,17,[a=1,b=8] 7,15,20,[a=1,b=6] 6,25,29,[a=1,b=5] 25,6,29,[a=1,b=24] 15,7,20,[a=1,b=14] 10,9,17,[a=1,b=9] 6,8,10,[a=2,b=4] 6,8,10,[a=2,b=4] 5,12,13,[a=2,b=3] 8,6,10,[a=2,b=6] 6,8,10,[a=2,b=4] 12,5,13,[a=2,b=10] 8,6,10,[a=2,b=6] 5,13,12,[a=3,b=2] 13,5,12,[a=3,b=10] 6,10,8,[a=4,b=2] 6,10,8,[a=4,b=2] 10,6,8,[a=4,b=6] 10,6,8,[a=4,b=6] 6,29,25,[a=5,b=1] 29,6,25,[a=5,b=24] 7,20,15,[a=6,b=1] 8,10,6,[a=6,b=2] 10,8,6,[a=6,b=4] 8,10,6,[a=6,b=2] 10,8,6,[a=6,b=4] 10,8,6,[a=6,b=4] 20,7,15,[a=6,b=14] 9,17,10,[a=8,b=1] 17,9,10,[a=8,b=9] 10,17,9,[a=9,b=1] 17,10,9,[a=9,b=8] 12,13,5,[a=10,b=2] 13,12,5,[a=10,b=3] 15,20,7,[a=14,b=1] 20,15,7,[a=14,b=6]
  1. // et.cpp : Defines the entry point for the console application.
  2. //
  3. #include "stdafx.h"
  4. #include <math.h>
  5. void output(int a, int b)
  6. {
  7. int r=(a*a+4)*b;
  8. int r2=(b*b+4)*a;
  9. int d=abs(a*b-4);
  10. if(d==0){
  11. fprintf(stderr,"invalid solution %d,%d\n",a,b);
  12. return;
  13. }
  14. if(r%d!=0){
  15. fprintf(stderr,"invalid solution %d,%d\n",a,b);
  16. return;
  17. }
  18. int c1=r/d;
  19. int c2=r2/d;
  20. printf("%d,%d,%d,[a=%d,b=%d]\n",a+b,c1,c2,a,b);
  21. }
  22. void lookup(int a)
  23. {
  24. int u=a*a+4;
  25. int d,b;
  26. for(d=1;d<=u;d++){
  27. if(u%d==0){
  28. if((d+1)%a==0){
  29. b=(d+1)/a*4;
  30. output(a,b);
  31. }
  32. if((d+2)%a==0){
  33. b=(d+2)/a*2;
  34. output(a,b);
  35. }
  36. if((d+4)%a==0){
  37. b=(d+4)/a*1;
  38. output(a,b);
  39. }
  40. }
  41. }
  42. }
  43. int _tmain(int argc, _TCHAR* argv[])
  44. {
  45. int a;
  46. for(a=1;a<=10;a++){
  47. lookup(a);
  48. }
  49. for(a=11;a<=76;a++){
  50. if(32%(a+2)==0||52%(a+3)==0||80%(a+4)==0){
  51. lookup(a);
  52. }
  53. }
  54. return 0;
  55. }
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 10:59:41 | 显示全部楼层
实际上只有5个解: 9,10,17 7,15,20 6,25,29 6,8,10 5,12,13
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 11:02:58 | 显示全部楼层
与 11# 里的论文结果完全一致。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 11:06:22 | 显示全部楼层
与 11# 里的论文结果完全一致。 gxqcn 发表于 2009-8-31 11:02
给的链接因为不是免费的,做了模糊处理,最好还是能把维普的下载下来,试了几个账号,都没有收录,可能太新了。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 11:08:54 | 显示全部楼层
其基本思路基本可以看清了,具体数值结果就容易推导了。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 11:13:42 | 显示全部楼层
看到整数,三角形,面积,边长,最容易想到海伦公式了,google,没想到竟然搜到【海伦三角形】~
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 13:14:34 | 显示全部楼层
假设有一个三角形,边长分别为a、b、c,三角形的面积S可由以下海伦公式求得:s=根号下(p(p-a)(p-b)(p-c)) 而公式里的p:(a+b+c)/2
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 13:20:31 | 显示全部楼层
本帖最后由 〇〇 于 2009-8-31 13:36 编辑 如果2楼和7楼成立 SQL> with bc as(select level n from dual connect by level<=10) 2 select a.n,b.n,c.n from bc a,bc b,bc c 3 where power(a.n+b.n+c.n,2)=(a.n+b.n+c.n)*(a.n-b.n+c.n)*(a.n+b.n-c.n)*(-a.n+b.n+c.n)/16 4 and a.n>=b.n and b.n>=c.n; N N N ------------ ------------ ------------ 10 8 6 SQL> c/1/5 1* with bc as(select level n from dual connect by level<=50) SQL> / N N N ------------ ------------ ------------ 10 8 6 13 12 5 17 10 9 20 15 7 29 25 6 Elapsed: 00:00:00.29
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-8-31 13:38:11 | 显示全部楼层
论文

一类海伦三角形.pdf

146.52 KB, 下载次数: 8, 下载积分: 金币 -1 枚, 经验 1 点, 下载 1 次

售价: 1 枚金币  [记录]

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-12-28 15:29 , Processed in 0.027793 second(s), 19 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表