求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：

1. f[x_, y_] := Module[
   # L5 z: S& C# p* ^/ U) @
2.    {tmp, s, p, i, lst, S},
   ( i/ e8 i$ g9 \! ^9 u
3.    tmp = (#1 + #2 + #3)/2 &;
   % S: y: [4 z' j2 @
4.    lst = {};
   7 \' n6 J  @: q6 R) ~, T
5.    For[i = 1, i <= y, i++,3 R' m0 l\" Y0 s
   
6.     p = RandomInteger[x, 3];8 u1 {+ }7 \1 A9 b
   
7.     s = tmp @@ p;$ p/ o: Y) y$ p) [7 O& x5 q\" S
   
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;+ j' Y7 ?\" Z5 y# R3 b& ~$ z- s. u9 J
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,   K2 ?: \, ]( z7 v7 K
   
10.      AppendTo[lst, {p, S}]];
    6 M9 R: B( X7 R, J
11.     ];2 D/ p0 @1 {2 ^% |( p/ F4 V' \
    
12.    lst\" x! p6 U0 g  Y- D
    
13.    ];

复制代码

0 G. m+ a4 q3 V$ ?+ L- L5 Y" z
) T* G; p$ ^/ Z! o( s+ T! }说明：
# V) x1 \; I/ T/ v程序f[x,y]采用随机算法。
$ C6 Q: i# M3 b6 F2 f/ Q第一个参数x：边长取值范围
. u* s9 Z$ H+ k0 @6 t+ [第二个参数y：循环次数

例子：

1. f[100, 10000] // MatrixForm

复制代码

* y0 @) ^. R0 T- R
" d& d* Z' A& c* a# T结果：
3 A7 z2 ]) R. }# P! @% r


  O& ^% _, ?; O" x9 H2 \

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧