求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：
, A: M. Q) i5 S& t! K! \& v% ^8 X

1. f[x_, y_] := Module[
   8 E9 s, Q& o, n% @
2.    {tmp, s, p, i, lst, S},
   6 V( I) y' Z% d2 b/ |4 e& Y% `. W
3.    tmp = (#1 + #2 + #3)/2 &;
   % h( I, L/ _1 G) a* Q) G% w1 t! B
4.    lst = {};- Z\" @% E6 `, w; E
   
5.    For[i = 1, i <= y, i++,0 W, |& d% |6 T
   
6.     p = RandomInteger[x, 3];
   9 z; Z1 l, t# U5 V) H: L
7.     s = tmp @@ p;
   ( d% D  l- ^) W* B) B* ]3 Q
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;1 b! ]+ K4 A- E; V6 j) @! z
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   7 h9 [2 I\" F( X) l\" l
10.      AppendTo[lst, {p, S}]];
    0 T% E' Z  k! b# q6 E
11.     ];
    . R3 g' M; p2 H8 u
12.    lst
    0 n  j& ~7 x7 F8 h
13.    ];

复制代码

" L: O" s  J, S5 I
2 c( ^! u( |8 Z  o, C说明：
$ \. S8 K$ Q: f7 x% o8 c. y* t0 l: V程序f[x,y]采用随机算法。
+ ?9 k) D' i' {5 r! ]" W2 q第一个参数x：边长取值范围
第二个参数y：循环次数

例子：

0 i( E: S2 i% c9 E( J- s

1. f[100, 10000] // MatrixForm

复制代码

5 I9 l/ D/ }2 q0 Q
, L. q5 z5 F) U5 S2 J+ j结果：

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧