求助。关于编程问题

流氓兔

哦～～

sjs914915

试试运气啦~~~~~~~~~~~

chxq666

哦～～

myqlzx

我要把这个帖子一直往上顶，往上顶！

wert

强人，佩服死了。呵呵，不错啊

mathcd

程序：

1. f[x_, y_] := Module[
   8 f, ~+ Y+ Q, \+ t& F
2.    {tmp, s, p, i, lst, S},( B% h/ D  L8 M0 k1 W6 N, Z
   
3.    tmp = (#1 + #2 + #3)/2 &;
   + j9 R: m5 T% b/ f% Y8 {
4.    lst = {};: z6 e# w0 n: _- i- Z
   
5.    For[i = 1, i <= y, i++,( p8 y, `) d  O2 \9 O0 ^3 d1 y. `
   
6.     p = RandomInteger[x, 3];
   ! D\" h& v* W! X6 i3 Y6 _
7.     s = tmp @@ p;
   9 O& V  h0 H! N. g, p; z\" |
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
   ) f8 \4 d+ |0 f- g\" b
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   7 ]0 g. K, S) m$ a4 {
10.      AppendTo[lst, {p, S}]];6 V1 n7 ?, ?% v' F% W
    
11.     ];
    $ c5 ^4 P/ U\" u( M# d
12.    lst
    2 g7 k\" r: V1 @: q
13.    ];

复制代码

0 X1 {# y9 o( s/ A2 ^  M说明：
( Q+ e! o' n( F3 J0 z: ]程序f[x,y]采用随机算法。
. a( L2 y. A  I) w. r第一个参数x：边长取值范围
第二个参数y：循环次数
4 ^# z1 N* s+ k2 a
2 r, E) R, Q0 r) n$ G例子：
# D( ~5 L: |- M/ I

1. f[100, 10000] // MatrixForm

复制代码

结果：
' ~2 f( F6 N1 b8 H8 _
( D1 K$ c, [0 R/ f% [0 y

) A) A; C: S6 b, {4 L

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧