【正文】 傳感器名稱 文本 3 唯一標(biāo)識每個傳感器 橫坐標(biāo) 數(shù)字 6 1 傳感器橫坐標(biāo) 縱坐標(biāo) 數(shù)字 6 1 傳感器縱坐標(biāo) 陣型表數(shù)據(jù)結(jié)構(gòu)： 數(shù)據(jù)項 數(shù)據(jù)類型 長度 小數(shù)位數(shù) 含義說明 陣號 文本 3 唯一標(biāo)識每個陣 主傳感器 文本 3 原點位置傳感 器名稱 垂直傳感器 文本 3 垂直方向傳感器名稱 平行傳感器 文本 3 平行方向傳感器名稱 校驗傳感器 文本 3 校驗傳感器名稱 輔助傳感器 文本 3 輔助傳感器名稱 傳感器參數(shù)表數(shù)據(jù)結(jié)構(gòu)： 數(shù)據(jù)項 類型 長度 小數(shù)位數(shù) 含義說明 傳感器號 文本 3 唯一標(biāo)識每個傳感器 增益（十進制） 數(shù)字 3 0 傳感器的增益 閾值（十進制） 數(shù)字 3 0 傳感器的閾值 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 43 實現(xiàn)方法 數(shù)據(jù)庫的連接 采用 ADO 方式連接數(shù)據(jù)庫。 F_source:=(filePath)。data source39。Provider==***ID=***。 。39。0f0f39。 writeln(f_dest,39。 finally closefile(f_dest)。,SW_SHOW)。 cgqYz:=(39。傳感器號 39。 22:cgqH:=39。 44:cgqH:=39。 end。 。 (bookmark)。39。39。)。 if (39。 if 0 then begin 。 assignfile(f_source,39。 try 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 47 while not eof(f_source) do begin readln(f_source,a,b,c,d)。).AsString:=inttostr(a)。 (39。 end。 end。 數(shù)據(jù)流來源：命令類型文件、命令參數(shù)文件 。 說明：前置處理器上傳數(shù)據(jù)。 c、 數(shù)據(jù)流：環(huán)境參量。 組成：溫度、風(fēng)速、風(fēng)向。 begin assignfile(ht_,39。 try writeln(ht_,39。ffff39。)。 writeln(ht_,39。 end。 end。 begin assignfile(ht_,39。 try writeln(ht_,39。ffff39。)。 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 51 writeln(ht_,39。 end。 end。39。0c0c39。)。 writeln(ht_,39。000039。)。39。主要實現(xiàn)代碼如下： //采集環(huán)境變量 procedure 。 winexec(39。 end。 begin if ck_end(39。39。)。 fengsu:=fengsu/100。,fengsu,39。 closefile(f_dest)。 :=floattostr(fengxiang)。為計算模塊提供運算數(shù)據(jù)。 數(shù)據(jù)流去向：計算參量表。39。,SW_SHOW)。 var f_source,f_dest:textfile。 str_temp1,str_temp2:string。) then begin :=false。 assignfile(f_dest,39。 rewrite(f_dest)。,[i])1)。,[i])+1,length(lbx_jiaoyantime1.Items[i]))。 b:=dbl_spantime。 39。 closefile(f_dest)。39。 end。 計算顯示模塊主要數(shù)據(jù)流程 數(shù)據(jù)流：計算參量。 組成：計算參量。039。39。 finally closefile(f_source)。39。 finally closefile(f_source)。 。 。 calculate(ZDmeishu)。 if (formatfloat(39。,)) and (formatfloat(39。,))then begin //:=0。 end。 if =0 then begin 。 end。 end。 setlength(bomblist,)。 :=sszzb。39。,)。,ZD_bx)。,)。 sum_x:=sum_x+。 hxPJ:=。+formatfloat(39。+formatfloat(39。 if zxPJ then Str_zPJ:=39。,abs(zxPJ)) else if zxPJ then Str_zPJ:=39。,abs(zxPJ)) else Str_zPJ:=39。 (zzuobiao)。 (PJ)。insert into dandian (序號 ,橫坐標(biāo) ,縱坐標(biāo) ,距離 , 偏 移 距 離 , 偏角 , 日期 , 時間 , 橫 向 偏 距 , 縱 向 偏 距 ) values (39。39。,39。,39。39。,39。39。39。,39。39。39。) 39。 //計算炸點中心位置和偏移 :=sum_x/。中心 39。偏右 39。偏左 39。039。39。39。 zxPJ:=。 :=sqrt(sqr()+sqr())。 。39。,39。39。39。,39。39。39。,39。,39。,39。39。 。 (inttostr(i+1))。 (inttostr(i+1))。+formatfloat(39。+formatfloat(39。,abs(hxPJ)) else Str_hPJ:=39。,abs(hxPJ)) else if hxPJ then Str_hPJ:=39。 if hxPJ then Str_hPJ:=39。 bomblist[i].x:=。39。 PYJL:=formatfloat(39。 juli:=formatfloat(39。 zzuobiao:=formatfloat(39。 xuhao:=inttostr(i+1)。 :=baxin_y。 D:=datetostr(date())。 。 end else i:=i+1。 i:=0。 :=0。,)=formatfloat(39。,)=formatfloat(39。 if 0 then begin if 1 then begin for i:=0 to do 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 60 begin temp_csZD:=[i]。 。 。 shengshu:=+*wendu。 reset(f_source)。 //獲取溫度 amp。 reset(f_source)。 sum_y:=0。039。 數(shù)據(jù)流來源：時間參量表、狀態(tài)參量表。并對各坐標(biāo)系進行轉(zhuǎn)換，在主控機屏幕上按炮彈爆炸時間順序顯示出彈著點坐標(biāo)位置 ,并且顯示原始爆炸信號和經(jīng)過信號分析處理后的。 N11Click(Sender)。 save_Envirenment。 end。 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 57 end。 if inttostr(a)=str_temp1 then begin dbl_spantime:=bstrtofloat(str_temp2)/3000000。 str_temp2:=copy([i],pos(39。 for i:=0 to do begin str_temp1:=copy([i],1,pos(39。)。39。 begin if ck_end(39。 b :double。 end。 winexec(39。 流程圖如下： 時 間 參 量 表狀 態(tài) 參 量 表計 算 參 量 表信 號 處 理 圖 信號處理模塊數(shù)據(jù)流程圖 主要實現(xiàn)方法 procedure 。 說明：對時間參量、狀態(tài)參量進行分析處理得到計算參量。 end。 :=floattostr(wendu)。,wendu)。 write(f_dest,fengxiang,39。 rewrite(f_dest)。 assignfile(f_dest,39。) then begin :=false。 var f_source,f_dest:textfile。,SW_SHOW)。39。 end。 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 52 end。 writeln(ht_,39。)。000039。 writeln(ht_,39。 rewrite(ht_)。 var ht_:textFile。39。)。000039。 writeln(ht_,39。)。)。主要實現(xiàn)代碼如下： //校驗實現(xiàn)過程 procedure 。39。)。000039。 writeln(ht_,39。)。)。主要實現(xiàn)代碼如下： procedure 。 數(shù)據(jù)流來源：前置處理器。 數(shù)據(jù)流去向：時間參量表、狀態(tài)參量表。 組成：命令、參數(shù)。 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 48 通信模塊主要數(shù)據(jù)流程 a、 數(shù)據(jù)流：通信命令。 。).AsInteger:=c。 增 益 （ 十 進 制 ）39。 (39。)。 end。) then begin :=false。39。 (39。 。 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 46 、閾值的讀取 為了操作員能夠?qū)崟r了解陣中各傳感器的狀態(tài)，必需要對傳感器的增益、閾值進行讀取。 。 輪循 批處理的方式主要實現(xiàn)代碼： bookmark:=。 55:cgqH:=39。 33:cgqH:=39。 case cgqM of 11:cgqH:=39。).AsString。 增 益 （ hex ）39。 winexec(39。)。 writeln(f_dest,ffff)。 rewrite(f_dest)。第一種是單個修改，第二種是廣播的方式，第三種輪循批處理的方式。+str_datasource+39。 。DatabaseConfig39。 主要實現(xiàn)代碼如下： filePath:=extractfilepath()+39。 數(shù)據(jù)流去向：傳感器參數(shù)表、前置處理器寄存器。 組成：傳感器名稱、橫坐標(biāo)、縱坐標(biāo)。 b、數(shù)據(jù)流：傳感器坐標(biāo)。 對地攻擊檢測評估系統(tǒng)技術(shù)說明書 41 說明：設(shè)置陣型、包含的傳感器。評估軟件子系統(tǒng)包括以下模塊： 系統(tǒng)布陣模塊 通過系統(tǒng)布陣模塊，操作員可以根據(jù)實際情況，如炮彈的種類、靶場的地貌、地形等選擇相應(yīng)的陣型，設(shè)置相應(yīng)參數(shù)。在本系統(tǒng)的分析 過程中，我們通過對大量的數(shù)據(jù)進行分析，主要是利用 Matlab 自帶的分析工具來進行，在環(huán)境中鍵入 wavemenu 就可打開該環(huán)境。在本例中，當(dāng)越來越多的高頻信息從信號中濾去時，相應(yīng)的低頻部分變得越來越“純潔”，即所含的噪聲越來越小。wname39。) 。) ② X=waverec(C,L,Lo_R,Hi_R) 說明：它是 wavedec 函