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[
$ c* z5 R$ h2 ` A( u4 R
{tmp, s, p, i, lst, S},& J\" j0 m S$ G$ V
tmp = (#1 + #2 + #3)/2 &;
l- _! b: Q\" U) p1 J5 [
lst = {};1 i8 p; t4 L8 u* E! { K
For[i = 1, i <= y, i++,
0 s# p( x' G$ G2 q
p = RandomInteger[x, 3];
4 j7 I0 j* Q* W1 Q5 ~- Y K
s = tmp @@ p;8 x% n5 l& H$ D; J1 u- Z& H; \
S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
; d' N* ?/ x: [& D
Which[Element[S, Reals] && Element[S, Integers] && S != 0, 0 E F1 x h! }6 v y
AppendTo[lst, {p, S}]];! |( }. H0 }6 X# D$ a' W
];
1 ~; W. |% G$ V% I% l( U& t+ z9 O& r
lst1 s n$ p: B9 M; Z
];

复制代码

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

例子：

f[100, 10000] // MatrixForm

复制代码

结果：

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

我也说一句

发表

使用道具举报

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

电话咨询

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