求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：
/ H9 _  U0 }" z$ m+ L

1. f[x_, y_] := Module[% l% Z2 o- x' ~! D. J3 }
   
2.    {tmp, s, p, i, lst, S},
   ) i1 I5 N  o% y3 b- g9 V( ^, t( k  h
3.    tmp = (#1 + #2 + #3)/2 &;. h/ A& x: ?  v9 V) d7 g4 Z2 _
   
4.    lst = {};9 P9 F7 j3 o4 v& N1 U! t
   
5.    For[i = 1, i <= y, i++,/ H* {/ v9 T6 b! f
   
6.     p = RandomInteger[x, 3];( Y! a5 x9 B9 c. y9 ~
   
7.     s = tmp @@ p;, j! I; ~0 m0 m- K* v
   
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;8 t% o% W% v2 c8 x
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   ) }  M% R\" u$ Z/ e! h5 N1 j, W
10.      AppendTo[lst, {p, S}]];1 w. k1 ^* ]3 i+ E
    
11.     ];
    , V5 F0 ]* V: N, C( K* |$ V; s& [
12.    lst
    2 ?( P8 B) s' _  o8 i$ b) d
13.    ];

复制代码

3 z& A! C8 d0 `% P6 z7 z, K
% b2 C, Z6 M2 T! u# R; ^说明：
1 c3 C, y/ d0 E6 k' T4 T3 F& D6 x# Q程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
, K6 p- |) v5 R1 u% _第二个参数y：循环次数

, K! s, ]7 ^* Y! g例子：

1. f[100, 10000] // MatrixForm

复制代码

5 Q" R* o. l+ e: i# a& I* I
结果：

5 A# ^  P5 n3 g" ^6 s
. Y% Q7 a! R* ]' k7 ?8 r

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧