求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：

1. f[x_, y_] := Module[4 l/ t- T0 u; O0 V) _) G
   
2.    {tmp, s, p, i, lst, S},
   2 R3 Q) l+ N9 K3 _8 V
3.    tmp = (#1 + #2 + #3)/2 &;
   2 E0 z# s+ K$ D. Y\" B
4.    lst = {};2 j: m: d# z- J% s
   
5.    For[i = 1, i <= y, i++,
   9 a' |, `8 n1 a
6.     p = RandomInteger[x, 3];( V! @7 a# p9 J9 O( T
   
7.     s = tmp @@ p;5 X9 {( M1 @\" _4 W8 g, q7 W
   
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
   $ b& T1 a; ?) q& U* o6 K# o
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   + w# Q8 H5 m) i1 p/ T8 {
10.      AppendTo[lst, {p, S}]];. l' Y3 {# {# }$ M, N
    
11.     ];+ r+ I! k3 ]: X5 Z
    
12.    lst
    7 M- H1 v; }& ?) [2 r# I8 h
13.    ];

复制代码

说明：
程序f[x,y]采用随机算法。
6 O  ~$ q% I* W+ h" a1 r9 H" s第一个参数x：边长取值范围
7 t* m, T( @$ b! P( L! w) A: v第二个参数y：循环次数
" |$ H) M9 k2 Z
( ~5 T! q) e9 L" B例子：

1. f[100, 10000] // MatrixForm

复制代码

1 r) z- m' M) R/ w6 K" K) q" W; m
* R( A* ]1 u" H0 [结果：
& L9 w  {" n5 |( P1 m
4 }  W7 f; G+ h- L% |6 S, a: f" `
- s5 A' H+ P, r, @1 H" W
5 \: E- z; Y' [" Z. X2 W

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧