求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：

1. f[x_, y_] := Module[
   0 M+ m& L! y\" ~6 E7 ^# x1 B
2.    {tmp, s, p, i, lst, S},+ m7 a3 L7 p* e3 `% ~/ w+ f
   
3.    tmp = (#1 + #2 + #3)/2 &;\" o! y0 y, m. g
   
4.    lst = {};& C# U+ l3 y5 C3 r- i! _
   
5.    For[i = 1, i <= y, i++,
   2 D: B6 }. W( O3 \
6.     p = RandomInteger[x, 3];
   . ~0 }2 M: r/ [3 W/ a\" e% c( t4 h
7.     s = tmp @@ p;
   8 u9 w# ~% d# i6 u  _\" Q
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;+ z# Q( e9 n3 S! K& ]
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0, ' P) t1 I3 o2 z2 r& c' t
   
10.      AppendTo[lst, {p, S}]];
    ) i9 j8 w2 w  H8 l- B2 U; l0 c
11.     ];, h9 v% x6 ^* U
    
12.    lst
    8 B2 g+ {8 g7 j# V
13.    ];

复制代码

0 ~: D6 Z) g: f$ ]/ T% h
说明：
4 U) Z# Q' J4 g/ ~3 b  y程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
第二个参数y：循环次数
$ R6 t* W$ _1 d5 f2 [9 @, o
例子：
" P( Y* N/ }3 ?, }) w
7 O* a5 m+ ?# w" |" r

1. f[100, 10000] // MatrixForm

复制代码

! {2 Q. l, ]! A" R结果：

9 q' ^3 I& b+ D$ o# X, q' H

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧