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[% G0 v7 V# l7 |2 n8 p
{tmp, s, p, i, lst, S},& e- c0 k& c8 ?: k, z9 F
tmp = (#1 + #2 + #3)/2 &;$ e$ m. h% m\" d: ]6 U$ X U
lst = {};
' ?4 ?. e. V3 P0 E
For[i = 1, i <= y, i++,- c: p4 r6 l( R, F3 h
p = RandomInteger[x, 3];% A5 d& J# t% r\" t$ b, I. H
s = tmp @@ p;
0 A9 |; g0 R% i$ j: [! D4 ]
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
- b5 Y- J. y5 B; N
Which[Element[S, Reals] && Element[S, Integers] && S != 0,
: |( m\" Q4 L) E$ F0 l
AppendTo[lst, {p, S}]];
) M9 t! g: [( \- C; ^# \/ M
];
# ?* A& ^( ^& V. x. X
lst
8 M& }1 o5 d- v, {- h c
];