function?a=a_new（xyydkRNMKBBsumIrwabc）
????????syms?arn;
????????dEc_ymk=zeros（1M）;???dEc_Bavgrk=zeros（1R）;
????????for?m=1:M
????????????dEc_ymk（m）=（y（mk）-yd（mk））/（K*M）;????????%??errortemp=errortemp+（ymk-yd（mk））^2;???Ec=errortemp/（2*K*M）;???dEc_ymk=diff（Ecymk）;?????
????????end
????????for?r=1:R
????????????for?m=1:m
????????????????dEc_Bavgrk（r）=dEc_Bavgrk（r）+dEc_ymk（m）*?w（rm）;?
????????????end
????????end
????????for?r=1:R
????????????for?n=1:N
????????????????Brk=B（r）/（1/（1+（（x（nk）-c（rn））/a（rn））^（2*b（rn））））*（1/（1+（（x（nk）-c（rn））/arn）^（2*b（rn））））;???????
????????????????Band=Bsum-B（r）+Brk;?????????
????????????????Bavgrk=Brk/Band;????????????????
????????????????dBavgrk_arn=diff（Bavgrkarn）;???????????????%對(duì)Bavgrk求arn、brn、crn的偏導(dǎo)?
????????????????dBavgrk_arn=subs（dBavgrk_arnarna（rn））;??????%給變量dBavgrk_arn、dBavgrk_brn、dBavgrk_crn中的變量求偏導(dǎo)并賦值?
????????????????dEc_arn=dEc_Bavgrk（r）*dBavgrk_arn;???????????%對(duì)Ec求arn的偏導(dǎo)
????????????????a（rn）=a（rn）-Ir*dEc_arn;
????????????end
????????end

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????7528??2010-04-19?20:24??mm0.m

?????文件???????1075??2010-04-14?20:51??a_new.m

?????文件???????1085??2010-04-14?20:51??b_new.m

?????文件???????1086??2010-04-14?20:34??c_new.m

?????文件????????360??2010-04-14?19:05??createA.m

-----------?---------??----------?-----??----

????????????????11134????????????????????5