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[ v; E% W; m6 R, U$ m4 t
{tmp, s, p, i, lst, S},
. S* C9 R% K7 w
tmp = (#1 + #2 + #3)/2 &;
1 f: p9 J3 f: l' ^! ~. i
lst = {};
0 v2 n\" D' r& H4 V( r& [# |9 Q( Z
For[i = 1, i <= y, i++,
& M\" w) n\" y0 v4 N- s, K/ S; p
p = RandomInteger[x, 3];
) x1 S9 e& Q3 G& Z+ r8 r
s = tmp @@ p;\" M( E% o: P( {( M
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
* h. p# f8 q/ R& A- `' q
Which[Element[S, Reals] && Element[S, Integers] && S != 0,
4 v k5 T, ]; S- L
AppendTo[lst, {p, S}]];7 B/ C& z4 s) ~1 e
];6 ]9 T& C, h$ F
lst
2 M0 y+ \& p! T s/ h8 K
];

复制代码

说明：
程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
第二个参数y：循环次数

例子：

f[100, 10000] // MatrixForm

复制代码

结果：

TEST.jpg (33.53 KB, 下载次数: 444)

我也说一句

发表

使用道具举报

yellowaug

6 主题	2 听众	124 积分

升级 12%

TA的每日心情

	开心 2013-11-14 13:33

签到天数: 3 天

[LV.2]偶尔看看I

67^#

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

C语言的？？？？？

我也说一句

发表

使用道具举报

mathcd

13 主题	4 听众	228 积分

升级 64%

该用户从未签到

68^#

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

这里使Mathematica 版吧

我也说一句

发表

使用道具举报

1 2 3 4 5 67 / 7 页

返回列表

帐号		密码		只需要一步，快速开始		注册地址	找回密码

求助。关于编程问题

新人进步奖

QQ

电话咨询

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务|