求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：

1. f[x_, y_] := Module[
   ' W1 O, f$ F- f, h  ]; x3 W9 q) ]0 F
2.    {tmp, s, p, i, lst, S},
   ' y- a3 r\" p0 q
3.    tmp = (#1 + #2 + #3)/2 &;
   5 {* o8 `7 ~* r  Z1 a: ~( H
4.    lst = {};
   ) ~) v8 O+ ^& W. i/ s. j7 O
5.    For[i = 1, i <= y, i++,
   6 W- r- d6 A) A: l5 i+ a
6.     p = RandomInteger[x, 3];
   # B  d+ c- f4 a% n( `
7.     s = tmp @@ p;
   + l, S1 w1 X! V\" i( Y/ p; a& i: M- S' z3 S
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;$ N% @0 Q8 v7 d. U( K8 Z
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0, 4 _  v8 N3 L* A% Q4 u$ M
   
10.      AppendTo[lst, {p, S}]];
    ) N: P2 q9 D; I
11.     ];; N\" n6 H8 y- p! \5 l5 K- Y2 ]
    
12.    lst
    0 M5 Q+ a* [% X- Q+ p  B+ s1 ]: U+ Q
13.    ];

复制代码

" x- b2 g* N- a说明：
& C9 c% ^( P1 S" ?: w; W, n" ^程序f[x,y]采用随机算法。
5 K% ^+ N# q4 L' K! I第一个参数x：边长取值范围
第二个参数y：循环次数
5 l# s5 a5 F  H5 E0 C. t9 L/ b
1 w& j( O4 B. E9 j" L& H' A& ?例子：

# i$ y; o6 R! b: p

1. f[100, 10000] // MatrixForm

复制代码

结果：
; c$ ^) T6 @7 X- E2 r' S

; l: i3 w5 l& [# w0 s; ?6 n
0 }% c" }4 k: }5 A2 v

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧