求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：

1. f[x_, y_] := Module[4 a8 S9 w8 z\" p4 l. x9 I( O; ^/ \
   
2.    {tmp, s, p, i, lst, S},
   $ z+ P* |- f! E+ y
3.    tmp = (#1 + #2 + #3)/2 &;' L$ [$ ?- |' S$ l
   
4.    lst = {};
   ' L$ j0 |, O' @1 {& u6 @
5.    For[i = 1, i <= y, i++,
   0 a$ x+ O! r; U6 q( k1 n
6.     p = RandomInteger[x, 3];% z1 G; {9 r1 J
   
7.     s = tmp @@ p;
   9 Z8 g/ P: b4 Z- G; d( B
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;/ Y& p* h: G& D8 Y2 H
   
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   - J; x/ `! I6 |& V8 Y/ N\" _& c
10.      AppendTo[lst, {p, S}]];; D# A, b1 v# f( L4 T+ Y7 R
    
11.     ];# j. q1 q6 C+ O/ t\" F. H* k
    
12.    lst
    7 q- l  ^5 s& V\" ]5 v( X$ C- u
13.    ];

复制代码

5 ~# t$ ^5 W, ]1 e说明：
! d! h6 D2 m9 I% v3 J7 Y程序f[x,y]采用随机算法。
$ n6 l! d( S, ?8 {7 N; v第一个参数x：边长取值范围
第二个参数y：循环次数

例子：
6 g/ v7 i' \  c

1. f[100, 10000] // MatrixForm

复制代码

$ E4 i' Q1 k+ V8 }
结果：
/ e7 O0 A4 v& e. [5 [
' b2 d6 C8 Q, H, s0 K- Z
- l. [# x$ n0 C
5 j; A* k3 Z. ^( o, {- U

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧