Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

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