求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：
% m) T8 T% T$ M8 g( P# G7 ]! Y7 R

1. f[x_, y_] := Module[
   8 G) j3 \- E$ P
2.    {tmp, s, p, i, lst, S},. l+ B! s; `7 n0 x  p4 g0 b+ s
   
3.    tmp = (#1 + #2 + #3)/2 &;+ B/ S\" P/ ~1 p. ~5 e
   
4.    lst = {};
   * p6 F$ J* {( F! B8 Z: V- C
5.    For[i = 1, i <= y, i++,) F; t' g: X) y! i( @4 p
   
6.     p = RandomInteger[x, 3];
   , ^. n* m/ W* I# y
7.     s = tmp @@ p;
   4 W0 V: l0 o  U2 F' G
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;, J+ o& g0 U- V: b1 h# X; G
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0, ! K& \' a  j- B2 C& K/ J8 {
   
10.      AppendTo[lst, {p, S}]];, J# g' w- A/ E# o9 E3 V, d
    
11.     ];
    + M% w' o0 X5 u+ T% M
12.    lst! g3 I0 T& L$ F
    
13.    ];

复制代码

- i: ?' s4 m1 m6 D
说明：
程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
第二个参数y：循环次数
0 d) G9 s& V- F( O5 W7 d
# R4 [( p* w) x. ?( C6 Z例子：

4 k" {% }4 b5 M0 J9 N; `5 T- N

1. f[100, 10000] // MatrixForm

复制代码

) M. h3 n* E: C
$ g$ j, f/ u, ~, L+ X( L# n结果：
# I0 T  x6 }+ g; A: R
# F/ S; T& n; b2 {

1 c/ s* w7 S2 k  W. H* q

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧