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

MathGroup Archive 2007

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

Search the Archive

Re: Problem with Which

  • To: mathgroup at smc.vnet.net
  • Subject: [mg74066] Re: Problem with Which
  • From: David Bailey <dave at Remove_Thisdbailey.co.uk>
  • Date: Thu, 8 Mar 2007 04:38:23 -0500 (EST)
  • References: <eslsiq$q3v$1@smc.vnet.net>

Miguel wrote:
> Let a function of six variable
> AH[Ts_,Th_,Tr_,f_,w_,i_]:=(
>     Which[NumericQ[Ts]&&NumericQ[Th],tipo=1,
>       NumericQ[Ts]&&NumericQ[Tr],tipo=2,
>       NumericQ[Ts]&&NumericQ[f],tipo=3,
>       NumericQ[Ts]&&NumericQ[w],tipo=4,
>       NumericQ[Ts]&&NumericQ[i],tipo=5,
>       NumericQ[Th]&&NumericQ[Tr],tipo=6,
>       NumericQ[Th]&&NumericQ[f],tipo=7,
>       NumericQ[Th]&&NumericQ[w],tipo=8,
>       NumericQ[Th]&&NumericQ[i],tipo=9,
>       NumericQ[Tr]&&NumericQ[f],tipo=10,
>       NumericQ[Tr]&&NumericQ[w],tipo=11,
>       NumericQ[Tr]&&NumericQ[i],tipo=12,
>       NumericQ[f]&&NumericQ[w],tipo=13,
>       NumericQ[f]&&NumericQ[i],tipo=14,
>       NumericQ[w]&&NumericQ[i],tipo=15];
> tipo)
> 
> In[77]:=AH[1,Th,Tr,f,4,i]
> Out[77]=
> 4
> Correct
> 
> In[78]:=AH[1,Th,Tr,f,w,5]
> Out[78]=
> 4
> Wrong
> 
> In[79]:=AH[Ts,Th,Tr,4,4,i]
> Out[79]=
> 13
> Correct
> 
> In[80]:=AH[Ts,Th,Tr,4,w,5]
> Out[80]=
> 13
> Wrong
> 
> I d'ont understand. Where is my error?
> 
> 
Hello,

The incorrect answers do not reproduce for me using 5.2 under Windows 
XP. I suspect that some of your variables (e.g. w) already had values 
before you executed this code.

David Bailey
http://www.dbaileyconsultancy.co.uk


  • Prev by Date: Re: Problem with Which
  • Next by Date: Re: How can I automate this problem in a mathematica notebook?
  • Previous by thread: Re: Problem with Which
  • Next by thread: Re: Problem with Which