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[( Q8 C0 Y9 _$ j
{tmp, s, p, i, lst, S},* {\" n; k% q+ Y- S6 ^
tmp = (#1 + #2 + #3)/2 &;
0 U# S# V' N* L- }. N) ?3 b; {: x$ L
lst = {};
v. U; v- c4 L# Y7 {
For[i = 1, i <= y, i++,
2 t# L N7 Z* r% O0 [: E4 ]1 A
p = RandomInteger[x, 3];, T1 W5 C l$ R3 T# t. w
s = tmp @@ p;
0 m) }- J5 `: t' S
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
U3 [7 h& }! o, k* \
Which[Element[S, Reals] && Element[S, Integers] && S != 0,
. F2 r6 _; j; [7 `2 {4 y$ a2 |
AppendTo[lst, {p, S}]];6 ^: G& k8 z: u. |% H
];2 D0 E6 I% H0 Z# V
lst `2 M; J' w% o6 { ^+ W
];