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[$ c7 w\" U) N\" \1 t
{tmp, s, p, i, lst, S},/ e8 ?! n: ]3 }# S4 y
tmp = (#1 + #2 + #3)/2 &;
6 A& ~, [5 J# J# W' k
lst = {};
' F$ Q+ E# L1 z0 B\" k. ?- _
For[i = 1, i <= y, i++,
+ o* t) L, P( }+ g% J% b
p = RandomInteger[x, 3];4 }3 e( ^7 }\" u2 w: z
s = tmp @@ p;+ f, B( O( L2 H; c; d7 S
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;6 Z6 h& ?- @+ }) J
Which[Element[S, Reals] && Element[S, Integers] && S != 0, , u\" s+ Z& r4 J\" X. u
AppendTo[lst, {p, S}]];
6 M& j4 _' q N) ]
];- J. a7 |8 b }+ [- {1 q! H# B- k
lst
) m! b! g, f$ L! V; W% V
];