第2章機(jī)械設(shè)計(jì)數(shù)表處理2.1非函數(shù)表處理2.2函數(shù)表處理2.3數(shù)值處理習(xí)題

為了便于編寫計(jì)算機(jī)查詢程序，可將數(shù)表進(jìn)行分類。按數(shù)表中數(shù)據(jù)之間是否具有客觀的連續(xù)函數(shù)關(guān)系，分為兩大類型。數(shù)據(jù)之間存在連續(xù)函數(shù)關(guān)系的數(shù)表稱為函數(shù)表，如V帶傳動中，小帶輪的包角α1與包角系數(shù)kα1的關(guān)系表;否則，則稱為非函數(shù)表，如V帶的型號與V帶截面尺寸的關(guān)系表。函數(shù)表可以使用插值法或擬合公式獲得表中未列出的數(shù)據(jù)，非函數(shù)表則不能。

查詢數(shù)表的基本思路是，用某種方法把數(shù)表的數(shù)據(jù)存儲到數(shù)組中，再用循環(huán)語句和判斷語句將已知參數(shù)（即輸入?yún)?shù)）和數(shù)組的元素值進(jìn)行比較，找到匹配或相對應(yīng)的數(shù)組元素的下標(biāo)，做一些相應(yīng)的必要處理，即可獲得正確的查詢結(jié)果。進(jìn)而，根據(jù)處理程序中必須使用的數(shù)組的最高維數(shù)，還可以把數(shù)表分為一維數(shù)表、二維數(shù)表、三維數(shù)表等多種類型。此外，還可以根據(jù)數(shù)表中數(shù)據(jù)是否規(guī)則排列，分為規(guī)則數(shù)表和不規(guī)則數(shù)表。對于不規(guī)則數(shù)表，應(yīng)作必要的手工“預(yù)處理”使之規(guī)則化，比如把數(shù)表拆分、把數(shù)據(jù)重新排列、增刪一些數(shù)據(jù)等等，以便于程序的編寫。數(shù)表類型列于表2-1中，供讀者參考。表2-1數(shù)表分類

把數(shù)據(jù)存儲到數(shù)組中是編寫數(shù)表處理程序時(shí)需要解決的一個(gè)基本問題。根據(jù)數(shù)表中的數(shù)據(jù)量和使用的編程語言不同，可以靈活采用不同的解決方案。若用VisualBasic6.0語言編程，如果數(shù)據(jù)量不大，比如數(shù)據(jù)不超過400個(gè)，比較簡捷的方法是用array（）函數(shù)構(gòu)建一維數(shù)組，還可通過構(gòu)建一維數(shù)組，再把一維數(shù)組的數(shù)據(jù)用循環(huán)語句賦給二維數(shù)組、三維數(shù)組……

的方法構(gòu)建多維數(shù)組。如果數(shù)據(jù)量太大，用array()函數(shù)構(gòu)建一維數(shù)組將受最大換行數(shù)的限制，則可把數(shù)據(jù)事先用手工寫入文本文件并存入磁盤中，在程序運(yùn)行中通過文件操作把數(shù)據(jù)轉(zhuǎn)存到數(shù)組中。如果采用VisualFoxPro6.0編程，則可用copytoarray語句把表（該表中事先已存入待處理數(shù)據(jù)）中數(shù)據(jù)賦給二維數(shù)組。2.1非函數(shù)表處理2.1.1規(guī)則非函數(shù)表處理

1.一維規(guī)則非函數(shù)表

1）單行表表2-2是普通平鍵的長度系列表。該表僅有一行數(shù)據(jù)，屬單行表。表中所列的長度系列值，用于一般機(jī)械傳動。平鍵長度的手工查詢過程是，根據(jù)輪轂長度B，從表2-2中查出相近的標(biāo)準(zhǔn)長度L?？紤]到輪轂兩端和平鍵兩端一般情況下都需要倒角，通常，保證(B-L)min=5mm即可。例如,輪轂長度B=58mm,相近的標(biāo)準(zhǔn)長度有56mm、50mm，取L=50mm，見表中陰影處。又如，輪轂長度B=12mm，相近的標(biāo)準(zhǔn)長度有12mm、10mm、8mm、6mm，取L=6mm。表2-2普通平鍵長度系列表

計(jì)算機(jī)程序查詢的過程是，先把數(shù)據(jù)存入一維數(shù)組，再通過循環(huán)語句嵌套判斷語句，將輸入?yún)?shù)（輪轂長度）與數(shù)組元素值逐個(gè)比較。如果滿足某種條件，則退出循環(huán)，此時(shí)的循環(huán)次數(shù)就反映了輸入?yún)?shù)在數(shù)組（數(shù)表）中的大致位置（行或列），然后進(jìn)行相應(yīng)的分析與判斷，即可查出所需的標(biāo)準(zhǔn)平鍵長度。計(jì)算機(jī)查詢程序所用參數(shù)見表2-3。程序的流程圖見圖2-1。程序運(yùn)行時(shí)，窗體外觀見圖2-2、圖2-3。表2-3查詢平鍵長度的程序參數(shù)表圖2-1平鍵長度查詢程序的流程圖圖2-2平鍵長度查詢前的窗體外觀圖2-3平鍵長度查詢后的窗體外觀窗體frmpj.frm的全部代碼，見代碼2-1。代碼2-1窗體frmpj.frm的全部代碼OptionExplicit ’選用顯式聲明，即變量先聲明，后使用OptionBase1 ’聲明數(shù)組下標(biāo)從1開始

PrivateSubCommand1-Click()’功能：定義變量、接收輸入、查 詢、顯示

DimshuruLAsSingleDimbiaozhunLAsSingleDimxAsIntegerDimLshuruL=Val(txtshuruL.Text)’為shuruL賦值,實(shí)現(xiàn)輸入IfshuruL<12ThenMsgBox("長度不得小于12mm!"):ExitSub’用array()函數(shù)定義一個(gè)一維數(shù)組L，存儲平鍵長度數(shù)據(jù)。根據(jù)VB規(guī)定，這個(gè)一維數(shù)組L，必須定義為變體型variant（variant是VB的默認(rèn)類型，可省略）L=Array(6,8,10,12,14,16,18,20,22,25,28,32,36,40,45,50,56,63,70,80,90,-100,110,125,140,160,180,200,220,250,280,320,360,400,450,500)Forx=1ToUBound(L)IfshuruL<=L(x)ThenExitForNextxy=1WhileshuruL<L(x-y)+5y=y+1WendbiaozhunL=L(x-y)txtbiaozhunL.Text=biaozhunL’為文本框的text屬性賦值，顯示查詢結(jié)果，實(shí)現(xiàn)輸出EndSub

PrivateSubForm-Initialize() ’窗體初始化事件,為對象賦初值

txtshuruL.Text="" ’文本框置空

txtbiaozhunL.Text=""EndSub

注意：VB規(guī)定，一個(gè)語句在一行寫不下或編寫者嫌太長時(shí)，可換行接著寫。此時(shí)，必須在行尾加一個(gè)空格和一個(gè)下劃線“-”。2）多行表表2-4是普通V帶型號與相應(yīng)初拉力增量ΔF0的關(guān)系表。表中有兩行數(shù)據(jù)，屬多行表。從表中可以看出，普通V帶型號不同，其初拉力的增量ΔF0也不同，即ΔF0大小隨著帶型號變化，但兩者之間并不存在客觀上的連續(xù)函數(shù)關(guān)系。手工查詢ΔF0的過程是，根據(jù)普通V帶型號查找其所在列，該列的ΔF0即為所要查的。例如，型號為B，ΔF0=20N。計(jì)算機(jī)查詢程序設(shè)計(jì)時(shí)，可用兩個(gè)一維數(shù)組分別存儲第一行（帶型號）和第二行（ΔF0

）的值。因?yàn)閮尚袛?shù)據(jù)個(gè)數(shù)相同，上下一一對照，所以，查到輸入型號所在列數(shù)，以該列數(shù)為下標(biāo)的ΔF0數(shù)組元素值，就是該型號的ΔF0值。程序所用參數(shù)見表2-5，流程圖見圖2-4，程序運(yùn)行時(shí)，窗體外觀見圖2-5、圖2-6。表2-4初拉力的增量ΔF0

表2-5處理初拉力增量的程序參數(shù)表圖2-4ΔF0查詢程序的流程圖圖2-5ΔF0查詢前的窗體圖2-6ΔF0查詢后的窗體窗體frmdltf0.frm的全部代碼，見代碼2-2。代碼2-2窗體frmdltf0.frm的全部代碼OptionExplicitOptionBase1

PrivateSubCommand1-Click()’功能：定義變量、接收輸入、查詢、輸出顯示DimxasintegerDimvdxhAsStringDimdltf0AsSingleDimvdxhsz ’定義存儲帶型號的變體型變量

Dimdltfsz ’定義存儲初拉力增量的變體型變量

vdxh=Trim(cbovdxh.Text)’為vdxh賦值,實(shí)現(xiàn)輸入

vdxhsz=Array("Y","Z","A","B","C","D","E")dltfsz=Array(6,10,15,20,29.4,58.8,108)Forx=1ToUBound(vdxhsz)Ifvdxh=vdxhsz(x)ThenExitForNextxdltf0=dltfsz(x)lbldltf0.Caption=dltf0’為對象dltf0的caption屬性賦值，顯示查詢結(jié) 果，實(shí)現(xiàn)輸出

EndSub

PrivateSubForm-Load()’功能：為對象賦初值

cbovdxh.Text="A"EndSub

值得說明的是，對于表2-4，也可把全部數(shù)據(jù)存儲到二維數(shù)組中，再作相應(yīng)的處理。但由于為二維數(shù)組賦值的代碼量相對增大，故此處不宜采用。實(shí)踐證明，對于一維規(guī)則非函數(shù)表，采用一維數(shù)組處理顯得比較簡單，行列數(shù)越多越明顯，如表2-6所示的普通V帶截面尺寸表。下面就給出該表的計(jì)算機(jī)查詢程序的流程圖（見圖2-7），程序參數(shù)（見表2-7），讀者可參照編寫該表的處理程序。表2-6普通V帶截面尺寸表2-7處理V帶截面尺寸的程序參數(shù)表圖2-7V帶截面尺寸查詢程序的流程圖2.二維規(guī)則非函數(shù)表一維規(guī)則非函數(shù)表在查詢時(shí)，只需要一個(gè)輸入?yún)?shù)，存儲數(shù)據(jù)使用一維數(shù)組即可，這是比較簡單的情況。與此不同，多維規(guī)則非函數(shù)數(shù)表在查詢時(shí)，需要一個(gè)以上的輸入?yún)?shù)，存儲數(shù)據(jù)不僅需要一維數(shù)組，還需要兩維甚至更多維數(shù)的數(shù)組。表2-8為鏈傳動工作情況系數(shù)KA表，查詢時(shí)需要兩個(gè)輸入?yún)?shù)，即工作機(jī)實(shí)際工作情況和原動機(jī)實(shí)際工作情況；需要兩個(gè)內(nèi)部一維數(shù)組，分別存儲工作機(jī)情況數(shù)據(jù)和原動機(jī)情況數(shù)據(jù)；需要一個(gè)內(nèi)部二維數(shù)組，存儲工作情況系數(shù)KA。手工查詢過程是，查找工作機(jī)實(shí)際工作情況所在行，查找原動機(jī)實(shí)際工作情況所在列，行、列交點(diǎn)處的數(shù)據(jù)即為KA

。例如，工作機(jī)實(shí)際工作情況為“中等振動”，原動機(jī)實(shí)際工作情況為“輕微振動”，1.5就是要查的KA

。與手工查詢類似，計(jì)算機(jī)查詢的過程如圖2-8所示，其參數(shù)見表2-9，運(yùn)行時(shí)的窗體外觀見圖2-9、圖2-10。表2-8鏈傳動工作情況系數(shù)KA

圖2-8鏈傳動工作情況系數(shù)KA查詢程序的流程圖表2-9處理鏈傳動工作情況系數(shù)KA的查詢程序參數(shù)表圖2-9鏈傳動工作情況系數(shù)KA查詢前的窗體外觀圖2-10鏈傳動工作情況系數(shù)KA查詢后的窗體外觀窗體frmkA.frm的全部代碼，見代碼2-3。代碼2-3窗體frmkA.frm的全部代碼OptionExplicitOptionBase1

PrivateSubCommand1-Click()’功能：定義變量與數(shù)組、接收輸入、 查詢、顯示結(jié)果

DimgjqkAsStringDimyjqkAsStringDimkaAsSingleDimgjqkszDimyjqkszDimkaywszDimkaewsz(4,4)AsSingleDimXAsIntegerDimYAsIntegerDimjsAsIntegergjqk=Trim(cbogjqk.Text)yjqk=Trim(cboyjqk.Text)gjqksz=Array("平穩(wěn)轉(zhuǎn)動","中等振動","嚴(yán)重振動")yjqksz=Array("轉(zhuǎn)動平穩(wěn)","輕微振動","中等振動")kaywsz=Array(1＃,1.1,1.3,1.4,1.5,1.7,1.8,1.9,2.1)js=0ForX=1ToUBound(gjqksz)ForY=1ToUBound(yjqksz)js=js+1kaewsz(X,Y)=kaywsz(js)NextYNextXForX=1ToUBound(gjqksz)Ifgjqk=gjqksz(X)ThenExitForNextXForY=1ToUBound(yjqksz)Ifyjqk=yjqksz(Y)ThenExitForNextYka=kaewsz(X,Y)txtka.Text=kaEndSub

PrivateSubForm-Initialize()’功能：為組合框?qū)ο蟮腡ext屬性賦初值

cbogjqk.Text=cbogjqk.List(0)cboyjqk.Text=cboyjqk.List(0)txtka.Text=""EndSub

3.三維規(guī)則非函數(shù)表表2-10所示為普通V帶傳動的工作情況系數(shù)KA表。人工查詢工作情況系數(shù)的過程是，查找實(shí)際工作情況所在行，查找實(shí)際啟動情況所在大列，查找每天工作小時(shí)數(shù)在大列中所處的小列，行與小列的交匯處即為所查KA。如工作實(shí)際情況為“載荷變動小”，實(shí)際啟動情況為“重載啟動”，實(shí)際工作小時(shí)數(shù)為“10~16”，KA為1.3。由計(jì)算機(jī)程序查詢，需要三個(gè)輸入?yún)?shù)：工況、每天工作小時(shí)數(shù)和啟動情況，故三個(gè)一維數(shù)組分別存儲表中的工況情況、啟動情況和每天工作小時(shí)數(shù)。一個(gè)三維數(shù)組存儲工作情況KA數(shù)據(jù)以及一些內(nèi)部變量。程序參數(shù)見表2-11，流程圖見圖2-11，程序運(yùn)行時(shí)的窗體見圖2-12和圖2-13。表2-10V帶傳動工作情況系數(shù)KA

表2-11處理V帶傳動工作情況系數(shù)KA的程序參圖2-11帶傳動工作情況系數(shù)KA查詢程序的流程圖圖2-12帶傳動工作情況系數(shù)KA查詢前的窗體外觀圖2-13帶傳動工作情況系數(shù)KA查詢后的窗體外觀窗體frmvdkA.frm的全部代碼，見代碼2-4。代碼2-4窗體frmvdkA.frm的全部代碼OptionExplicitOptionBase1

PrivateSubCommand1-Click()’功能：定義變量與數(shù)組、接收輸入、 查詢、顯示結(jié)果

DimzhqkAsStringDimqdqkAsStringDimmtssAsStringDimzhqkszDimqdqkszDimmtssszDimkaAsSingleDimkaywszDimkaswsz(5,2,4)AsSingleDimxAsIntegerDimyAsIntegerDimjAsIntegerDimjsAsIntegerzhqk=Trim(cbozhqk.Text)qdqk=Trim(cboqdqk.Text)mtss=Trim(cbomtss.Text)kaywsz=Array(1＃,1.1,1.2,1.1,1.2,1.3,-1.1,1.2,1.3,1.2,1.3,1.4,-1.2,1.3,1.4,1.4,1.5,1.6,-1.3,1.4,1.5,1.5,1.6,1.8)zhqksz=Array("載荷變動最小","載荷變動小","載荷變動較大","載荷變動最大")qdqksz=Array("空、輕載啟動","重載啟動")mtsssz=Array("<10","10-16",">16")js=0Forx=1ToUBound(zhqksz)Fory=1ToUBound(qdqksz)Forj=1ToUBound(mtsssz)js=js+1kaswsz(x,y,j)=kaywsz(js)NextjNextyNextxForx=1ToUBound(zhqksz)Ifzhqk=zhqksz(x)ThenExitForNextxFory=1ToUBound(qdqksz)Ifqdqk=qdqksz(y)ThenExitForNextyForj=1ToUBound(mtsssz)Ifmtss=mtsssz(j)ThenExitForNextjka=kaswsz(x,y,j)txtka.Text=kaEndSub

PrivateSubForm-Initialize()’功能：為組合框?qū)ο蟮膖ext屬性賦初值

cbozhqk.Text=cbozhqk.List(1)cboqdqk.Text=cboqdqk.List(1)cbomtss.Text=cbomtss.List(1)EndSub2.1.2不規(guī)則非函數(shù)表處理

1.一維不規(guī)則非函數(shù)表表2-12為漸開線圓柱齒輪的模數(shù)國家標(biāo)準(zhǔn)系列表。表中有兩行數(shù)據(jù)，第一行有28個(gè)數(shù)據(jù)，第二行比第一行少六個(gè)數(shù)據(jù)，因此該表是不規(guī)則的非函數(shù)表。表2-12漸開線圓柱齒輪標(biāo)準(zhǔn)模數(shù)系列表

從表2-12中選用模數(shù)時(shí)，一般應(yīng)優(yōu)先選用第一系列（如設(shè)計(jì)標(biāo)準(zhǔn)減速器時(shí)，模數(shù)作為輸入?yún)?shù)，由用戶從表中選擇）。有時(shí)根據(jù)具體情況也可以選第二系列，例如，設(shè)計(jì)非標(biāo)準(zhǔn)減速器時(shí)，模數(shù)是輸出參數(shù)，由強(qiáng)度條件確定，為了減少減速器尺寸與重量，模數(shù)應(yīng)選擇最接近的較大值。于是，可能出現(xiàn)這種情況：齒輪強(qiáng)度條件確定的最小模數(shù)為m′=3.6，由表2-12可以看出，按優(yōu)先原則，應(yīng)選第一系列的m=4；若按“滿足強(qiáng)度條件的前提下用料要少”的原則考慮，應(yīng)選第二系列的m=3.75。因此，為了滿足不同的需求，提高程序的通用性，模數(shù)的查詢程序應(yīng)滿足各種用戶需求。

根據(jù)上述設(shè)計(jì)要求，作出如下處理方案：將該表拆分為兩個(gè)規(guī)則的非函數(shù)表：模數(shù)第一系列表（見表2-13）、第一系列與第二系列按大小混合后的系列表（見表2-14）。為滿足用戶使用要求，程序需要詢問用戶是否總采用第一系列。如果總采用第一系列，就從第一系列表中查詢，否則則從混合系列表中查詢。從混合系列表中查詢時(shí)，往值增大的方向查到與m′=3.6最接近的值（模數(shù)為3.75），還要判斷該值是屬于第一系列，還是第二系列。程序的參數(shù)表見表2-15，程序流程圖見圖2-14，運(yùn)行時(shí)的窗體外觀見圖2-15、圖2-16。讀者可以考慮是否還有其他處理方案。表2-13第一系列標(biāo)準(zhǔn)模數(shù)表表2-14將第一、第二系列按大小混合后的標(biāo)準(zhǔn)模數(shù)系列表表2-15處理模數(shù)的程序參數(shù)表圖2-14模數(shù)查詢程序的流程圖圖2-15模數(shù)查詢前的窗體外觀圖2-16模數(shù)查詢后的窗體外觀(a)選取最接近的模數(shù)；(b)總采用第一系列模數(shù)窗體frmm.frm的全部代碼，見代碼2-5。代碼2-5窗體frmm.frm的全部代碼OptionExplicitOptionBase1

PrivateSubCommand1-Click()’功能：定義變量與數(shù)組、接收輸入、 查詢、顯示結(jié)果

DimshurumAsSingleDimshuchumAsSingleDimmdiyixilieDimmhunhexilieDimdiyiAsIntegerDimxmdiyixilie=Array(0.1,0.12,0.15,0.2,0.25,0.3,0.4,0.5,0.6,0.8,1,1.25,1.5,2,2.5,3,-4,5,6,8,10,12,16,20,25,32,40,50)mhunhexilie=Array(0.1,0.12,0.15,0.2,0.25,0.3,0.35,0.4,0.5,0.6,0.7,0.8,0.9,1, -1.25,1.5,1.75,2,2.25,2.5,2.75,3,3.25,3.5,3.75,4,4.5,5,5.5,6,6.5,7,8,9,11, -12,14,16,18,20,22,25,28,32,36,40,45,50)shurum=Val(txtshurum.Text)Ifshurum<=0ThenMsgBox("模數(shù)不能小于零！請重新輸入")ExitSubEndIfIfchkxilie.Value=1ThenFordiyi=1ToUBound(mdiyixilie)-1Ifshurum<=mdiyixilie(diyi)ThenExitForNextdiyishuchum=mdiyixilie(diyi)txtquedingm.Text=shuchumlblxilie.Caption="第一系列"ElseForx=1ToUBound(mhunhexilie)-1Ifshurum<=mhunhexilie(x)ThenExitForNextxshuchum=mhunhexilie(x)txtquedingm.Text=shuchumFordiyi=1ToUBound(mdiyixilie)-1Ifshurum<=mdiyixilie(diyi)ThenExitForNextdiyiIfshuchum=mdiyixilie(diyi)Thenlblxilie.Caption="第一系列"Else lblxilie.Caption="第二系列"EndIfEndIfEndSub

PrivateSubForm-Initialize()’

功能：為對象賦值

txtshurum.Text=""txtquedingm.Text=""EndSub

2.二維不規(guī)則非函數(shù)表表2-16為普通V帶輪的基準(zhǔn)直徑系列，是國家規(guī)定的標(biāo)準(zhǔn)系列。該表的每行數(shù)據(jù)個(gè)數(shù)不盡相同，故屬于不規(guī)則的非函數(shù)表。

表2-16中有許多空格，空格意味著無外徑值。如果某型號的帶輪在某一行無外徑值，則本行內(nèi)的基準(zhǔn)直徑不能用于本型號。為了便于計(jì)算機(jī)查詢基準(zhǔn)直徑，在無外徑值的空格處，可人為地填以“0”數(shù)字，使表變成規(guī)則數(shù)表，見表2-17。

手工選擇主、從動帶輪基準(zhǔn)直徑的過程一般是：在根據(jù)V帶選型圖確定V帶型號的同時(shí)，也得到了小帶輪的直徑范圍。在此范圍內(nèi)，大致選擇一個(gè)小帶輪直徑dd1，然后從表2-16中查詢與dd1最接近的標(biāo)準(zhǔn)基準(zhǔn)直徑dd1

，計(jì)算大帶輪直徑dd2=dd1×i（i是傳動比），再從表2-16中查詢與dd2′最接近的基準(zhǔn)直徑dd2

。計(jì)算機(jī)查詢時(shí)，則直接處理表2-17。查詢程序的參數(shù)見表2-18，流程圖見圖2-17，運(yùn)行時(shí)的窗體外觀見圖2-18、圖2-19。表2-18V帶輪基準(zhǔn)直徑查詢程序參數(shù)表圖2-17V帶輪基準(zhǔn)直徑查詢程序的流程圖圖2-18V帶輪基準(zhǔn)直徑查詢前的窗體外觀圖2-19V帶輪基準(zhǔn)直徑查詢后的窗體外觀V帶輪型號為C，初選基準(zhǔn)直徑為370時(shí)的查詢結(jié)果；(b)V帶輪型號為A，初選基準(zhǔn)直徑為1000時(shí)的查詢結(jié)果

程序執(zhí)行過程為：通過文本框和組合框接收用戶輸入的初選基準(zhǔn)直徑和帶型號，分別賦給變量shurudd和shuruxinghao，將標(biāo)準(zhǔn)基準(zhǔn)直徑系列賦給一維數(shù)組biaozhundd，標(biāo)準(zhǔn)外徑系列賦給一維數(shù)組biaozhunda和二維數(shù)組da。先找到型號所在的列數(shù)x，再通過for循環(huán)語句嵌套判斷語句，沿增大方向搜索與初選基準(zhǔn)直徑shurudd最接近的行數(shù)y，但該行的第x列處外徑不應(yīng)為零。y可能有三種情況需要考慮：

(1)y恰好是該型號帶輪的外徑系列中最小外徑值所在的行數(shù)，則取該行的標(biāo)準(zhǔn)基準(zhǔn)直徑，如型號為B，shurudd=110，搜索后，y=22（外徑為132），則shuchudd=biaozhundd(y)=biaozhundd(22)=125。(2)y大于該型號帶輪的外徑系列中最小外徑值所在的行數(shù)，但小于等于表中的最大行數(shù)ymax，即y≤ymax=55，此時(shí)應(yīng)調(diào)頭向上（沿減小方向）進(jìn)行二次搜索，直到外徑不為零的j行為止，則biaozhundd(y)、biaozhundd(j)中與shurudd最接近者即為所查。如帶型號為C，shurudd=370,首先搜索得y=39（相應(yīng)的標(biāo)準(zhǔn)基準(zhǔn)直徑為biaozhundd(y)=400）,反向搜索得j=37（相應(yīng)的標(biāo)準(zhǔn)基準(zhǔn)直徑為biaozhun(j)=355）,取最接近值，即shuchudd=biaozhundd(j)=355。(3)y大于ymax,這種情況發(fā)生在shurudd大于表中最大標(biāo)準(zhǔn)值2500的時(shí)候。此時(shí)，應(yīng)向上查找，采用循環(huán)次數(shù)不定的循環(huán)語句嵌套判斷語句，每循環(huán)一次使y減1，直到外徑不為零的y行為止,此位置的標(biāo)準(zhǔn)基準(zhǔn)直徑biaozhundd(y)即為所查。例如,型號為A，shurudd=1000，y=56>ymax=55(biaozhun(55)=2500,biaozhun(56)是不存在的),反向查找到外徑不為零時(shí)，y=48，此時(shí)，biaozhundd(y)=800,故shuchudd=biaozhundd(y)=800。窗體frmdd.frm的全部代碼，見代碼2-6。代碼2-6窗體frmdd.frm的全部代碼窗體frmdd.frm的全部代碼，見代碼2-6。OptionExplicitOptionBase1PrivateSubCommand1-Click()’

功能：定義變量與數(shù)組、接收輸入、 查詢、顯示結(jié)果

DimshuruxinghaoAsStringDimshuruddAsSingleDimshuchuddAsSingleDimshuchuwaijingAsSingleDimxinghaoDimbiaozhunddDimbiaozhundaDimda(56,8)AsSingleDimxAsIntegerDimyAsIntegerDimjAsIntegerDimsAsIntegershuruxinghao=cboxinghao.Textshurudd=Val(txtchuxuandd.Text)Ifshurudd<=0Then[HJ]MsgBox("初選基準(zhǔn)直徑不能小于零！請重新選擇")ExitSubEndIfxinghao=Array("Y","Z","A","B","C","D","E")biaozhundd=Array(20,22.4,25,28,31.5,35.5,40,45,50,56,63,71,75,80,85,90,-95,100,106,112,118,125,132,140,150,160,170,180,200,212,224,236,250,265,-280,315,355,375,400,425,450,475,500,530,560,630,710,800,900,1000,1120,-1250,1600,2000,2500)biaozhunda=Array(23.2,0,0,0,0,0,0,25.6,0,0,0,0,0,0,28.2,0,0,0,0,0,0,31.2,0,-0,0,0,34.7,0,0,0,0,0,0,38.7,0,0,0,0,0,0,43.2,0,0,0,0,0,0,48.2,0,0,0,0,0,-0,53.2,54,0,0,0,0,0,59.2,60,0,0,0,0,0,66.2,67,0,0,0,0,0,0,75,0,0,0,0,0,0,-79,80.5,0,0,0,0,83.2,84,85.5,0,0,0,0,0,0,90.5,0,0,0,0,93.2,94,95.5,0,0,0,0,-0,0,100.5,0,0,0,0,103.2,104,105.5,0,0,0,0,0,0,111.5,0,0,0,0,115.2,116,117.5,-0,0,0,0,0,0,123.5,0,0,0,0,128.2,129,130.5,132,0,0,0,0,0,137.5,139,0,0,0,-0,144,145.5,147,0,0,0,0,154,155.5,157,0,0,0,0,164,165.5,167,0,0,0,0,0,0,-177,0,0,0,0,184,185.5,187,0,0,0,0,204,205.5,207,209.6,0,0,0,0,0,219,221.6,-0,0,0,0,0,231,233.6,0,0,0,0,0,243,245.6,0,0,0,254,255.5,257,259.6,0,0,0,0,0,-0,274.6,0,0,0,284,0,287,289.6,0,0,0,319,320.5,322,324.6,0,0,0,359,0,362,-364.6,371.2,0,0,0,0,0,0,391.2,0,0,404,405.5,407,409.6,416.2,0,0,0,0,0,0,441.2,-0,0,0,0,0,459.6,466.2,0,0,0,0,0,0,491.2,0,0,504,505.5,507,509.6,516.2,519.2,-0,0,0,0,0,546.2,549.2,0,0,0,0,569.6,572.2,579.2,0,634,635.5,637,639.6,646.2,-649.2,0,0,0,0,0,726.2,729.2,0,0,805.5,807,809.6,816.2,819.2,0,0,0,0,0,-916.2,919.2,0,0,0,1007,1009.6,1016.2,1019.2,0,0,0,1127,0,0,1139.2,0,0,0,0,-1259.6,1266.2,1269.2,0,0,0,0,0,1616.2,1619.2,0,0,0,0,0,2016.2,2019.2,0,0,0,-0,0,0,25)s=0Forx=1ToUBound(biaozhundd)Fory=1ToUBound(xinghao)s=s+1da(x,y)=biaozhunda(s)NextyNextxForx=1ToUBound(xinghao)Ifshuruxinghao=xinghao(x)ThenExitFor’

查列(即型號)NextxFory=1ToUBound(biaozhundd)Ifshurudd<=biaozhundd(y)Andda(y,x)>0ThenExitFor’查行

NextyIfy=1Andxinghao(x)="Y"Ory=9Andxinghao(x)="Z"-Ory=13Andxinghao(x)="A"Ory=22Andxinghao(x)="B"-Ory=29Andxinghao(x)="C"Ory=37Andxinghao(x)="D"-Ory=43Andxinghao(x)=“E”Then’

如果y是各種帶型的最小外徑行

shuchuwaijing=da(y,x)shuchudd=biaozhundd(y)txtbiaozhundd.Text=shuchuddtxtwaijing.Text=shuchuwaijingExitSubEndIfIfy<=UBound(biaozhundd)Then’如果y不是各種帶型的最小外徑行且未超過最大

’行數(shù)，則往上找外徑大于零的行

Forj=y-1To1Step-1Ifda(j,x)>0ThenIfAbs(biaozhundd(j)-shurudd)<=Abs(biaozhundd(y)-shurudd)Thenshuchuwaijing=da(j,x)shuchudd=biaozhundd(j)’

與shurudd最接近的標(biāo)準(zhǔn)值

Elseshuchudd=biaozhundd(y)shuchuwaijing=da(y,x)EndIftxtbiaozhundd.Text=shuchuddtxtwaijing.Text=shuchuwaijingExitSubEndIfNextjEndIf

’

如果往下一直未找到與shurudd最接近且外徑大于零的標(biāo)準(zhǔn)值,就返回來往

’上找，找到最大外徑所在行。當(dāng)shurudd大于表中的最大值2500時(shí)，發(fā)生此種情況Ify>UBound(biaozhundd)ThenDoWhiley>1y=y-1Ifda(y,x)>0Thenshurudd=biaozhundd(y)shuchuwaijing=da(y,x)txtwaijing.Text=shuchuwaijingtxtbiaozhundd.Text=da(y,x)ExitSubEndIfLoopEndIfEndSubPrivateSubForm-Initialize()’

功能：為對象的text屬性賦初值

cboxinghao.Text="A"txtchuxuandd.Text="80"txtbiaozhundd.Text=""txtwaijing.Text=""EndSub

3.三維不規(guī)則非函數(shù)表

表2-19給出了V帶輪的結(jié)構(gòu)形式和輻板厚度（見文獻(xiàn)4），每行數(shù)據(jù)多少不同，且數(shù)據(jù)之間無函數(shù)關(guān)系。為了查詢帶輪的結(jié)構(gòu)形式和輻板厚度，需要輸入三個(gè)參數(shù)：帶型號、孔徑、帶輪基準(zhǔn)直徑，表中的數(shù)據(jù)需要用三維數(shù)組存儲。不僅如此，此表內(nèi)的數(shù)據(jù)也沒有一定的規(guī)律，有結(jié)構(gòu)形式，如實(shí)心輪、輻板輪、四孔板輪、六孔板輪、四橢圓輻輪、六橢圓輻輪；對輻板輪或板孔輪，還有厚度，除此之外都是空格及大面積空白區(qū)域等等，所以該表是一個(gè)比較復(fù)雜的三維不規(guī)則非函數(shù)表。為了方便處理，需要把表中的數(shù)據(jù)進(jìn)行預(yù)處理，空格處填以數(shù)字“0”（也可以填以其他字符），大面積的空白區(qū)域，要劃分成方格，并填以相應(yīng)的數(shù)據(jù)。由于array()函數(shù)對換行數(shù)和每行數(shù)據(jù)個(gè)數(shù)都有限度，而帶輪結(jié)構(gòu)與輻板厚度數(shù)據(jù)較多（1320個(gè)），有可能超出函數(shù)限度，故不宜采用array()函數(shù)建立一維數(shù)組。可以手工先把數(shù)據(jù)寫入一個(gè)純文本文件中（如jiegou.txt，見表2-20，該表僅列出了部分?jǐn)?shù)據(jù)），然后在程序運(yùn)行過程中，從該文件中讀出數(shù)據(jù)，并賦給一維數(shù)組，由一維數(shù)組再轉(zhuǎn)給三維數(shù)組。存儲孔徑數(shù)據(jù)的二維數(shù)組的建立，也采用這種方法。由此可知，本表的處理需要的數(shù)組的最高維數(shù)為三。

查詢程序的編寫思路可分為三個(gè)主要步驟：

(1)將表中數(shù)據(jù)存儲到數(shù)組。

(2)將用戶輸入的型號，賦給變量shuruxinghao，用循環(huán)語句與判斷語句查找該變量在表中的位置：大行數(shù)x（在型號數(shù)組中查）,即得到sanweijiegou(x,y,j)中的第一維x的值。將用戶輸入的孔徑，賦給變量shurud0，用循環(huán)語句與判斷語句查找該變量的位置：小行數(shù)y(在相應(yīng)型號的孔徑數(shù)組中查)，即得到sanweijiegou(x,y,j)中的第二維y的值。將用戶輸入的帶輪基準(zhǔn)直徑，賦給變量shurudd，查詢該變量的位置：列數(shù)j(在基準(zhǔn)直徑數(shù)組中查)，即得到sanweijiegou(x,y,j)中的第三維j的值。(3)對查到的sanweijiegou(x,y,j)的值，進(jìn)行判斷分類與提取信息，對非“0”值，用字符串函數(shù)left()從中提取帶輪結(jié)構(gòu)信息，用mid（）函數(shù)從中提取輻板厚度信息。查詢程序的參數(shù)見表2-21，流程圖見圖2-20，程序執(zhí)行示例見圖2-21、圖2-22。表2-21帶輪結(jié)構(gòu)與輻板厚度查詢程序參數(shù)表圖2-20V帶輪輪輻結(jié)構(gòu)與輻板厚度查詢流程圖圖2-21帶輪結(jié)構(gòu)與輻板厚度查詢示例1(B型帶輪，孔徑40mm,基準(zhǔn)直徑200mm)圖2-22V帶輪結(jié)構(gòu)與輻板厚度查詢示例2(D型帶輪，孔徑70mm,基準(zhǔn)直徑600mm)OptionExplicitOptionBase1

PrivateSubCommand1-Click()DimshuruxinghaoAsStringDimshurud0AsSingleDimshuruddAsSingleDimdd’基準(zhǔn)直徑數(shù)組

Dimxinghao ’型號數(shù)組

Dimyiweid0 ’孔徑一維數(shù)組

Dimerweid0(7,8)AsSingle’孔徑二維數(shù)組窗體frmdljg.frm的全部代碼，見代碼2-7。代碼2-7窗體frmdljg.frm的全部代碼Dimyiweijiegou(1360) ’結(jié)構(gòu)一維數(shù)組

Dimsanweijiegou(7,8,41)AsString ’結(jié)構(gòu)三維數(shù)組

DimshuchujiegouAsString ’輸出結(jié)構(gòu)形式

DimshuchuhouduAsSingle ’輸出帶輪輻板厚度

DimshuchucaoshuAsString ’輸出帶輪槽數(shù)

Dimjj1AsIntegerDimjj2AsIntegerDimxAsIntegerDimyAsIntegerDimjAsIntegerDimsAsIntegerDimkAsIntegerlbljiegou.Visible=Falselblcaoshu.Visible=Falselblhoudu.Visible=Falsetxtjiegou.Visible=Falsetxthoudu.Visible=Falsetxtcaoshu.Visible=Falsetxtjiegou.Text=""txthoudu.Text=""txtcaoshu.Text=""shuruxinghao=Trim(cbocaoxing.Text)shurud0=Val(txtd0.Text)shurudd=Val(txtdd.Text)Ifshurudd>2500ThenMsgBox("帶輪直徑不能超過2500mm，請重新輸入")ExitSubEndIfIfshurudd<=0ThenMsgBox("帶輪基準(zhǔn)直徑必須大于零，請重新輸入")ExitSubEndIfIfshurud0<=0ThenMsgBox("孔徑必須大于零，請重新輸入")ExitSubEndIf’

帶輪型號數(shù)組xinghao=Array("Z","A","B","C","D","E")’

孔徑d0數(shù)組yiweid0=Array(14,18,22,25,30,35,18,22,25,30,35,40,45,35,40,45,55,65,45,- 55,65,75,85,65,75,85,95,110,85,95,110,130,150)s=0Fory=1To6s=s+1erweid0(1,y)=yiweid0(s)NextyFory=1To7s=s+1erweid0(2,y)=yiweid0(s)NextyForx=3ToUBound(xinghao)Fory=1To5s=s+1erweid0(x,y)=yiweid0(s)’sx—實(shí)心，fb6—輻板厚度為6mm，fb7—輻板厚度為7mmNexty’sk20—四孔輻板輪厚度是20mm,lk30—六孔輻板輪厚度是30mmNextx’st—四橢圓輻輪,lt—六橢圓輻輪

dd=Array(63,71,75,80,90,95,100,106,112,118,125,132,140,150,160,170,180,200,212,224,236,250,265,280,300,315,355,375, 400,425,450,475,500,530,560,600,630,710,2500,2501)’基準(zhǔn)直徑dd’存結(jié)構(gòu)與厚度的一維數(shù)組

DimwjAsStringwj=App.Path+"＼jiegou.txt"OpenwjForInputAs＃1Forx=1To1320Input＃1,yiweijiegou(x)NextxCloses=0Fory=1To6Forj=1To40s=s+1sanweijiegou(1,y,j)=yiweijiegou(s)NextjNextyFory=1To7Forj=1To40s=s+1sanweijiegou(2,y,j)=yiweijiegou(s)NextjNextyForx=3To6Fory=1To5Forj=1To40s=s+1sanweijiegou(x,y,j)=yiweijiegou(s)NextjNextyNextxForx=1To6Ifshuruxinghao=xinghao(x)ThenExitFor’

找到大行數(shù)x（型號行）NextxSelectCasexCase1k=6Case2k=7CaseElsek=5EndSelectFory=1TokIfshurud0<=erweid0(x,y)ThenExitFor’

找到小行數(shù)y（同一型號不同d0行）NextyIfy>kThenMsgBox("孔徑太大，沒有合適的結(jié)構(gòu)。最大不能超過"+Str(eweid0(x,y-1)))ExitSubEndIfIfy=1ThenSelectCaseshuruxinghaoCase"Z"Ifshurud0<14Theny=MsgBox("孔徑="+Str(shurud0)+",太小，沒有合適的結(jié)構(gòu)。最小不能小于"+Str(14),vbCritical,"警告"):ExitSubCase"A"Ifshurud0<18Theny=MsgBox("孔徑="+Str(shurud0)+",太小，沒有合適的結(jié)構(gòu)。最小不能小于"+Str(18),vbCritical,"警告"):ExitSubCase"B"Ifshurud0<35Theny=MsgBox(“孔徑=”+Str(shurud0)+“,太小，沒有合適的結(jié)構(gòu)。最小不能小于"+Str(35),vbCritical,"警告"):ExitSub

Case"C"Ifshurud0<45Theny=MsgBox("孔徑="+Str(shurud0)+"，太小，沒有合適的結(jié)構(gòu)。最小不能小于"+Str(45),vbCritical,"警告"):ExitSubCase"D"Ifshurud0<65Theny=MsgBox("孔徑="+Str(shurud0)+",太小，沒有合適的結(jié)構(gòu)。最小不能小于"+Str(65),vbCritical,"警告"):ExitSubCase"E"Ifshurud0<85Theny=MsgBox("孔徑="+Str(shurud0)+",太小，沒有合適的結(jié)構(gòu)。最小不能小于"+Str(85),vbCritical,"警告"):ExitSubEndSelectEndIfForj=1To40Ifshurudd<=dd(j)ThenExitFor’找到列數(shù)jNextjtxtjiegou.Visible=Trueshuchujiegou=sanweijiegou(x,y,j)Ifshuchujiegou="0"Then ’

沒有結(jié)構(gòu)

’查一下dd在什么范圍內(nèi)才有結(jié)構(gòu)

’先查最小dd值

Forjj1=1To40Ifsanweijiegou(x,y,jj1)<>"0"ThenExitForNextjj1Forjj2=jj1To40Ifsanweijiegou(x,y,jj2)="0"ThenExitForNextjj2jj1=MsgBox("在目前帶型為"+shuruxinghao+",孔徑="+Str(shurud0)+"的情況下,"+"基準(zhǔn)直徑>"+Str(dd(jj1-1))+"～"+Str(dd(jj2-1))+"才有合適的結(jié)構(gòu),"+Chr(13)&Chr(10)+"但目前的基準(zhǔn)直徑="+Str(shurudd),vbCritical,"警告")lbljiegou.Visible=Falsetxtjiegou.Text="沒有適合的結(jié)構(gòu)，請核查!"Else’

有結(jié)構(gòu)

IfLeft(sanweijiegou(x,y,j),2)="fb"OrLeft(sanweijiegou(x,y,j),2)="sk"OrLeft(sanweijiegou(x,y,j),2)="lk"Thentxthoudu.Visible=True’

是輻板輪、四孔板輪、六孔板輪中的任何

’一種，有厚度，有槽數(shù)

lblhoudu.Visible=Truetxthoudu.Text=Mid(sanweijiegou(x,y,j),3,4)txtcaoshu.Visible=Truetxtcaoshu.Text=sanweijiegou(x,y,40)lblcaoshu.Visible=TrueElseIfLeft(sanweijiegou(x,y,j),2)="sx"OrLeft(sanweijiegou(x,y,j),2)="st"OrLeft(sanweijiegou(x,y,j),2)="lt"Thentxtcaoshu.Visible=True’

是實(shí)心輪、四橢圓輻輪、六橢圓輻輪中 ’的任何一種，有槽數(shù)

txtcaoshu.Text=sanweijiegou(x,y,40)lblcaoshu.Visible=TrueEndIflbljiegou.Visible=TrueSelectCaseLeft(sanweijiegou(x,y,j),2)Case"sx"shuchujiegou="實(shí)心輪"Case"fb"shuchujiegou="輻板輪"Case"sk"shuchujiegou="四孔輻板輪"Case"lk" shuchujiegou="六孔輻板輪"Case"st"shuchujiegou="四橢圓輻輪"Case"lt"shuchujiegou="六橢圓輻輪"EndSelecttxtjiegou.Text=shuchujiegouEndIfEndSubPrivateSubForm-Initialize() ’

功能：為對象賦初值

cbocaoxing.Text=cbocaoxing.List(2)txtd0.Text="40"txtdd.Text="300"txtjiegou.Text=""txthoudu.Text=""txtcaoshu.Text=""txtjiegou.Visible=Falsetxthoudu.Visible=Falsetxtcaoshu.Visible=Falselbljiegou.Visible=Falselblcaoshu.Visible=Falselblhoudu.Visible=FalseEndSub2.2函數(shù)表處理2.2.1函數(shù)表的插值法處理

1．規(guī)則函數(shù)表的插值法處理

1）一維規(guī)則函數(shù)表表2-22列出了普通V帶的包角α與包角系數(shù)kα之間19對對應(yīng)數(shù)據(jù)。但是，包角α與包角系數(shù)kα之間存在的客觀關(guān)系是連續(xù)的函數(shù)關(guān)系，只是由于人們無法獲得這個(gè)函數(shù)關(guān)系的確切表達(dá)式，為了便于手工查詢，把一些離散的實(shí)驗(yàn)數(shù)據(jù)列于表中供設(shè)計(jì)時(shí)使用。手工查詢的過程是,根據(jù)已知參數(shù)α，先查到與α相近的兩個(gè)包角值α′和α″及其對應(yīng)的包角系數(shù)值kα′和kα″，然后用插值法求出kα。

例如，已知α=118°，查對應(yīng)的包角系數(shù)。從表中可看出，表中沒有α=118°，但可查到相鄰的兩個(gè)數(shù)據(jù)：α′=115°、α″=120°，其對應(yīng)的包角系數(shù)分別是kα′=0.8和kα″=0.82。下面用直線插值法求α=118°時(shí)的包角系數(shù)kα。借助圖2-23說明這個(gè)過程，該圖中以α為橫坐標(biāo)軸，以kα為縱坐標(biāo)軸，建立一個(gè)直角坐標(biāo)系。由坐標(biāo)點(diǎn)A（115°，0.8）和B（120°，0.82）分別確定兩個(gè)坐標(biāo)點(diǎn)A、B。假設(shè)A、B兩點(diǎn)之間的函數(shù)是線性的，則可過A、B兩點(diǎn)作直線AB，在橫坐標(biāo)軸上找到α=118°的點(diǎn)E，并過此點(diǎn)作α軸的垂線，與AB交于C點(diǎn)，則C點(diǎn)的縱坐標(biāo)值即為對應(yīng)的包角系數(shù)kα。由幾何關(guān)系可以看出表2-22包角系數(shù)kα

圖2-23直線插值法

現(xiàn)在通過程序查詢。程序參數(shù)見表2-23，流程圖見圖2-24，程序執(zhí)行前的窗體見圖2-25，執(zhí)行后的窗體見圖2-26。表2-23查詢包角系數(shù)的程序參數(shù)表圖2-24處理包角系數(shù)kα程序流程圖圖2-25包角系數(shù)查詢前的窗體圖2-26包角系數(shù)查詢后的窗體體frmbj.frm的全部代碼，見代碼2-8。代碼2-8窗體frmbj.frm的全部代碼OptionExplicitOptionBase1PrivateSubCommand1-Click()’

功能：接收輸入、查詢、顯示結(jié)果

DimbaojiaoDimbaojiaoxishuDimshurubaojiaoAsSingleDimshuchubaojiaoxishuAsSingleDimxAsIntegershurubaojiao=Val(txtbaojiao.Text)Ifshurubaojiao<=0ThenMsgBox("包角必須大于零！請重新輸入")ExitSubEndIfbaojiao=Array(90,95,100,105,110,115,120,125,130,135,140,145,150,155,160,-170,175,180)baojiaoxishu=Array(0.69,0.72,0.74,0.76,0.78,0.8,0.82,0.84,0.86,0.88,0.89,0.91,-0.92,0.93,0.95,0.96,0.98,0.99,1)Forx=1ToUBound(baojiao)-1Ifshurubaojiao<=baojiao(x)ThenExitForNextxIfx=1Thenx=x+1shuchubaojiaoxishu=baojiaoxishu(x-1)+(baojiaoxishu(x)-baojiaoxishu(x-1))*(shurubaojiao-baojiao(x-1))/(baojiao(x)-baojiao(x-1))txtbaojiaoxishu.Text=shuchubaojiaoxishuEndSub

PrivateSubForm-Initialize()’

為對象賦初值

txtbaojiao.Text=120txtbaojiaoxishu.Text=""EndSub

注意：

(1）循環(huán)語句的循環(huán)變量上限必須比數(shù)組的下標(biāo)上界小1。如果不