Re: How build a function repeating the same pattern?
- To: mathgroup at smc.vnet.net
- Subject: [mg58482] Re: How build a function repeating the same pattern?
- From: "dkr" <dkrjeg at adelphia.net>
- Date: Mon, 4 Jul 2005 02:24:03 -0400 (EDT)
- References: <da5j11$20n$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In[1]:= sss[w:{_,_List,_}..]:={w}/.{m_/;(Head[m]=!=List),n_List,t_}:>{m,Transpose[n], t}/.{m_/;(Head[m]=!=List),n_List,t_}:> Plus@@((m/.t->n[[1]])*n[[2]]/n[[3]])/.{a__}:>Plus[a]; In[2]:= q1[t_] = a1*Exp[(-b1)*t]; q2[t_] = a2*Exp[(-b2)*t]; q3[t_] = a3*Exp[(-b3)*t]; In[3]:= sss[{q1[t],{{t11,m11,s11},{t12,m12,s12}}, t},{q2[t],{{t21,m21,s21},{t22,m22,s22},{t23,m23,s23}},t}] Out[3]= (a1*m11)/(E^(b1*t11)*s11) + (a1*m12)/(E^(b1*t12)*s12) + (a2*m21)/(E^(b2*t21)*s21) + (a2*m22)/(E^(b2*t22)*s22) + (a2*m23)/(E^(b2*t23)*s23) In[4]:= sss[{q1[t],{{t11,m11,s11},{t12,m12,s12}}, t},{q2[t],{{t21,m21,s21},{t22,m22,s22},{t23,m23,s23}}, t},{q3[t],{{t31,m31,s31}},t}] Out[4]= (a1*m11)/(E^(b1*t11)*s11) + (a1*m12)/(E^(b1*t12)*s12) + (a2*m21)/(E^(b2*t21)*s21) + (a2*m22)/(E^(b2*t22)*s22) + (a2*m23)/(E^(b2*t23)*s23) + (a3*m31)/(E^(b3*t31)*s31)