📄 node101.html
字号:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2 Final//FR"><!-- Converted with LaTeX2HTML 95.1 (Fri Jan 20 1995) --><!-- by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds --><!-- Modified Simulog 03/97 --><HTML><HEAD><TITLE>7.9 Unclassed</TITLE><LINK REL=STYLESHEET TYPE="text/css" HREF="./Modulef.css" TITLE="Modulef CSS"><meta name="description" value="7.9 Unclassed"><meta name="keywords" value="Guide6"><meta name="resource-type" value="document"><meta name="distribution" value="global"></HEAD><BODY BGCOLOR="#FFFFFF"><P> <IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM ALT="Modulef"><A NAME=tex2html1654 HREF="node100.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif" ALT="previous"></A><A NAME=tex2html1658 HREF="node92.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif" ALT="up"></A><A NAME=tex2html1660 HREF="node102.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif" ALT="next"></A><A NAME=tex2html1662 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif" ALT="contents"></A><A HREF="../Guide6-18/node101.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM ALT="[BIG]"></A><A HREF="../Guide6-14/node101.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM ALT="[Normal]"></A><A HREF="../Guide6-10/node101.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1661 HREF="node102.html">8 Adapting a new terminal</A><B>Up: </B> <A NAME=tex2html1659 HREF="node92.html">7 Internal programs</A><B> Prev: </B> <A NAME=tex2html1655 HREF="node100.html">7.8 Implementation aids</A><B><A HREF="node2.html" >Contents</A></B><HR SIZE=3 WIDTH="75%"><H1><A NAME=SECTION05790000000000000000>7.9 Unclassed</A></H1><P><P><P> <UL><LI><P><PRE> REAL FUNCTION RANDOM(I) INTEGER I</PRE><P>generates random <A NAME=3494> </A> numbers<A NAME=3495> </A>. <BR><P>On entry: <BR><P> I <b><</b> 0: initialization of the generator (we advise abs(I) = "big" first number);<P>For I <IMG BORDER=0 ALIGN=MIDDLE ALT="" SRC="img22.gif"> 0, we obtain a real number between 0 and 1.<P><LI><P><PRE> REAL FUNCTION ATANG(Y, X) REAL X, Y</PRE><P>This is the same as function<A NAME=3496> </A> ARC-TANGENT with two arguments, but it does not crashif X and Y equals 0; in this case ATANG(0.,0.) = 0.<P>The result is a number between 0. and 2*PI. <BR><P> Y: corresponds to MODULE * SIN(ALPHA);<P> X: corresponds to MODULE * COS(ALPHA). <BR><P><LI><P><PRE> SUBROUTINE CXHULL(X, Y, CRITER, REFPTS, NBPTS, HULL, NBHULL) REAL X(NBPTS), Y(NBPTS) REAL CRITER(2, NBPTS) INTEGER NBPTS, REFPTS(NBPTS), HULL(NBPTS), NBHULL</PRE><P>calculates the convex hull of a collection of points<A NAME=3497> </A>. <BR><P>On entry: <BR><P> NBPTS, X(NBPTS), Y(NBPTS): definition of the collection of points;<P> CRITER(2, NBPTS) and REFPTS(NBPTS): the work arrays for the sort. <BR><P>On exit: <BR><P> HULL(NBHULL): the convex hull of NBHULL points;<P> HULL: X and Y references defining the convex hull. <BR><P>The points in the hull are input by turning in the positive direction. <BR><P><LI><P><PRE> REAL FUNCTION CPXLIN(X,Y,N,HULL,NBHULL) INTEGER N,NBHULL,HULL(NBHULL) REAL X(N),Y(N)</PRE><P>computes the "complexity" of the <A NAME=3498> </A> polygon X,Y.<P> CPXLIN= 2*length of the line/perimeter of the convex hull. <BR><P>On entry: <BR><P> X, Y: line through N points;<P> HULL: convex hull of NBHULL points. <BR><P>On exit: <BR><P> CPXLIN= 2*length of the line/perimeter of the convex hull. <BR><P><LI><P><PRE> SUBROUTINE NNUEES(X, Y, Z, N, BX, BY, BZ, NBBARY, CHAINE) INTEGER N, NBBARY, CHAINE(N) REAL X(N), Y(N), Z(N), BX(NBBARY), BY(NBBARY), BZ(NBBARY)</PRE><P>Algorithm for <A NAME=3499> </A> dynamic clusters<A NAME=3500> </A>. <BR><P>On entry: <BR><P> N Points X, Y, Z and NBBARY initial barycenters BX, BY, BZ. <BR><P>On exit: <BR><P> The NBBARY barycenters found: BX, BY, BZ;<P> CHAINE(I): which points to the barycenter to which the point X(I), Y(I), Z(I) belongs. <BR><P><LI><P><PRE> SUBROUTINE BBLOCS(X, Y, Z, N, BX, BY, BZ, NBBARY, CHAINE) INTEGER N, NBBARY, CHAINE(N) REAL X(N), Y(N), Z(N), BX(NBBARY), BY(NBBARY), BZ(NBBARY)</PRE><P>On entry: <BR><P> N points X, Y, Z and NBBARY, the number <A NAME=3501> </A> of barycenters desired. <BR><P>On exit: <BR><P> The NBBARY barycenters found: BX, BY, BZ;<P> CHAINE(I): which points to the barycenter to which the point X(I), Y(I), Z(I) belongs. <BR><P><LI><P><PRE> INTEGER FUNCTION ISIGNE(I) INTEGER I</PRE><P>returns 1 if I <b>></b> 0, 0 if I = 0 or -1 if I <b><</b> 0.<P></UL><P><P><P><HR SIZE=3 WIDTH="75%"><IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM ALT="Modulef"><A NAME=tex2html1654 HREF="node100.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif" ALT="previous"></A><A NAME=tex2html1658 HREF="node92.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif" ALT="up"></A><A NAME=tex2html1660 HREF="node102.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif" ALT="next"></A><A NAME=tex2html1662 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif" ALT="contents"></A><A HREF="../Guide6-18/node101.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM ALT="[BIG]"></A><A HREF="../Guide6-14/node101.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM ALT="[Normal]"></A><A HREF="../Guide6-10/node101.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1661 HREF="node102.html">8 Adapting a new terminal</A><B>Up: </B> <A NAME=tex2html1659 HREF="node92.html">7 Internal programs</A><B> Prev: </B> <A NAME=tex2html1655 HREF="node100.html">7.8 Implementation aids</A><B><A HREF="node2.html" >Contents</A></B><BR> <HR><P><ADDRESS></ADDRESS></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -