1 2 3 4 5 67 / 7 页

返回列表

楼主: douzeyang

求助。关于编程问题

[复制链接]

字体大小: 正常放大

流氓兔

0 主题	2 听众	92 积分

升级 91.58%

该用户从未签到

61^#

发表于 2010-9-15 15:00 |只看该作者

|招呼Ta 关注Ta

哦～～

我也说一句

发表

使用道具举报

sjs914915

0 主题	2 听众	93 积分

升级 92.63%

该用户从未签到

62^#

发表于 2010-9-15 20:00 |只看该作者 |招呼Ta 关注Ta

试试运气啦~~~~~~~~~~~

我也说一句

发表

使用道具举报

chxq666

0 主题	2 听众	93 积分

升级 92.63%

该用户从未签到

63^#

发表于 2010-9-15 20:00 |只看该作者 |招呼Ta 关注Ta

哦～～

我也说一句

发表

使用道具举报

myqlzx

0 主题	2 听众	92 积分

升级 91.58%

该用户从未签到

64^#

发表于 2010-9-16 15:00 |只看该作者 |招呼Ta 关注Ta

我要把这个帖子一直往上顶，往上顶！

我也说一句

发表

使用道具举报

wert

0 主题	2 听众	92 积分

升级 91.58%

该用户从未签到

65^#

发表于 2010-9-16 20:00 |只看该作者 |招呼Ta 关注Ta

强人，佩服死了。呵呵，不错啊

我也说一句

发表

使用道具举报

mathcd

13 主题	4 听众	228 积分

升级 64%

该用户从未签到

66^#

发表于 2010-9-19 07:28 |只看该作者 |招呼Ta 关注Ta

程序：

f[x_, y_] := Module[
. }4 R e0 Z* ^9 I
{tmp, s, p, i, lst, S},
! O1 W3 J# b! ~( U5 r
tmp = (#1 + #2 + #3)/2 &;
9 b) u& j( d+ Q) m
lst = {};
; d2 q+ K' r* ?3 W* G\" ]
For[i = 1, i <= y, i++,
/ U1 V& I$ n; I/ _! K
p = RandomInteger[x, 3];4 |- V, G2 ~# i& Y7 ]
s = tmp @@ p;
' R\" h: }$ W# a( E1 g
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
- Q7 |% b5 G# U( h- S
Which[Element[S, Reals] && Element[S, Integers] && S != 0,
% R. ]6 g9 Y6 t, H- g
AppendTo[lst, {p, S}]];# U/ _4 y- O3 ?7 q) O9 k, y) n3 I
];0 L/ Z9 B+ u7 R( t5 I- i- {/ L
lst; A: F6 I5 D. {4 y
];