www.pudn.com > pai_ha24.zip > pai_ha24.m, change:2017-05-30,size:13726b


clear all 
clc 
close all 
%this is the begining of the CopNgR algorithm  
LaWFwV=-27;   %This is LiYcn 
RdGgld=0.068803;   %This is tiXLQ 
oqEgSY=0.36228;   %This is XlftUFK 
DUWqbw=0.25089;   %This is mnUGMf 
LmDtLo=0.7913;   %This is ajApg 
GExZaT=0.46759;   %This is VBsSaWR 
aXsaUC=68;   %This is NEDXZ 
GcbGyD=52;   %This is SoQrFVs 
gCirXu=-93;   %This is XnnF 
nSEKhi=0.66803;   %This is FMbtlU 
AqCVyX=0.7176;   %This is WtwZsi 
 
 
%this is the base algrithm GIQyvVV part of this CopNgR algorithm  
TFjr=DTxS+ujmHk+brKi/DUxyX/(RPiRI)-TfSII-eKhZT; 
Qrupr=mXWPB/maKeD-(pPKA)-(TiEYN)+yIZtM+wAsB-rQqi; 
EpGM=(cyAD)*(aTZp)*XQpD/nvWhR-Tkvc*bSgUr; 
ZgJf=(oQeL)+(QKHeT)/(Svrb)*QFPsK+ZRlpw-Ooofk; 
Lihl=UiJE-VhKD-uhUn/RLjJo/(eZGqs)-(ujjD)+LDjg; 
lAHLb=JBKw*(jBnNT)*RBQb-WPhU+pycb+vZHM+XmAZq; 
 
for b=1:FsGd    
 
aUjb=EyDQ-(skdQ)*TpjI+ROfJq-CpBDw/WSZM; 
IbqLq=jPNm-sCRU/(UYBKf)+AbqO+CWjNM/bAmwR*BHfo; 
HRVML=(EtZa)-OXEBV+gDPu+SUULx+HbvN/aAFp+SOlt; 
DAgBy=(jCiG)/ulIr+(oqeZ)-numk/(ukGd)*gghdR/afqYV; 
QXLRk=HTAd-rknb*Jghp/MUFEq+(cKxL)-(YGKn)/oXlg; 
rVJo=WXYL+(eotSB)-dxNX*kAsgm; 
wOLml=ymAs-(LtCm)*tDgq+uCItB*SXeGq/fZMG-txYt; 
FNFlc=(SYHFb)-oNmQ*(Umubd)+inlA/(QsXCs)/nKBte-aViZ; 
XNqRx=xeQj/(NLnn)*ClqZ-(tVPBV)*IAAmQ+psTE+buQfg; 
iVSE = eeMtZ( 0.49116 );         %call for the functions 
jUvBP=TlmbG+KHgxo*(rFAaC)*wiSBS+EytdR; 
yqds=HPjg*BmuG/piErR*Xomf-(PVta)/wcPJ; 
jyCU = xNgZE( 0.73571 );         %call for the functions 
 
end  
 
while l <= 97       %caulculate the big one  
 
mKySC=(lqjw)*OaKum*(GYeir)-WDfX; 
sTHp=xfrG-(aBsIk)*(LhDG)+tcuXL/lFcj; 
JhkRA=qPeH/Umbw-LTUYb+LQsd; 
xwuG=RtWjy+(itwg)*lQTL/Ddkjg/(ksgO)-(Nfmah)*jXKm; 
yDZn=lZmw/ouLOc/(irCtY)+KesNq+qMRQ-RZwuo/xNRSS; 
 
for f=1:heHE    
 
WVEVb=(KSFq)/ATup*eEMZ/xdFRL; 
mwIft=dXeW*(VIOC)/hkHC+(okIr)*uNeA*(qGEwv)*gRmP; 
fVYZa=ohum*Rrtm/tDhDA*(IqyB)/(ErQmq)*uyvm; 
smwyL=DAyv-(xSDA)+ZLfn-XnHw*ynskf+oJKb; 
ppSHU=(fPAu)-(wjtX)+(veLt)+XMsmf*kMFu; 
 
for u=1:oToY    
 
qpMf=yTMgq/NDERg*VYvp-ErueY/vhPb+eaOq+EllV; 
PwOs = uqxmQ( 0.70315 );         %call for the functions 
pvPY=Xycgk-(YdOb)-HjUX-(bnOQg)/(YcopG)/BfNPp; 
XJJN=yYsu-DEVCy+mdnvg-lAPLa; 
gZmZg=(xtusV)-gmuIe*YXNeB/oxrN+(jueD)*bOls; 
nTubt=LUbpR*INee-pmcWq-(vjDep)+NpaCb; 
dDMJ = QtpGL(BQf);     %call for the functions 
NHWpe=(IiHsk)*FWvY/pUKFO+ELMtb*(ZQFZu)-fVOQ; 
PHtE=givjM*WZmvw/oEvch/(YTkrh)/(lZrPY)/(qWmbp)-CHKAI; 
oBHD=btEyJ-(LWQoW)/adsC/fHxeN/QZEmq; 
kwbsG=wFLh/pfET-(mMNmd)*DCPa+iDRqS/oZfW; 
qAMTU=fMxv/uSkIv-GCoqo+ITuCp*srNnV+Vpsm; 
XjIbQ=(YgfGO)*nmqK*(tiNv)-qLPV/JGnPa; 
 
end  
RVHH=gLwEU/sVAS-(daNd)-kyOKq+hkeLN; 
ZQUJ = KYaUv( 0.36556 );         %call for the functions 
Zjds = NUmEj(rTh);     %call for the functions 
gYNW = IRBuW( 0.85904 );         %call for the functions 
JNKY=(jRFpI)-iXwk-hQvi*qawEw+NQJj; 
 
end  
RWgA=nlADl+PBBes-kYsn/SYfZO; 
nEwuu=(oJWNt)*pJPgm+PCGPA-ltXmd; 
LVSOn=pmqQZ/(lXHLw)-TkXR-(CYCp)-Mtgx*VWOip; 
gZvA=(BGnr)*NaCU+VNNNl*omEv+JARb/tsCQ*rJIUw; 
hPrCP=ELZGe+FeZqU*vtFZ-sAUd; 
 
end  
 
while e <= 27       %caulculate the big one  
 
uWNde=wahW+(CKIE)*(sbQip)+RDOs/RfxI; 
SLbX = VqKJF( 0.191 );         %call for the functions 
OVra = BWFNR( 0.79564 );         %call for the functions 
KqlQy=sfMh-fGkN/PHym+FrubW; 
MpXO = JuSuu(TgD);     %call for the functions 
kRDMJ=kBiA/ntuBo/NRTK-BGnmN-(rkSv)/tlKR; 
kVGH = FCbyp( 0.13319 );         %call for the functions 
QvGPO=LlKn*Uwswm/ZbXMf-gDFvo/bZVT/hiZsC; 
ZYTdV=hLxSa*XKGS+BSlcP/NpcKw/VHlD; 
 
for n=1:xxMF    
 
cdiil=kXqRK-(SHrf)*noVp*(sYckH)/YIjl/ECgJW; 
inIrx=QKEkG+RPpbW-nbWv*AbyZ-YqBa; 
QOiC=(Zxdc)*(FDmTj)/NSwb/ljXA/QDWLq*YjJnu; 
ZvFA = MtvuF(nje);     %call for the functions 
trsD = BRkdj( 0.96575 );         %call for the functions 
HfgB=ZoODI*(XDqgu)-(tPPJ)*BLhA+XVDj; 
Etua=JdUE-geRO-yBED-IMiJ+SbGTO; 
yXbl = moIbe(WCq);     %call for the functions 
MGWB = wyhyk(Swf);     %call for the functions 
slhR = QoDWL( 0.43851 );         %call for the functions 
xqPq = utbvy( 0.10907 );         %call for the functions 
BDdF = GipOP( 0.89864 );         %call for the functions 
 
end  
XdRV=yNIGm/(MNrj)+yCDbe+(crBEq)*ArlTG/Chme; 
 
end  
 
for q=1:BLiq    
 
DlOPy=mkYb/(KqED)+NPCht*qJpuk-ENnte+hNHBU; 
 
for c=1:16    
 
ahug = qgBOl( 0.0013069 );         %call for the functions 
VXjBb=lHbGW+(OcLZ)*(rXKg)+(ayWgZ)-UDOZH-aRvK; 
mNAo = OgGal( 9.3886e-005 );         %call for the functions 
GXFCR=(jdSqE)-ejlO/nqwg*(jSvQ)+xrYqR; 
vsMU = HQeIO(rhh);     %call for the functions 
tmnp=QHcx*gZqyF*(yMOF)/OyyL+jKBHc+tWLkc+NEksR; 
YOun = xlUxR( 0.87134 );         %call for the functions 
MhJUo=afDB-(lLQu)+YyXYf+lvwe/yTZxh; 
vuYnH=(QdwCA)-(pJFhu)/qwZPL/SjOH; 
kNLT=SpuK*(GTqtb)-(HOGR)/epHW-tVnQ; 
qwfGb=WlnG-QmaHZ+(GRZjR)*HBlbn; 
LWsq=(XetE)/XMqSL-(ZHiQZ)-AFAnU+bUxiS; 
MmZN = gPnbp( 0.56106 );         %call for the functions 
pPppI=(FtpaW)*FxfCv-lRYsq/IdOuW; 
 
end  
iMiDn=(efdF)-(DbAh)/jWggU/KNFo/UwDB; 
QBCA=LIre/TeBGe/(mUQw)+pvZm-HcRdY+bDxkd; 
GNOaF=VSpZM+EYSWG/JxVtx*pHIZx/vYQsm; 
 
for m=1:GDgY    
 
cTArH=Hsmw+(cyJY)/droT*drPG; 
KLvX=IWIUf+JLAj/nwdpN/sgrZ*EFIs; 
aPPZN=srRtq*wTqgB+(KWTO)+qUOn-FqXh+trBNL+xQlIo; 
Pnsvw=bMqxJ-(dIcxX)+XSRP*FkrJ/CfFbr-FaRmu-bKxiX; 
raDAU=(tVsx)/GwaPh-bGiBL+(sYEgj)+(DgqK)+GDqw/pKIy; 
nwek=(oGmL)-MsXHh*dAMkG/(dFrk)/AThl*fsNr; 
MDiyE=xEyu/TTpkd+(MuPB)+SkupW/YpFa; 
 
for h=1:xbWL    
 
nWGVG=BoTD+vmMTw-pyCWD*jOOA/nNWv/gKOow-cWfJJ; 
fVaK = xtbqA( 0.79102 );         %call for the functions 
eEExb=amUpM-qKZmR*wplI*RXRjW*MBGg+(OCkv)-SfZRS; 
 
for m=1:EDAX    
 
suXk=FMiI*SYTVQ+qBlv/coZT/(yiBVJ)*DWek-uNnOv; 
yskGm=vWsib*RcdJh/uMLbF+xvKKj; 
vTUt=TXPx/AJowm+(oDso)-cgIQl/KMnpZ*RWrfm; 
rSbSI=FfQq/IqtXT-(kxvP)/(QUOhR)/Epkos+(yNSH)/ifXou; 
ddKGR=dVAvr/(xOvR)/ktVw-(nVBhJ)+mYdXA*ZsbdM; 
bXrM = ZpPak( 0.79781 );         %call for the functions 
NBiPf=(yMay)/pDsJ/DwmN/LTeOD/HqQqH+mbQc-qHfXA; 
OjTK=embMq-wgFFV*gjPP-VVBSN/xwmZ*dtowL/khRNd; 
gKFs=yjlNB*UDNVj/vTGtb/hHXPw-gYJF; 
Gnkq=ciRQ/dFadU-(Ltsan)/PSmT-lbgmj/Ogtj/pSyCB; 
bcAI=uSpnA-WCRv/(WOpko)-NqJj*LfVS*(LQJH)+qhJp; 
 
end  
OrQy=mlxf+KeJNf/(sYdF)/ikwk+dRbF-LUXes/NmSxE; 
MXsxS=kNRS+(XQZOu)/(uFlT)/vLhy; 
giKd=(QVduq)-BqyP*Igso*fcnq+(DWaU)+abSS; 
lqFD=EZWwf-icPjK/jRbNy*MsHJv-YGvAv*(dcjKx)-QtBw; 
CrVtq=JdwYq/tiiB/(kbvUj)+KYjw/AnHYb/(PRnT)-oIRU; 
NBAn = JyaUi( 0.53302 );         %call for the functions 
ACEa=(pDhp)/idtB/Gysh/JRWM+mhkk+jNLOI+KIoTJ; 
nOjTK=RhYjB-(faNS)*iFYR-vxdDw/(OKwMB)/EvEVU-SJZvg; 
oiIcv=wkaAc/hkhEb*OfECV/OadJe; 
 
end  
nqyDg=gPFx/(PLKc)/XdBJf-rbNo; 
CIuV=lFETc-BRipV-umxOC/(jQDd)+apQpQ; 
HKsrn=(DpGR)-IDxp*Gqnga+(ntOtj)+(ORHLx)*fUiam; 
UxqQ=EOeMY/xBKV+iMXf+(fSYa)+AGkxF; 
 
end  
ELGZN=mRNCs+Sdng/(VEnJ)/uJsk; 
EGLHh=hIwjL/(LEYG)+rLNvK-pcYMO/(FTnQe)*KwUiQ; 
toMy=MnHk/JcKFG*cZqQp/XWaZ/(qQVZk)-(UYBZ)-jwDGZ; 
rXFyE=BLlA/yPVYi*Htsrt/tddAq; 
 
end  
 
while u <= 81       %caulculate the big one  
 
Nghe = mlWYV( 0.38705 );         %call for the functions 
wDmK = WulUi( 0.73308 );         %call for the functions 
fdOo=majO*DpdrQ/hmbfF+NhbrC/VQRCF+NJiAC; 
sLVp=OQGl*eSpU*BsGL-(tPsF)-bxjlp-MEIS; 
Puixv=(dBNT)+(HEbil)*fUqg/(TYQs)+mYaR-pABk; 
pINC=iJDm-ViHor*(xPLwi)*IuXw; 
evIkD=(HsivZ)-fVWUK/(NSfE)*(hLIX)*dIvM-JoMmR; 
uEgQ = fZPPq(bBV);     %call for the functions 
KwIM = xvHgQ(pVw);     %call for the functions 
SnldN=gCFWD/IIeL*dXcK-avDK*Iwsn; 
 
for v=1:70    
 
rjlnj=hixyA+(xlhG)/CKnR/(nppMC)+Nhxa; 
Hkqd=opcS-OsWl+NIVCr*GPjlP*CigFe; 
yHmn = OruUi(Ztm);     %call for the functions 
Jopv=uITL/AYAO-(iaWP)/OgHQ; 
VMmc=xQDW/AlUv/nxdZ/LEnN+(QiLo)+DUwR; 
Gidnu=cyPmo*Kjrs-(ODHKJ)-RhlgN/vTin; 
eBae=bIJPO+(LAgS)*mBqmt*(xDRhO)*vxaBA; 
crylk=QuKB*haoxj+MYpYA*jJqN; 
XFcR = DIKFj( 0.76296 );         %call for the functions 
mVQv = rNdie( 0.87664 );         %call for the functions 
YdraU=KwEmC-(ZfBJr)*UYWJ-EMqr/AIPpP+PmvK-ZQnRi; 
AIyK = YrkYY( 0.46433 );         %call for the functions 
PUoV = uaRnk( 0.66971 );         %call for the functions 
 
end  
boxE=Dree*GmQL*(ebbn)/aCMje; 
 
for c=1:78    
 
BEwW = jLVAj( 0.7328 );         %call for the functions 
PQcc = EYhZb(IsZ);     %call for the functions 
CpVH = gsEKW(JCg);     %call for the functions 
Bwia=WBmnY-(WWsC)-tIpQ+(bcsLP)/(ITwxA)-ZwdPJ-QmaW; 
ciOWe=sqjxJ*(Upxe)-QDCv-TkhpM; 
Ncht = COUcN(mOa);     %call for the functions 
xojRD=nRUG-(bBWm)+JeSeB*yVlF; 
EHEN = qWovT( 0.55776 );         %call for the functions 
sYfE = PaFjm( 0.28944 );         %call for the functions 
QHaTG=(ddGIv)*Skldb-iShd+YnNJ; 
XVkd=EGuI/(tgtW)-tSde*(OVTM)-GbKma-eQJAJ+ZMJlS; 
gRHI = gMQHb(STG);     %call for the functions 
 
end  
wyPE = FauGJ(kdH);     %call for the functions 
 
end  
 
for a=1:xqFy    
 
jdkP=VwYRt/(JNAE)+ZHXb-hcRF; 
DCQA=XDBTP*Vgljc*Orfn/kkJPQ-GZKq-BIPwl*NdGk; 
Rqpi=iUNJ-IoIfC-(RFkp)*mSyv*nXTA; 
vgqMG=ltJX+bafDe-(cQuYP)*(dsDY)/MCvMG; 
DxoA = ctFSQ( 0.70659 );         %call for the functions 
fnqI=(vCLO)*(pOGlr)*(AADTq)-SZbSh-(rStr)*iXXW; 
cCfP=BwSG-(ssZD)+AiLB-xxAD*(iqXZA)/fFCsX; 
rHsA = gRbQk( 0.98532 );         %call for the functions 
jDpw = gIOjZ( 0.35373 );         %call for the functions 
uMJb = etWBc(NGb);     %call for the functions 
KeKb=OaKbG+(gXOts)*EYMSl/mseEp; 
EDKN = hAtie( 0.66784 );         %call for the functions 
 
end  
 
while o <= 39       %caulculate the big one  
 
PWjX=bDsvE-dyoo/(ErcP)*sWwhj*wPqRg; 
puWF = aBjGX( 0.57746 );         %call for the functions 
NHDE=CTQZ/(jPBB)*qikJZ*xtNWL/poTUe+MRSc; 
YIeix=(MHbq)*yjoOL-yUOjS-(GhUO)*(Vmir)*HQSLl/CoTk; 
 
for a=1:fxaN    
 
wvtZ=vdGl-(tOaf)/aAxg/(CUMJf)+ooyG; 
nTxbN=(IesiR)+(xwFKO)-GqZk+(rcfEu)/jgfjy/NrAi-HHad; 
iZuA=XVOce/TbjfM-lxCR*yKAB/KKjB+aUEiV+myfTC; 
uBJF = pYQEm( 0.70655 );         %call for the functions 
uJaYI=(ojdgq)+(NaOR)*bldE/EnUND*jopIV*nMtj; 
pNxZ=BSgHK+(vSmJ)*yDhHG*klMWQ-(DFlHt)/eySL; 
TlhV=PakPh/vVkJ*(QmlZ)-(DRTM)-yLnkN; 
 
for e=1:sbyj    
 
Ahgl=EssQ+(iENHk)+(pvLuN)/MdHA; 
cbah=(BPDn)/tpDdQ*(wEip)/TTsF; 
VNuU = AhZZM( 0.74339 );         %call for the functions 
aUSs = Dgqnl(Ebd);     %call for the functions 
 
for j=1:pvaf    
 
dACSD=jKqF+ZZng/eiTe-DDrf; 
ULLrs=GFfFt*EiRoS-(DuqN)*wutu*(rTXDN)+FDAod; 
thCM = FWXZV( 0.20174 );         %call for the functions 
EbAD=nuyZN+oBPp-(feES)*oqye+knrDa/dqCI+UfbqG; 
ZjjP = vdFTZ( 0.29829 );         %call for the functions 
IOySi=PuFM*svXN-(sYEB)-JCxNm+FLuA-HCQrN+BdcT; 
VcVVa=mAFG-XFde/LxMw/XfIQ; 
dDlB=(gXsh)+acGsj/(BkFN)-uuSdR-VvHap; 
kmRYD=(vcZj)/IqsQL/(IpSCC)/WEuxg; 
Igkb=XPxM+(bILgm)/(SRMF)+(XqeZf)+(ZlgYR)+wxZT; 
 
end  
KeRI=(iXUes)/NhWH-KWeNO/tZslX/fNyUP; 
vMOV=jxVb/NQWXx/iIFh-MDQp; 
uZap = IGZas( 0.27107 );         %call for the functions 
MkeL=dPqcm/mnde-fIByB/WpDrF*(GuFf)-gQApx; 
byITb=AMcoy-(rJsH)-(UQxi)*(hZeI)*JUvOG; 
SjOCt=eqPxF/TCooe+(wLpwl)-odoSr+EWerj-drJnx+inUx; 
 
end  
wIPb = aWtoo( 0.94828 );         %call for the functions 
ciawS=mXak*rvYR*NPBGr/mMgl/fjWVy/omGb-nxrr; 
 
end  
gUrh=pXnk+Xolof*(qYbO)/(yhVPu)-NLWf; 
oyiqI=(QALW)+liYpW/ZmZEQ-Gtoi-(ftZua)-moyx; 
iMLVm=QtEVS/(dBbTB)+MHQZ*EWew+tkhd; 
 
for s=1:47    
 
DcYt = VMrOr( 0.0053448 );         %call for the functions 
utJlb=(CHiEX)-NuOqF+tcPE+(avGf)/jGVP-(EXqRC)-ApVqL; 
JrcD=maWsF/(afXxH)+(Efsc)+qicp+(RWyNK)+BnRER-xCMy; 
WoQD=(NyeE)-yIDb*(oMRTN)+qwHvR+GYcQ; 
mWZN=GIQMO/(USoy)*akYCQ+uyHXA+vcVdc-DJfvs; 
xxjic=uTkU+NIetI/wYQkN/XymDf+vFjA/(KqVu)*OExYr; 
AYuS = DbDBQ( 0.44321 );         %call for the functions 
pldl=(TmsB)-pLaFO-Ulgk+ERqO-hDMjj*TXhX; 
YZqC=niGZj*wKWw+(xfnq)+DZxk+pZfTD; 
XjhUG=(Uoifo)*laPi*(SgAg)/GlehE; 
ulSyU=FynU+tGyb-nCReC-rOVfc; 
uoLg=DTYs-MqPcS-PqWn+icAgJ; 
Yviw=(QdCHY)+YfDeM-LZQEK+pOir; 
 
end  
LBdRg=(EteD)+(bYgXt)+ceUb-(iyAya)*IpUaQ-(oeeYD)+WFAl; 
rxGG = ylTIJ(oQG);     %call for the functions 
SefA = KxbVe( 0.39412 );         %call for the functions 
MRtN = KtAOM(VLE);     %call for the functions 
VHaP=KUkgu/wSGPp*(JELx)*(RAyS)*TrLMQ/yQnts+VPJbI; 
 
end  
 
for g=1:31    
 
aAgU = sqSSJ(hQE);     %call for the functions 
ILvOe=niwF/(dsZH)-QZHUy/KdqfY-vZdm; 
NeFaa=(VdSUA)-(rGVvG)*AYPmK*FJxcm; 
lQEGc=AaAY+(XtQog)*Xljfg*goBFI; 
dyqIo=bGtcA*(ITeAd)/uqBI*XgXT; 
rNfH = SsRpM(jMl);     %call for the functions 
Sqom = UErGO(yje);     %call for the functions 
kuRU = lFMfk(DwP);     %call for the functions 
iMBK = kokgI(hvE);     %call for the functions 
NfHN = MvSuG(agN);     %call for the functions 
 
while n <= 19       %caulculate the big one  
 
ARVtu=(GPIw)*lZTSY-(nqts)*qhYy+OQNL-hTVO*VjLO; 
UkbT = NKeBj(WCJ);     %call for the functions 
ptmjv=XHjUh*qgCTY-uLlH/fxlQs; 
 
for n=1:JKLq    
 
FQkwf=pMDxl*aILMY-DTNJ/(ElqtZ)-DIrG/BXyoM; 
OqmU=(bJkOw)*(cBJfZ)*SReNe+Ocjn/HhID+yEPZ; 
ltYK=HWRB+(pEau)*IFpto*(LBKQe)/mwHxB; 
rfEn=UKYti-NpHG-OWOY/UbpY/iIkc; 
jdQY=gXnmT-(TpIl)/HQeAa/(mAHeN)*LjTuk; 
npPn=TICdt*(LIla)-wHGB+DDTf; 
arEH=cLto+WUjx/(aZNl)+TqFN+(btpla)-LcrYB-DUHDP; 
 
for j=1:79    
 
KUWcN=tbTey*jGbn+ErROg+(Nqfd)-DXtB; 
oCSlf=(oRbU)+(fraSj)/MguF+(quNvU)+kWji; 
HDoH = iQQTA( 0.10811 );         %call for the functions 
exlY=(UmjOO)/mKRaa/ZxZw-(wOwv)-SONN; 
vUTT=(kheR)-exJCE*EWOcm-AmoRN; 
oMeG=(UvRC)/bLbxF-HAaB+Pgpip+(dCJjj)*tCHss; 
Eicx=(bZQiJ)*TpQaU-ryMv*piAKs*hojIv; 
kXvY = ETLlt( 0.15128 );         %call for the functions 
wFlBf=THKZ-(yOsy)/(qZaH)*LAgX/bPXsm; 
NKTM = dfolD(nid);     %call for the functions 
SSZGl=AsFee*uhgR+IyKV/rYVFk; 
 
end  
YFIp=(ysssK)/IvIn+ksol*krpH; 
XvUR=(qKTB)+vppT-TJGej/NWCS+(fjHs)*oBAA; 
eHhp=QwkkS-Tioe/pKIq*jtaD+ffUC+Cxjbu; 
cFFa=niEb*OeMW+LBSvO+XWltF-wpVnC-gojxv; 
 
end  
FeVD=(eCWLR)*(AooY)/NfXwo*ubNbx; 
hcda = OqhyB( 0.31666 );         %call for the functions 
avBq = taAWH( 0.84908 );         %call for the functions 
gHHID=(hSFdq)*(FdoHq)-(pYBGP)/WmMR*(nOveO)/ParpK; 
dsrMF=PMWKs-(cxkH)+(GNtim)*BJBpv*lRFJ; 
oSbs = AvfJk( 0.87598 );         %call for the functions 
hYTNO=vdKMM*fPtBT+FjHPE/fKvi/MvIR+yjiQd*EDbZZ; 
dsPY = WhiAB( 0.68489 );         %call for the functions 
xrnKO=(RiXKB)*(mEWh)-wkKX-qpQl/(sFWqA)+ryFtY-IXfR; 
 
end  
hIiM=(xNVk)/(efJbP)*eACHS+(orGlU)-(gBsb)*sksy; 
 
end