Displaying 2 results from an estimated 2 matches for "min0".
Did you mean:
min
2005 Nov 01
5
Unexpected result from binary greater than operator
Hi All,
I recently encountered results that I did not expect, exhibited by the
following code snippet:
test <- function() {
minX <- 4.2
min0 <- 4.1
sigmaG <- 0.1
Diff <- minX-min0
print(c(Diff=Diff,sigmaG=sigmaG))
cat("is Diff > sigmaG?:", Diff > sigmaG,"\n")
cat("is (4.2 - 4.1) > 0.1?:",(4.2 - 4.1) > 0.1,"\n")
cat("is 0.1 > 0.1?:", 0.1>...
2006 Mar 09
1
HCLUST subroutine question -- FORTRAN DO loops
...t diss. using list of NNs
DMIN=INF
DO 600 I=1,N-1
IF (.NOT.FLAG(I)) GOTO 600
IF (DISNN(I).GE.DMIN) GOTO 600
DMIN=DISNN(I)
IM=I
JM=NN(I)
600 CONTINUE
NCL=NCL-1
C
C This allows an agglomeration to be carried out.
C
I2=MIN0(IM,JM)
J2=MAX0(IM,JM)
IA(N-NCL)=I2
IB(N-NCL)=J2
CRIT(N-NCL)=DMIN
FLAG(J2)=.FALSE.
C
C Update dissimilarities from new cluster.
C
DMIN=INF
DO 50 K=1,N
IF (.NOT.FLAG(K)) GOTO 50
IF (K.EQ.I2) GOTO 50
IF (I2.LT.K) THEN...