MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

Fwd: Re: mma question


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