求助。关于编程问题

流氓兔

哦～～

sjs914915

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

chxq666

哦～～

myqlzx

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

wert

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

mathcd

程序：

1. f[x_, y_] := Module[
   % i, E\" m7 u) E\" B/ g* c/ E7 D1 f
2.    {tmp, s, p, i, lst, S},) q2 T. L, T% b9 `4 S. Z
   
3.    tmp = (#1 + #2 + #3)/2 &;- r7 k! e0 I, ]& f- ?
   
4.    lst = {};5 s' {\" k& f2 w% x: h% M
   
5.    For[i = 1, i <= y, i++,  Y. Q4 i' N7 X9 @+ M% j
   
6.     p = RandomInteger[x, 3];/ h% F7 S6 e3 ^, T- w3 T
   
7.     s = tmp @@ p;
   / ]+ M* \+ {1 F
8.     S = Sqrt[s*(s - #1)*(s - #2)*(s - #3)] & @@ p;
   * J+ o( g7 W/ j\" Z7 ^- V
9.     Which[Element[S, Reals] && Element[S, Integers] && S != 0,
   : y7 w) j  W8 G* M$ t
10.      AppendTo[lst, {p, S}]];
    ! c\" R0 A6 _, }\" U6 P
11.     ];5 [0 M) r# U: C8 H
    
12.    lst/ R- D3 {3 b- c) L( X
    
13.    ];

复制代码

! H0 U: ?3 ~5 y* ^; H说明：
  X! `3 H9 }- P* \( m5 ~* q程序f[x,y]采用随机算法。
9 p) c$ l# d$ }' @+ @$ l* g第一个参数x：边长取值范围
; I. W+ r9 Q% [第二个参数y：循环次数
4 P2 R! G) e$ U5 S0 I# M! K
例子：
6 i: h1 n% |- U, y. v
! r9 q" s/ H+ [2 \: [7 B1 _8 J) p, j5 T

1. f[100, 10000] // MatrixForm

复制代码

结果：
" z) s( u9 _- S( S* z* M

yellowaug

C语言的？？？？？

mathcd

这里使Mathematica 版吧