数学建模社区-数学中国
标题:
求助。关于编程问题
[打印本页]
作者:
douzeyang
时间:
2010-9-1 17:53
标题:
求助。关于编程问题
编写一个程序。用以寻求边长为整数且面积为整数的三角形。
' i1 b8 i4 h6 ~% D' G; c% G
我的思路是先让边长都等于n，然后再逐次减一，看是否构成三角形，若才、构成三角形再判断是否面积为整数。下边是我的程序。
5 ?+ m- j7 P/ A h5 L
5 e" J3 w8 a3 ~# D* t
f[n_] := For[i = 1, i ≤ n, i++,
1 o1 F1 v0 T" g
For[j = 1, j ≤ n, j++,
! v6 a, p3 L7 I; b5 C
For[k = 1, k ≤ n, k++,
/ C9 e# ?: |& k5 i. x
If[i + j > k && i - j < k,
; ]* c' l' `1 k! r" }- z
For[z = 1, z < 2, z++,
- R3 v! E7 S* k7 `% o* s9 B' t
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 ]]]]]]]
" `8 a2 C' B) \9 f0 d! m" p2 ?7 e
可是运行出来是不对的。求大侠帮忙看看程序哪里有问题。拜谢。要是我的程序完全不对。麻烦大侠给一个正确的。
' N N4 c; J! M
作者:
佳琳
时间:
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
程序：
- `% K0 `: I/ p, d" N `4 M0 L
f[x_, y_] := Module[
( M/ U8 M9 D/ R2 G/ q- r% j: L
{tmp, s, p, i, lst, S},
% p$ A( U% X. G8 q+ G- Q& u
tmp = (#1 + #2 + #3)/2 &;
, X% R8 I! o9 D# V2 {$ p7 k0 N0 K. v
lst = {};
3 H) B% g7 i O7 M2 K2 K. ^
For[i = 1, i <= y, i++,
% {1 }- v4 T& k4 K1 [9 F0 X9 K& s- ~
p = RandomInteger[x, 3];
" \, G8 b( I& N- i" N
s = tmp @@ p;
5 a( e% Y Y+ x
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
x& ?; ~6 E J8 O1 I
Which[Element[S, Reals] && Element[S, Integers] && S != 0,
) L: u% |7 f, j3 A
AppendTo[lst, {p, S}]];
7 T2 d1 c7 i9 z) I5 A$ \) A; [ {
];
: V' j/ z* b% S
lst
+ G5 \5 z z t2 @# ^, c
];
复制代码
2 C+ s* ?/ k6 u3 ^+ B: a- Q
* Z2 S0 x0 l0 K4 ?" w
说明：
4 X4 S- m* O- Y( W5 g
程序f[x,y]采用随机算法。
' x6 A1 c( z- U% ^5 A8 i$ f
第一个参数x：边长取值范围
, O5 R- Z# v, u1 I+ s# k5 _% _
第二个参数y：循环次数
; z) h. b) r! [ A9 d7 [! K2 D
5 `( d, N, @- \
例子：
- E2 f% j- q/ x
, @4 k3 C6 |" V; u4 W9 a
f[100, 10000] // MatrixForm
复制代码
9 V a/ u' g) ~
& p+ [7 K8 Z" w$ J
结果：
! z1 ]/ K# K; i3 {
+ m- L- M+ R+ A& x' a
6 a0 M$ R7 z% v
" b% }# C3 O2 |7 V
TEST.jpg
(33.53 KB, 下载次数: 466)
2010-9-19 07:27 上传
点击文件名下载附件
作者:
yellowaug
时间:
2010-9-19 23:37
C语言的？？？？？
作者:
mathcd
时间:
2010-9-20 07:29
这里使Mathematica 版吧
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
