Fwd: Re: mma question

• To: mathgroup at christensen.cybernetics.net
• Subject: [mg521] Fwd: Re: mma question
• From: Patcavana at aol.com
• Date: Tue, 7 Mar 1995 16:17:26 -0500

```The following code has a problem. I'm trying to compare two values for an If
statement test. The test is {Integer}< Integer... this doesn't seem to work.
How can I change {Integer} to Integer so that the test will work. Any ideas.
Thank-you.....
---------------------
>Forwarded message:
>Subj:    Re: mma question
>Date:    95-03-06 14:58:54 EST
>From:    Patcavana
>To:      nb at eeyore.stanford.edu

Nancy, I typed it in wrong in email but not in mma. It looks like this:

MinimumNeighborDistance[co_List,sublist_List]:=
Block[{len,minm,minpair,ll,sl},
minm=1000000000000;
minpair={};
sl=sublist;
len=Length[sublist];
For[i=1,i<=len,++i,
Print[i];
ll=Partition[Flatten[Take[sublist,i]],1];
sl=RotateLeft[sl,1];
ii=ll[[1]];
jj=ll[[2]];
If[co[[ii,jj]]<minm,minm=co[[ii,jj]];minpair={ii,jj}];       (* the problem
is on this line*)
If[co[[ii,jj]]==minm,Append[minpair,{ii,jj}]]                (*also on this
line*)

];
minpair
]
co[[ii,jj]] is of  the form {Integer}, minm is as defined. The test for the
If doesn't work..
I've changed the problem line to
If[Apply[Integer,Flatten[co[[ii,jj]]]]<minm,..........just to try to get
co[[ii,jj]] as close to integer form as possible so I can do the If test. I
end up with  If[{Integer}<integer,then,...} But it still didn't work.....
ii and jj are just calculated indexes into integer array co.

```

• Prev by Date: Re: auto notebook running
• Next by Date: Re: SOUND!
• Previous by thread: Re: Graphics on a NeXT into MSWord on a PC?
• Next by thread: PowerMac Update