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[1 n% Q+ w( K6 B8 @
{tmp, s, p, i, lst, S},
\" \4 d, X: u& Y- B. f8 v* Q4 b
tmp = (#1 + #2 + #3)/2 &;
: L8 U# m+ r% _, r) g
lst = {};
) L( X6 C; H& n% t
For[i = 1, i <= y, i++,# S7 P2 |8 v0 i7 m* I
p = RandomInteger[x, 3];3 |6 I: v; u7 G% k. k! E
s = tmp @@ p;+ w3 Q$ v2 k: T, j6 _
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
8 E, i6 N; ~# ]0 H
Which[Element[S, Reals] && Element[S, Integers] && S != 0, \" o\" t2 c( j7 D- a9 O$ T5 A
AppendTo[lst, {p, S}]];
* f+ @' C, y8 [
];
+ u/ [( ?. u h& Q
lst
. D! K/ G\" P0 p: P$ \9 \# u
];