数学建模社区-数学中国

标题: 求助。关于编程问题 [打印本页]
作者: douzeyang    时间: 2010-9-1 17:53
标题: 求助。关于编程问题
编写一个程序。用以寻求边长为整数且面积为整数的三角形。
  H1 m( C! s$ C0 ?; t& z! D我的思路是先让边长都等于n，然后再逐次减一，看是否构成三角形，若才、构成三角形再判断是否面积为整数。下边是我的程序。
% t0 f- h1 G; f4 {/ N: |+ |& U& {# V0 t6 s3 J0 U% X1 D9 L5 d
f[n_] := For[i = 1, i ≤ n, i++,
2 F+ C, s- m8 g7 y% X2 [' B            For[j = 1, j ≤ n, j++,
! _5 J; d% N1 j: }: O7 z5 t$ s* V            For[k =  1, k ≤ n, k++,
: n. E* V. `3 j5 l            If[i + j > k && i - j < k, 2 F+ ^' J, Z: e+ S& ~5 I5 H( |2 ]
            For[z = 1, z < 2, z++,0 e& Q% ]' B; O5 }( C1 B
            If[Mod[Sqrt[(i + j + k)/2*((i + j + k)/2 - i)*((i + j + k)/2 - j)*((i + j + k)/2 - k)], 1] == 0, Print[i     , j     , k     ]]]]]]]* ]* h( A, V6 e" I
可是运行出来是不对的。求大侠帮忙看看程序哪里有问题。拜谢。要是我的程序完全不对。麻烦大侠给一个正确的。9 G4 C7 S" c& r1 X5 o3 k1 `- J
作者: 佳琳    时间: 2010-9-1 18:06
大家都来帮忙看看哦
作者: douzeyang    时间: 2010-9-1 18:08
自己顶顶~~~~~
作者: 付绍纯    时间: 2010-9-1 20:00
顶顶更健康，越顶吃的越香。
作者: bluesonc    时间: 2010-9-2 08:00
鉴定完毕！  
作者: 753085848    时间: 2010-9-2 08:27
看不懂啊！！！！！！！！！！！！！！
作者: Xiesdl    时间: 2010-9-2 12:00
试试运气啦~~~~~~~~~~~
作者: wanghui1117    时间: 2010-9-2 15:00
试试运气啦~~~~~~~~~~~
作者: lathoj    时间: 2010-9-2 20:00
鉴定完毕！  
作者: jacket2003    时间: 2010-9-3 08:00
强烈支持。楼主万岁
作者: zhangjb    时间: 2010-9-3 12:00
试试运气啦~~~~~~~~~~~
作者: andyzhang    时间: 2010-9-3 15:00
我要把这个帖子一直往上顶，往上顶！
作者: dragon77    时间: 2010-9-3 20:00
强人，佩服死了。呵呵，不错啊
作者: dalaba    时间: 2010-9-4 08:00
强烈支持。楼主万岁
作者: lvhang0810    时间: 2010-9-4 12:00
我基本上是采用看英语文章的办法，先泛读，再精读，再一句一句看，最后再提纲挈领，总算是明白一点了，当然，也可能还是领悟错了。最后要说的一句话是：楼主，你很牛叉，希望你不是真的有病。   
作者: seeing    时间: 2010-9-4 15:00
我来了~~~~~~~~~ 闪人~~~~~~~~~~~~~~~~  
作者: jale    时间: 2010-9-4 20:00
顶顶更健康，越顶吃的越香。
作者: heavent    时间: 2010-9-5 08:00
哦～～
作者: quhb666    时间: 2010-9-5 12:00
楼主那种裂纸欲出的大手笔，竟使我忍不住一次次的翻开楼主的帖子……   
作者: diana    时间: 2010-9-5 15:00
我基本上是采用看英语文章的办法，先泛读，再精读，再一句一句看，最后再提纲挈领，总算是明白一点了，当然，也可能还是领悟错了。最后要说的一句话是：楼主，你很牛叉，希望你不是真的有病。   
作者: vivitian    时间: 2010-9-5 20:00
声明一下：本人看贴和回贴的规则，好贴必看，精华贴必回。
作者: dfghaasd    时间: 2010-9-6 08:00
楼主那种裂纸欲出的大手笔，竟使我忍不住一次次的翻开楼主的帖子……   
作者: fasst    时间: 2010-9-6 12:00
强烈支持。楼主万岁
作者: qingqing6644    时间: 2010-9-6 12:55
很好 很强大 顶顶顶
作者: a1525354555    时间: 2010-9-6 15:00
我来了~~~~~~~~~ 闪人~~~~~~~~~~~~~~~~  
作者: loverose    时间: 2010-9-6 20:00
强人，佩服死了。呵呵，不错啊
作者: skyling    时间: 2010-9-7 08:00
我回不抢呢 考虑再三 还是不抢了吧 ^_^
作者: dnq    时间: 2010-9-7 12:00
顶顶更健康，越顶吃的越香。
作者: zhnagbei_2004    时间: 2010-9-7 15:00
鉴定完毕！  
作者: ydnzd    时间: 2010-9-7 20:00
试试运气啦~~~~~~~~~~~
作者: cdn    时间: 2010-9-8 08:00
我来了~~~~~~~~~ 闪人~~~~~~~~~~~~~~~~  
作者: boy53300    时间: 2010-9-8 12:00
声明一下：本人看贴和回贴的规则，好贴必看，精华贴必回。
作者: lgfree    时间: 2010-9-8 15:00
我基本上是采用看英语文章的办法，先泛读，再精读，再一句一句看，最后再提纲挈领，总算是明白一点了，当然，也可能还是领悟错了。最后要说的一句话是：楼主，你很牛叉，希望你不是真的有病。   
作者: dajun539    时间: 2010-9-8 20:00
强人，佩服死了。呵呵，不错啊
作者: zxcvbnm5785    时间: 2010-9-9 08:00
试试运气啦~~~~~~~~~~~
作者: jeanluc111    时间: 2010-9-9 08:00
试试运气啦~~~~~~~~~~~
作者: haiyue    时间: 2010-9-9 12:00
强人，佩服死了。呵呵，不错啊
作者: lvyongzhi    时间: 2010-9-9 15:00
鉴定完毕！  
作者: byxh111    时间: 2010-9-9 20:00
鉴定完毕！  
作者: zjnuzhc    时间: 2010-9-9 20:00
强烈支持。楼主万岁
作者: lzg    时间: 2010-9-10 08:00
偶的天啊!这是什么样的贴子呢？
作者: douzeyang    时间: 2010-9-10 09:37
.....................
作者: sufan    时间: 2010-9-10 11:39
(*^__^*) 指点系词……激扬文字……  
作者: mxyo3111    时间: 2010-9-10 11:51
强人，佩服死了。呵呵，不错啊
作者: HaoSHi    时间: 2010-9-10 12:00
声明一下：本人看贴和回贴的规则，好贴必看，精华贴必回。
作者: cdly1    时间: 2010-9-10 15:00
强烈支持。楼主万岁
作者: xuefei_310    时间: 2010-9-10 20:00
哦～～
作者: stevejason    时间: 2010-9-11 08:00
试试运气啦~~~~~~~~~~~
作者: Marvin41029    时间: 2010-9-11 12:00
声明一下：本人看贴和回贴的规则，好贴必看，精华贴必回。
作者: algebra    时间: 2010-9-11 15:00
楼主的帖子实在是写得太好了。可是我立刻想到，这么好的帖子，倘若别人看不到，那么不是浪费楼主的心血吗？经过痛苦的思想斗争，我终于下定决心，牺牲小我，奉献大我。我要拿出这帖子奉献给世人赏阅，我要把这个帖子一直往上顶，往上顶！顶到所有人都看到为止！  
作者: Ready    时间: 2010-9-11 20:00
楼主，你写得实在是太好了。我惟一能做的，就只有把这个帖子顶上去这件事了
作者: yangting    时间: 2010-9-12 08:00
试试运气啦~~~~~~~~~~~
作者: mk    时间: 2010-9-12 12:00
强人，佩服死了。呵呵，不错啊
作者: Beatrice    时间: 2010-9-12 15:01
哦～～
作者: kxhu    时间: 2010-9-12 20:00
哦～～
作者: talent212121    时间: 2010-9-13 15:00
鉴定完毕！  
作者: hyxie616    时间: 2010-9-13 20:00
楼主，你写得实在是太好了。我惟一能做的，就只有把这个帖子顶上去这件事了
作者: haiyuan    时间: 2010-9-14 12:00
鉴定完毕！  
作者: dajun539    时间: 2010-9-14 15:00
我要把这个帖子一直往上顶，往上顶！
作者: futures    时间: 2010-9-14 20:00
我要把这个帖子一直往上顶，往上顶！
作者: 流氓兔    时间: 2010-9-15 15:00
哦～～
作者: sjs914915    时间: 2010-9-15 20:00
试试运气啦~~~~~~~~~~~
作者: chxq666    时间: 2010-9-15 20:00
哦～～
作者: myqlzx    时间: 2010-9-16 15:00
我要把这个帖子一直往上顶，往上顶！
作者: wert    时间: 2010-9-16 20:00
强人，佩服死了。呵呵，不错啊
作者: mathcd    时间: 2010-9-19 07:28
程序：1 K- }& J6 }: \, O) l( D
  1. f[x_, y_] := Module[; p3 L( v1 d: q  J3 M* `
  2.    {tmp, s, p, i, lst, S},' o& s- e/ Q$ x! G  Z( m- U
  3.    tmp = (#1 + #2 + #3)/2 &;1 r) U/ n' f; r2 ^, M$ z9 B8 Q
  4.    lst = {};: R0 o  J' Y: \$ p
  5.    For[i = 1, i <= y, i++,1 v$ C3 g$ @! ^! w7 r6 E
  6.     p = RandomInteger[x, 3];
    , l. V2 _4 _, O) X6 G
  7.     s = tmp @@ p;
    - W- C% o4 G; Z! u& y  W9 b+ o
  8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;, B/ ^1 v! u& S$ S3 d9 N
  9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0, + j) i. g0 S2 E$ Q
  10.      AppendTo[lst, {p, S}]];
    2 M6 r# a7 c/ _6 h5 H% r; {
  11.     ];
    . E$ x& q3 j6 e8 y* Q8 P  I2 h9 `
  12.    lst$ B8 U6 H8 W. _$ E" M/ d5 z
  13.    ];
复制代码

2 E7 v; k. Q$ q/ Y$ l& R: B* `9 V; `4 {
说明：
* S5 K9 r; h6 W! }程序f[x,y]采用随机算法。$ I' S1 n6 [4 q/ X4 Y( Y: N/ z
第一个参数x：边长取值范围3 W  g6 U6 b- x" A/ a' K
第二个参数y：循环次数
. N+ E( N3 C  B* n, ^0 U* e6 J3 n' v/ w" T  z1 r9 D8 w
例子：: K: i5 Y  R4 q, X

3 \4 t; z' x) @8 h' W
  1. f[100, 10000] // MatrixForm
复制代码
) b' w% y3 o& z$ l7 f# i+ u; @

6 v+ |2 h1 j8 |4 t3 ]7 r结果：3 ?+ V# J. ^6 f/ `" K1 b6 ?4 k! j; |
$ M) h' R$ ?; A' r/ D8 y' u7 G# z
9 D% V6 S+ g8 [- ]# ^0 ~6 y

# @7 c* X5 z$ j

TEST.jpg (33.53 KB, 下载次数: 478)

TEST.jpg

作者: yellowaug    时间: 2010-9-19 23:37
C语言的？？？？？
作者: mathcd    时间: 2010-9-20 07:29
这里使Mathematica 版吧



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5