基于MATLAB-VB的网络故障诊断软件设计

1440.2010.18(6)ComputerMeasurement&Controlchinamca.com:2009-11-22;:2009-12-28:(SJ08F14);:(1984-),,,,(1963-),,,,,:1671-4598(2010)06-1440-03:TP393:AMATLAB/VB蒋静芝,孟相如,庄绪春,郑博,李欢(,710077):VBMatlab;VB,Ac-tiveXMatlab,,,;,,VBMatlab,,:;;VB;MATLAB;SoftwareDesignofNetworkFaultDiagnosisBasedonMATLAB/VBJiangJingzhi,MengXiangru,ZhuangXuchun,ZhengBo,LIHuan(TelecommunicationEngineeringInstitute,AirForceEngineeringUniversity,Xian710077,China)Abstract:AwayofcallingMatlabbyVBisappliedtodesignsoftwareaboutnetworkfaultdiagnosisbasedonNeuralNetwork.ThemaininterfaceofthediagnosissystemiscompiledintermsofVBandusingActiveXtocallMatlabneuralnetworkstoolboxisusedtofinishthefaultdiagnosisofnetwork.CombiningMatlabwithVBisusefultoshortenthecycleofexploitationandreduceprogrammersworkload.Thissoftwarehasfavorableinteractiveinterface,soitiseasytolearnorpredominate.ExamplevalidationshowsthatcallingMatlabbyVBtoexploitnetworkfaultdiagnosissystemisfeasibleanditsdiagnosisresultmeetthedemandsofreal-timenetworkfaultdiagnosis.Keywords:networkfaultdiagnosis;softwaredesign;VB;MATLAB0,,,,,,,,,[1]Matlab[2]MathWorks,,MATLAB:,;,,,VBVB[3]Microsoft,,,,MATLABVB1VBMatlab,VBMatlabDLL(DynamicLinkLibrary)DDE(DynamicDataExchange)ActiveX,MatlabComBuilder,,DLLVBMatlabDDEActiveX,VBMatlabDDEMatlab,ActiveXVBMatlab[4-5]11ActiveXActiveXMicrosoftWindows,ActiveX,ActiveX,,MatlabActiveX,ActiveXMatlabCOM,Matlab.Application,COM,VBActiveX,MatlabAc-tiveX,VBActiveXMatlab12MatlabMatlab,WindowsMat-lab,Matlab6,:MATLAB/VB1441chinamca.com,MatlabMatlab,ProgramIDMatlab,ProgramIDMatlab.ApplicationMatlab.Application.single,,Matlab,MatlabVBMatlab:DimMatlabAsObject(Matlab)SetMatlab=CreatObject(Matlab.Application)(Matlab)MatlabActiveX,,VB13ActiveXMatlabMatlabVB,Matlab.Application3,Ex-ecute,GetFullMatrix,PutFullMatrix,Matlab,Matlab,Matlab:(1)Execute:ExecuteMatlab,:BSTRExecute([in]BSTRCommand)ExecuteMatlab,CommandMatlab,Matlab,,(2)GetFullMatrix:GetFullMatrixMat-lab,:GetFullMatrix([in]BSTRName,[in]BSTRWorkspace,[in,out]SAFEARRAY(double)*pr,[in,out]SAFEARRAY(double)*pi);:NameMatlab;WorkspaceMatlab,prpi(3)PutFullMatrix:PutFullMatrixMat-lab:PutFullMatrix([in]BSTRName,[in]BSTRWorkspace,[in,out]SAFEARRAY(double)*pr,[in,out]SAFEARRAY(doub-le)*pi);GetFullMatrix14,VBsetMatlab=NothingMatlab,221211MATLAB,VB,,,,11212(1):VB,21,7,Text1,Text2,...,Text7;9,Lable1,Lable2,...,Lable7Caption,Lable8Lable9Caption;3,VBCommand1Command2Command3,;Com-monDialog1RichTextBox1,CommonDialog1,RichTextBox1,.txtBP,trainlm,know_data.mat,:PrivateSubCommand2_Click()GetData_training'Matlab,lmSetMatlab=CreateObject(Matlab.Application)CallMatlab.PutFullMatrix(PMar,base,sam_I,Ml-mag)CallMatlab.PutFullMatrix(TMat,base,sam_O,Ml-mag)MReal(0)=num_SCallMatlab.PutFullMatrix(R2,base,MReal,Mlmag)MReal(0)=EpochsCallMatlab.PutFullMatrix(EMat,base,MReal,Mlmag)MReal(0)=LrCallMatlab.PutFullMalrix(SMat,base,MReal,Mlmag)MReal(0)=GoalCallMatlab.PutFullMalrix(GMat,base,MReal,Mlmag)Matlab.Execute(R1=size(PMat,1):R3=size(TMat,1):)Matlab.Execute(net=newf(minmax(PMat),[R2,R3],{'tansig','purelin'},'trainlm'):)Matlab.Execute(net.trainParam.epochs=EMat;net.trainParam.goal=GMat,net.trainParam.show=SMat;)Matlab.Execute([net,tr]=train(net,PMat,TMat);)RichTextBox1.Text=Matlab.Execute(A=sim(net,PMat))Matlab.Execute(E=TMat.A;MSE=mse(E);)144218chinamca.comTemp=save+App.Path+\know_dataMatlab.Execute(Temp)EndSubPrivateSubCornmand3_Click()SetobjectMatlab=NothingUnloadForm1EndSub(2):,VB,18,10Text,5Lable,2Command1RichTextBox2:2(3):,VB,Form1MATLAB/VB,1Lable;,VBCommand1Com-mand2,,22221,(DARPA)KDD'99(KnowledgeDiscoveryDatabas-es)[6],DOSProbeR2LU2R,,41KDD'99,41,httptelnet,,,,50011NormalDoSProbeR2LU2R503025128125816049201522500000001001001001000[7],,;,KDD'99,41568111722243238,9,,,,,MATLABMAPMINMAX[0,1]222,9,4;,12max_epoch=5000,error_goal=0001lr=005,1125,33,,,VBMATLAB,,;223225,Sim,[0,0,0,0,0,0,12,255,1],[223,384,0,0,0,0,5,5,0],[00163,-00848,00114,09901][00279,-00710,00125,00259],(1461)6,:1461chinamca.com,,ARM70,,Barker6,7,,,,,DDS40s,13Barker,613Barker713Barkerr8,,90,8,,I/Q54,C/OS-IIminiARMQ2368,,,;,:[1],.[J]..2007,22(5):760-766.[2]LilyX.Li.MeteorRadarUsingCADIIonosonde[D].Canada.1999.[3].DDSQ2368[J].,2000,6:30-33.[4].ARM[M].:,2005.[5]LabrosseJJ.C/OS-II(2)[M].:,2003.[6],.DDSDS/FH[A]..[C].:,2007,7:706-711.(1442),:DosNormal225201,8993%,,3ActiveXMatlabVB,BP,,Matlab,,,,BP,,,:[1],,.BP[J].,2004,21(10):10-13.[2].MATLAB[M].:,2008.[3],,.VB[J].,2008,16(8):1099-1100.[4],,.VBMatlab[J].,2007,28(11):2730-2732.[5],,.VBMatlabBP[J].,2009,26(6),24-26.[6]UniversityofCaliforniaIrvine.UCIKDDArchive[DB/OL].ht-tp://kdd.ics.uci.edu/.[7]ZhangLi,MengXiangru,WuWeijia,ZhouHua.Networkfaultfeatureselectionbasedonadaptiveimmuneclonalselectionalgo-rithm[A].2009InternationalJointConferenceonComputationSc-iencesandOptimization[C].2009,4:969-973.