求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：
0 a) u# Z. ^  e8 P

1. f[x_, y_] := Module[
   ! M, n4 P2 K. g' G
2.    {tmp, s, p, i, lst, S},
   # N) i) i1 m1 t. N  f& N) R
3.    tmp = (#1 + #2 + #3)/2 &;6 u6 a0 X: P. |/ P
   
4.    lst = {};
   & C2 `& M5 s, k& d; l, N
5.    For[i = 1, i <= y, i++,
   , r4 ]8 Y7 ^, ?! \/ O3 c5 l
6.     p = RandomInteger[x, 3];+ j$ M9 c+ u9 A& @% I5 r( u& b
   
7.     s = tmp @@ p;
   3 f8 I* }1 P, I! K& C
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
   8 u0 R; x. ?2 ?; Z9 l
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   4 J( O  R8 s3 K# P! P6 `+ v$ P7 _
10.      AppendTo[lst, {p, S}]];9 W) a6 T7 i4 {4 i: M
    
11.     ];+ c. }$ e) E: H1 h1 j- A
    
12.    lst
    ! }6 i5 Q9 N( {/ i3 m- v
13.    ];

复制代码

$ N+ K- T' N9 D9 R0 C8 u! t8 p
- m9 M: E0 Y& d9 h说明：
程序f[x,y]采用随机算法。
第一个参数x：边长取值范围
第二个参数y：循环次数

+ T) S& }1 u( p: R- x" k例子：

0 k+ q2 U6 G; m: b6 U

1. f[100, 10000] // MatrixForm

复制代码

& d6 Y3 B# u1 s$ e9 i
结果：
" e% t' J+ c3 H+ n* {9 X

5 T% v+ R* l  Y# }

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧