氣象用玻璃液體溫度表檢定規(guī)程

JJG207—19921氣象用玻璃液體溫度表檢定規(guī)程本規(guī)程適用于表1所列各種新制造和使用中的氣象用玻璃液體溫度表(以下簡稱溫度表)的檢定。表1序號名稱感溫液測量范圍(℃)最小分度值(℃)每度間距(mm)1干濕球溫度表汞基合金水銀-55~+30-35~+45-25~+500.2≥3.22通風干濕表用溫度表水銀-35~+40-15~+500.2≥2.03直管地中溫度表水銀-20~+400.2≥3.54最高溫度表水銀-35~+60-15~+800.5≥1.55曲管地中溫度表水銀-20~+600.5≥1.66地面溫度表水銀-35~+800.5≥1.57水銀氣壓表用附溫表水銀-15~+400.5≥1.58最低溫度表有機液體-60~+30-50~+400.5≥1.69低溫溫度表有機液體-60~+300.5≥2.2一技術要求(一)通用要求1溫度表示值修正值的允許值應符合表2的規(guī)定。2溫度表應符合GB8747《氣象用玻璃液體溫度表》的規(guī)定,安好無損,不應有影響使用的缺陷。3溫度表的感溫泡、外套管和毛細管應用無色透明玻璃制造,所用玻璃應符合ZBY269《溫度計用玻璃》中360型玻璃的規(guī)定。4感溫泡應具有正確形狀,外觀光潔勻稱,不得有裂紋。JJG207—19922表2序號溫度表名稱示值范圍(℃)示值誤差不超過相鄰示值誤差新制造的使用中的1干濕球溫度表-35~+50±0.20±0.30≤0.202通風干濕表用溫度表-20~+403直管地中溫度表4最高溫度表-35~+80±0.3±0.4≤0.35曲管地中溫度表-20~+606地面溫度表-35~+80±0.4±0.57水銀氣壓表附溫表-15~+408最低溫度表-60~-40-30~-20-10~+40±1.2±0.8±0.4±1.2±0.8±0.5≤0.7≤0.5≤0.39低溫溫度表5外套管頂端要燒結密封。在溫度表測量范圍的任何溫度下,套管內不得出現影響讀數的水汽凝結。6干濕球溫度表、通風干濕表用溫度表、低溫溫度表的外套管頂應有套帽。套帽應安裝牢固,其下沿不應遮住溫度表的安全泡。7除最高溫度表外,各種溫度表的毛細管頂端應有安全泡。安全泡呈倒梨形,泡內及相連的空間應無液滴。當溫度高于溫度表測量范圍的上限溫度20℃時,安全泡應能保證溫度表不致脹裂。1mm的間隙。毛細管在標尺板上的左右偏移,對曲管地溫表、通風干濕表用溫度表、水銀氣壓表附溫表而言,不能超出1/4。9標尺板應用乳白色玻璃制造。板面平直,厚薄均勻,表面應無明顯的斑點、劃痕及影響讀數的缺陷。在散光情況下,正面不得映現出背面的標記。10標尺板的上下端應穩(wěn)固地固定,當倒轉溫度表時,標尺板不得出現軸向移動。11標尺板上的刻度線應垂直并對稱于標尺板的中心軸線?？潭染€和數字標志應清晰正確,色澤鮮明,著色牢固。12水銀或汞基合金應潔凈、干燥、無氧化、不粘附玻璃;液柱應不中斷、無氣泡,溫度變化時應移動均勻。除最高溫度表外,液柱不應有倒流、跳躍和滯留等現象。13有機液體應潔凈、無色、透明、無雜質和沉淀;液柱應不中斷、無氣泡,溫度變化時應移動均勻,降溫時液柱內不得逸出氣泡和出現混濁現象。14標尺板正面和背面的各種標志應清晰正確、色澤鮮明、著色牢固。(二)補充要求15干濕球溫度表和通風干濕表用溫度表JJG207—1992315.115.2個月。感溫泡與毛細管焊接處的喇叭口高度應不大于2mm。表3要求干濕球溫度表通風干濕球溫度表溫度表總長(包括套帽)相差≤2mm≤1mm感溫泡長度相差 ≤2mm感溫泡直徑相差≤1mm≤0.5mm頂端對齊時0℃刻度線位置相差≤2℃≤1℃頂端對齊時上下限刻度線位置相差≤5℃≤4℃16最高溫度表16.1駐留點應能有效地保持溫度表的最高性。16.2水銀柱應能比較容易地甩回到環(huán)境溫度的位置。16.3水平放的示值和豎直放的示值相差應不大于0.1℃。16.4升溫時水銀柱的跳躍量應不超過0.1℃。16.5毛細管在從0℃到駐留點之間所容納的水銀量,定義為用標尺刻度量度的并用℃表示的水銀柱長度N。N的數值應小于90℃。17最低溫度表17.1在整個測量范圍內應具有良好的指示最低溫度的性能。17.2溫度表處于任何狀態(tài)時,游標不應突破液柱的頂端。18曲管地溫表在其深度標志以下的外套管內應均勻地填滿潔凈干燥的隔熱材料。二檢定條件19標準器檢定氣象用玻璃液體溫度表的標準器為二等標準水銀溫度表和二等標準汞基合金溫度表。也可使用準確度相當或更高的其他標準器。19.1經過檢定的二等標準水銀溫度表和二等標準汞基合金溫度表在到達使用地點后應立即進行首次零位測定,以后每半年測定一次零位。零位測定結果應記入專用記錄簿中。19.2首次零位測定結果與檢定證書的零位相差不超過0.02℃時(即使相差達到0.02℃),仍應采用檢定證書的零位值,不需作任何變更。若相差超過0.02℃,則應檢查標準溫度表毛細管內液柱上部和安全泡,確認其中無汞滴時,再進行一次零位測定,結果相差仍然超過0.02℃時,該標準溫度表應停止使用,并提前送檢。19.3在大氣壓力低于900hPa的地區(qū),首次零位測定結果若比檢定證書的零位高屬不正常,在經過檢查和復測后仍然為此結果時,該標準溫度表應停止使用并提前送檢。首次零位測定的結果應比檢定證書零位低,經過檢查和復測后仍為此結果時,可以采用此測定結果,并將首次零位測定結果與檢定證書零位的差值加到各點修正值上,作JJG207—19924為該標準溫度表在當地使用的新修正值。19.4以后每隔半年的零位測定結果,與首次零位測定結果相差超過0.02℃時,標準溫度表應停止使用并提前送檢。20檢定設備20.1示值檢定設備20.1.1冰點槽,水三相點瓶。20.1.2液體檢定槽,應符合表4的規(guī)定。表4適用溫度范圍℃溫場均勻性℃溫場穩(wěn)定性(恒溫變幅)℃水平溫差最大溫差0~+50≤0.02≤0.02≤0.02+60~+80-20~-10≤0.02≤0.03≤0.03-30以下≤0.02≤0.04≤0.0420.2輔助設備:裝溫度表的柜子、豎放最低溫度表的箱子、預冷用冰柜(可兼制冰用)、刨冰機、秒表、放大鏡、讀數望遠鏡、游標卡尺、鋼板直尺、玻璃偏光應力儀。三檢定項目和檢定方法(一)外觀檢查和性能試驗21外觀檢查和性能試驗按技術要求第2條至第18條的要求逐項進行。22除第16條和第17條外,各條的檢查方法列于表5。23第16條最高溫度表性能的試驗方法。23.1保持最高性(16.1款)和測平放豎放示值差(16.3款)的試驗可同時進行。方法如下:加熱感溫泡使水銀柱上升到接近標尺上限處,離開熱源,先平放讀數,然后豎放讀數。最高溫度表應能保持其最高性,且其平放與豎放的讀數差應符合規(guī)定。表5條款檢查方法2整體外觀目測檢視3玻璃外觀性狀4感溫泡形狀5外套管內應無水汽凝結在示值檢定過程中檢查或用紅外燈泡照射檢查6套帽及其位置目測檢視7安全泡必要時用加溫法檢驗8毛細管與標尺板的位置目測檢視JJG207—19925表5(續(xù))條款檢查方法9標尺板外觀目測檢視10標尺板的固定翻動溫度表同時檢視11標尺板上刻度線目測檢視12水銀或汞基合金的性狀目測檢視13有機液體的性狀14標尺板上的標志目測檢視15.115.2喇叭口高度配對要求目測檢視。必要時用鋼板直尺量度23.2升溫跳躍量(16.4款)的試驗:豎放溫度表,加熱其感溫泡,使水銀柱上升到接近標尺上限處,繼續(xù)緩慢加溫。用放大鏡觀察。溫度升高1℃的水銀柱跳躍次數應不少于10次。使用中的最高溫度表進行復檢時,可以不進行此項試驗。23.3水銀柱應能比較容易地甩回到環(huán)境溫度位置(16.2款)的試驗,在專用離心機上進行(注)。23.4N值(16.5款)的測定:具體測定方法列于附錄6。N值要準確到1℃。新制造的最高溫度表應逐支測定其N值,填入檢定證書中。使用中的最高溫度表復檢時,若原檢定證書已給出N值,則可沿用此值,無需進行測定;原檢定證書未列N值的,應按附錄6的方法進行測定。24最低溫度表性能的試驗方法最低性(17.1款)的檢驗和游標性能(17.2款)的試驗可同時進行,具體方法如下:24.1最低溫度表直立或倒立時,游標應能在液柱中游動自如,無阻澀滯留現象,也不突破液柱的彎月面。24.2平放并降低其感溫泡的溫度,游標應能平穩(wěn)地隨液柱的收縮而移動,不突破液柱的彎月面。24.3平放并升高其感溫泡的溫度,游標應停留在原處不動。(二)示值檢定25外觀檢查和性能試驗不合格的溫度表,不進行示值檢定。26氣象用玻璃液體溫度表的示值均應在液槽(包括冰點槽)中進行全浸檢定。26.1最高溫度表進行示值檢定時,應先將其水銀柱調整到低于檢定點至少2℃的位置,然后插入調整好溫度的檢定槽中。注:最高表專用離心機已經試制出樣機,經實用試驗后,初步計算得:最高表感溫泡底端受到的離心加速度約為150m·s-2。JJG207—1992626.2充填有機液體的溫度表,在整個示值檢定過程中,始終要保持直立狀態(tài)。進行0℃以下各點的示值檢定時,必須在與檢定點溫度相差約10℃的溫度環(huán)境中直立預冷1小時。27示值檢定點及其順序27.1在溫度表標尺范圍內的每個整十度點均需作示值檢定。27.2檢定點的順序所有溫度表均應首先進行0℃點的示值檢定。然后依次進行0℃以上或0℃以下各點的示值檢定。但是,充填有機液體的溫度表在0℃點示值檢定之后應先進行0℃以下各點的示值檢定。27.3使用中的溫度表可根據使用地點的情況酌量減少示值檢定點。刪減后,示值檢定點應當是包括必不可少的0℃點在內且總數不少于6個的連續(xù)整十度點。280℃點示值檢定28.1溫度表0℃點的示值檢定,可以在冰點槽中進行,也可以在液體檢定槽中進行。28.2用冰點槽進行0℃點示值檢定時,所用的冰應為蒸餾水制成的冰,并應刨成冰花,用接近0℃的蒸餾水潤濕,使冰點槽具備液固兩相平衡的條件。以冰的溫度作標準(即0.00℃)。也可以采用天然冰或人造冰制備冰點槽。此時冰點槽的溫度應以標準溫度表為準。溫度表插入冰點槽后的穩(wěn)定時間應不少于15min。28.3在液體檢定槽內進行0℃點示值檢定時,必須仔細調控好槽內溫度,使之穩(wěn)定在0.00~+0.10℃的范圍內。以標準溫度表為準,按其他整十度點示值檢定的方法進行。29各整十度點的示值檢定29.1穩(wěn)定時間:從溫度表全部插入檢定槽后起算,水銀溫度表的穩(wěn)定時間應不少于3min;有機液體溫度表的穩(wěn)定時間應不少于7min。穩(wěn)定時間內,要按5、7、12、13各條的要求,檢查毛細管內液柱上方和安全泡內是否有液滴、液柱內是否有氣泡、有機液體是否混濁、是否有氣體逸出,檢查套管內是否有水汽凝結等。29.2讀數:應由二人擔任,用放大鏡或讀數望遠鏡進行。用放大鏡讀數時,視線應通過放大鏡中央與液柱的最高點(對水銀溫度表)或最低點(對有機液體溫度表)相切。用讀數望遠鏡時應先調好水平。讀數至少應估讀到最小分度值的1/10。讀數只讀偏差值。液柱頂高于檢定點標線讀“正”,記“+”號;液柱頂低于檢定點標線讀“負”,記“-”號。例如,(1)在進行-20℃點示值檢定時,兩支溫度表的示值分別為-19.70℃和-20.18℃,檢定讀數應分別讀記為“+30”和“-18”;(2)在進行+10℃點示值檢定時,兩支溫度表的示值分別為+10.25℃和+9.40℃,檢定讀數應分別讀記為“+25”和“-60”。讀數從標準溫度表開始,依次讀至最后一支溫度表,再由另一人立即按相反順序從JJG207—19927最后一支溫度表開始讀至標準溫度表為止,構成一對讀數。讀數要迅速、準確、間隔均勻,兩人的讀數速度要一致。每個檢定點的讀數,有機液體溫度表應不少于一對,其他溫度表應不少于兩對。讀數完畢,立即計算標準溫度表的讀數平均值并加上其修正值,所得結果偏離檢定點不應超過0.1℃,否則,該點示值檢定應重新進行。示值檢定記錄表的格式如附錄1。30記錄整理溫度表示值修正值的計算按下式進行:式中Δ溫度表的示值修正值;Δ=tb+Δb-tj tb—標準溫度表的偏差讀數平均值;Δb—標準溫度表的示值修正值; tj—溫度表的偏差讀數平均值。計算時,tb和tj均應修約到兩位小數,然后按上式計算Δ值。所得結果,對于最小分度值為0.2℃的溫度表,即為最終結果;對于最小分度值為0.5℃的溫度表,應修約到一位小數。為便于使用修正值,可用比例內插法求出修正值按0.1℃間隔分配的適用溫度示值區(qū)間,并編制成示值———修正值便查表。具體計算程序和編制方法列于附錄3、附錄4和附錄5。31檢定質量的檢查31.1對檢定質量進行考核或對檢定結果有疑問時,可進行檢定質量的檢查。31.2檢查的時間與原檢定的時間相距不應超過半年。檢查的方法按本規(guī)程規(guī)定進行。31.3檢查結果應符合本規(guī)程的規(guī)定。允許所得修正值與原修正值有差異,但應符合表6的規(guī)定。31.4檢查結果符合31.3款規(guī)定者,原檢定證書有效;不符合31.3款規(guī)定者,應查清原因后處理。表6序號溫度表名稱修正值相差允許1干濕球溫度表2通風干濕表用溫度表≤0.10℃3直管地中溫度表4567最高溫度表曲管地中溫度表地面溫度表水銀氣壓表附溫表≤0.2℃89最低溫度表低溫溫度表≤0.3℃JJG207—19928四檢定結果的處理和檢定周期32經檢定合格的溫度表,發(fā)給檢定證書。檢定證書背面的格式如附錄2。33經檢定不合格的溫度表33.1新制造的,不準出廠。33.2使用中的,發(fā)給檢定結果通知書。34氣象用玻璃液體溫度表的檢定周期為3年。經過兩次復檢仍可使用的溫度表,其檢定周期可延長為5年。JJG207—19929附錄1溫度表檢定記錄表表類標準干濕球地面最低計算復核計算復核表號2582495074086017生產廠八玻上醫(yī)上醫(yī)檢定點-30℃Δb-8.82偏差讀數+01+01+02+02+04+04+08+08-25-20-20-25+10+10平均+02+06-22+10修正值Δ tb+Δb0.00-06+22-10修約后+0.2-0.1檢定點-20℃Δb+8.81偏差讀數-02-02-01-01-08-08-10-10-20-15-15-15-20-20平均+02-09-16-20修正值Δ tb+Δb-0.01+08+15+19修約后+0.2+0.2JJG207—199210附錄2檢定證書背面格式檢定結果(單位℃)示值-60-50-40-30-20-10010修正值示值20304050607080修正值為便于使用修正值,用比例內插法編成下表:示值修正值示值修正值由至由至最高溫度表N值:℃。JJG207—199211附錄3示值—修正值便查表的編制為便于用戶使用溫度表的修正值,可用比例內插法將各整十度點的修正值計算為修正值按0.1℃分配的適用示值區(qū)間。計算方法如下:修正值適用的示值區(qū)間的終點t終等于其中,t終=t1其中,td式中d—示值區(qū)間終點修正值(間隔為0.1℃的界限在第二位小數的“5”)與前一檢定點修正值之差的絕對值;x1—前一檢定點的修正值;x2—后一檢定點的修正值;t1—前一檢定點;td—與d對應的適用示值區(qū)間終點與前一檢定點的差。計算應從低溫度點開始,向高溫度點方向逐點進行。示值和修正值均取一位小數。為便于工作,已編制成“d—td”查算表,列于附錄4。查算表的使用方法舉例如下:某干濕球溫度表的示值檢定結果:示值(℃)-30-20-100修正值(℃)+0.06-0.06-0.05-0.16示值(℃)10203040修正值(℃)-0.22-0.14-0.14+0.06在-30℃與-20℃兩點間,修正值的變量為0.12,其間的d值有兩個:0.01(即+0.05與前一點修正值+0.06之差)和0.11(即-0.05與前一點修正值+0.06之差)。查“d-td查算表”中|x1-x2|=0.12一欄,查得d=0.01時的相應td值為示值區(qū)間-29.1℃~-20.8℃的修正值為0.0℃。遇到整十度點的修正值第二位小數恰好為“5”時,該點的修正值應向低點的修正值方向舍或入。如果該點已是最低的示值檢定點,則可向相鄰高點的修正值方向舍或入。在本例中,-10℃點的修正值為-0.05,故應向-20℃點的修正值方向入而成為-0.1℃。在-10℃與0℃兩點間,用表中|x1-x2|=0.11欄,查得d=0.10時的相應td值為9.1,加在-10.0℃上得-0.9℃.所以,在示值區(qū)間-20.7℃~-0.9℃的修正值為-0.1℃。JJG207—199212用同樣方法繼續(xù)查得其余的適用示值區(qū)間,最后便得到示值———修正值便查表如下(單位為℃):示值修正值示值修正值由至由至-30.0-29.2+0.1+34.6+39.50.0-29.1-20.80.0+39.8+40.00.1-20.7-0.9-0.1-0.8+18.8-0.2+18.9+34.5-0.1JJG207—1992JJG207—1992附錄4dtd查算表12|0.020.030.040.050.060.070.08dtd0.015.00.010.023.36.70.010.020.032.55.07.50.010.020.030.042.04.06.08.00.010.020.030.040.051.73.35.06.78.30.010.020.030.040.050.061.42.94.35.77.18.60.010.020.030.040.050.060.071.22.53.85.06.27.58.80.090.100.110.120.130.140.150.160.010.011.00.010.90.010.80.010.80.010.70.010.70.010.60.022.20.022.00.021.80.021.70.021.50.021.40.021.30.021.20.033.30.033.00.032.70.032.50.032.30.032.10.032.00.030.044.40.044.00.043.60.043.30.043.10.042.90.042.70.042.50.055.60.055.00.054.50.054.20.053.80.053.60.053.30.053.10.066.70.066.00.065.50.065.00.064.60.064.30.064.00.063.80.077.80.077.00.076.40.075.80.075.40.075.00.074.70.074.40.088.90.088.00.087.30.086.70.086.20.085.70.085.30.085.00.099.00.090.108.20.090.100.117.58.39.20.090.100.110.126.97.78.59.20.090.100.110.120.136.47.17.98.89.30.090.100.110.120.130.146.06.77.38.08.79.30.090.100.110.120.130.145.66.26.97.58.18.80.159.413JJG207—199214JJG207—199214續(xù)表0.170.180.190.200.210.220.230.240.010.60.010.60.010.50.010.50.010.50.010.50.010.40.010.40.021.20.020.020.021.00.021.00.020.90.020.90.020.80.031.80.031.70.031.80.031.50.031.40.031.40.031.30.031.20.042.40.042.20.042.10.042.00.040.041.80.041.70.041.70.052.90.052.80.052.60.052.50.052.40.052.30.052.20.052.10.063.50.063.30.063.20.063.00.062.90.062.70.062.60.062.50.074.10.073.90.073.70.073.50.073.30.073.20.073.00.072.90.084.70.084.40.084.20.084.00.083.80.083.60.083.50.083.30.095.30.095.00.094.70.094.50.094.30.094.10.093.90.093.80.105.90.105.60.105.30.105.00.104.80.104.50.104.30.104.20.116.50.110.115.80.115.50.115.20.115.00.114.80.114.60.127.10.126.70.126.30.126.00.125.70.125.50.125.20.125.00.137.60.137.20.136.80.136.50.136.20.135.90.135.70.135.40.148.20.147.80.147.40.147.00.146.70.146.40.140.145.80.158.80.158.30.157.90.157.50.157.10.156.80.156.50.156.20.169.40.168.90.168.40.168.00.167.60.167.30.167.00.166.70.179.40.170.188.99.50.170.180.198.59.09.50.170.180.190.208.18.69.09.50.170.180.190.200.217.78.28.69.50.170.180.190.200.210.227.47.88.38.79.60.170.180.190.200.210.220.237.57.98.38.89.29.60.10.20.30.40.50.60.70.055.00.050.152.57.50.050.150.255.08.30.050.150.250.351.23.86.28.80.050.150.250.350.451.03.05.07.09.00.050.150.250.350.450.550.82.54.25.87.59.20.050.150.250.350.450.550.650.72.13.65.06.47.99.3JJG207—199215附錄5編寫檢定證書參考程序10REM“AY”……表號;X……檢定點數;D……最低溫度,K……最小分度;Z……表數”20REM“E(I)……各整10度點修正值;R……為E(Q)百分位為5時靠近相臨點的值”30REM“此程序最后更新日期:1991.12.12”40READX,D,K,Z50FORJ=1TOZ60READA$70FORI=0TOX-180READE(I)90NEXTI100LPRINT“表號”;SPC(5)A$110LPRINTTAB(30)“示值”;SPC(26)“修正值”120LPRINTSPC(19):LPRINTUSING“+##.#”;D;130LPRINTSPC(2)“ ”SPC(2);140Q=-1150Q=Q+1160IFQ=X-1THEN1160170IFK=.5THEN180175IFE(Q)=INT(E(Q)*10+.5)/10-.05ORE(Q+1)=INT(E(Q+1)*10+.5)/10-.05THEN250177G=ABS(SGN(E(Q+1))*INT(ABS(E(Q+1))*10+.5)/10-SGN(E(Q))*INT(ABS(E(Q))*10+.5)/10):N=0:GOTO190180G=ABS(E(Q+1)-E(Q)):N=0190IFG=0THEN1150200IFK=.2THEN250210FORL=1TOG*20STEP2:N=N+1220W(N)=D+Q*10+INT((.5*L)/G*10+.5)/10230NEXTL:N=0240IFK=.5THEN850250M1=D+Q*10+ABS(.05-E(Q))/ABS(E(Q+1)-E(Q)*10260M2=D+Q*10+ABS(-.05-E(Q))/ABS(E(Q+1)-E(Q))*10270M3=D+Q*10+ABS(.15-E(Q))/ABS(E(Q+1)-E(Q))*10280M4=D+Q*10+ABS(-.15-E(Q))/ABS(E(Q+1)-E(Q))*10JJG207—199216E(Q)=.2:GOTO1150340IFE(Q)=-.25ANDE(Q+1)>-.15ANDE(Q+1)<=-.05THENE(Q)E(Q)=.2:GOTO1150340IFE(Q)=-.25ANDE(Q+1)>-.15ANDE(Q+1)<=-.05THENE(Q)=.1:GOTO1150M1:G=.1:R=0:E(Q)=.1:GOTO850G.1:R=.2:E(Q)=.1:GOTO850E(Q)=.1:GOTO1150390IFE(Q)=.15ANDE(Q+1)>=-.05ANDE(Q+1)<.05THENW(1)=330IFE(Q)=.25ANDE(Q+1)>=.25THENR=.2:E(Q)=.3:GOTO1150320IFE(Q)=.25ANDE(Q+1)>=.15ANDE(Q+1)<.25THENR=.2:W(1)=M4:G=.1:R=-.1:E(Q)-.2:GOTO850385IFE(Q)=.15ANDE(Q+1)>=.05ANDE(Q+1)<.15THENR=.1:400IFE(Q)=-.15ANDE(Q+1)<=-.25THENW(1)=M6:G=.1:R=.2:440IFE(Q)=.05ANDE(Q+1)<.25ANDE(Q+1)>.15THENW(1)=M3:450IFE(Q)=.05ANDE(Q+1)>.05ANDE(Q+1)<=.15THENR=.1:460IFE(Q)=.05ANDE(Q+1)>=-.05ANDE(Q+1)<.05THENR=0:300M6=D+Q*10+ABS(-.25-E(Q))/ABS(E(Q+1)-E(Q))*10305IFQ>0THEN504G=.1:R=.1:E(Q)=.2:GOTO850310IFE(Q)=.25ANDE(Q+1)>=.05ANDG=.1:R=.1:E(Q)=.2:GOTO850-.2:E(Q)=-.2:GOTO1150350IFE(Q)=-.25AND-.2:E(Q)=-.2:GOTO1150370IFE(Q)=.15ANDE(Q+1)>=.25THENW(1)=M5;R=.3370IFE(Q)=.15ANDE(Q+1)>=.25THENW(1)=M5;R=.3:E(Q)=.2:GO-TO1150E(Q)=.2:GOTO1150380IFE(Q)=.15ANDE(Q+1)>TO1150E(Q)=.2:GOTO1150E(Q)=-.2:GOTO850-.1:E(Q)=-.2E(Q)=-.2:GOTO850-.1:E(Q)=-.2:GOTO1150-.1:E(Q)=-.1:GOTO1150G=.1:R=0:E(Q)=-.1:GOTO850415IFE(Q)=-.15ANDE(Q+1)>-.15ANDE(Q+1)<=-.05THENR=42IFE(Q)=-.15ANDE(Q+1)>.05ANDE(Q+1)<=.05THENW(1)=M2:E(Q)=0:GOTO1150M2:G=.1:R=-.1:E(Q)=0E(Q)=0:GOTO1150M2:G=.1:R=-.1:E(Q)=0:GOTO850480IFE(Q)=-.05ANDE(Q+1)<=.15ANDE(Q+1)>=.05THENW(1)=JJG207—199217W(1)=M4:G=.1:R=-.2:GOTO850R=.2:GOTO850610IFE(Q)>-.05ANDE(Q)W(1)=M4:G=.1:R=-.2:GOTO850R=.2:GOTO850610IFE(Q)>-.05ANDE(Q)<.05ANDE(Q+1)=.15THENW(1)=M1:503IFE(Q)=-.05ANDE(Q+1)>=-.25ANDE(Q+1)<-.15THEN530IFE(O)>.05ANDE(Q)<.15ANDE(Q+1)=.25THENW(1)=M3:G=.1:600IFE(Q)>.05ANDE(Q)<.15ANDE(Q+1)=.15THENR=.1:GOTO1150E(Q)=0:GOTO1150R=-.1:E(Q)=-.1E(Q)=0:GOTO1150R=-.1:E(Q)=-.1:GOTO1150500IFE(Q)=-.05ANDE(Q+1)>=-.15ANDE(Q+1)<-.05THEN504IFE(Q)=INT(E(Q)*10+.5)/10-.05THENG=ABS(SGN(E(Q+1))*INT(ABS(E(Q+1))*10+.5)/10-SGN(E(Q))*INT(ABS(E(Q))*10+.5)/10):N=0505IFG=0THEN1150507IFE(Q)=INT(E(Q)*10+.5)/10-.05THENE(Q)=R520IFE(Q)>.15ANDE(Q+1)=.25THENR=.2:GOTO1150510IF520IFE(Q)>.15ANDE(Q+1)=.25THENR=.2:GOTO1150TO1150540IFE(Q)>-.15ANDE(Q)<-.05ANDE(Q+1)=-.05THENR=-1:TO1150560IFE(Q)<-.15ANDE(Q+1)=-.25THENR=-.2:GOTO1150550IF560IFE(Q)<-.15ANDE(Q+1)=-.25THENR=-.2:GOTO1150G=.1:R=-.2:GOTO850570IFE(Q)>-.15ANDE(Q)<-.05ANDE(Q+1)=-.25G=.1:R=-.2:GOTO850590IFE(Q)>.15ANDE(Q)<.25ANDE(Q+1)=.15THENR=.2:GOTO1150580590IFE(Q)>.15ANDE(Q)<.25ANDE(Q+1)=.15THENR=.2:GOTO1150G=.1:R=.1:GOTO850GOTO1150630IFE(Q)>-.25ANDE(Q)<-.15ANDE(Q+1)=-.15THENR=-.2:GOTO1150G=.1:R=-.1:GOTO850640IFE(Q)>-.25ANDE(Q)<-.15ANDE(Q+1)=-.0G=.1:R=-.1:GOTO850GOTO1150650IFE(Q)>-.15ANDE(Q)<-.05ANDE(Q+1)=-.15THENR=-.1:GOTO1150G=.1:R=-.1:GOTO850660IFE(Q)>-.05ANDE(Q)<.05ANDE(Q+1)G=.1:R=-.1:GOTO850R=.1:GOTO850670IFE(Q)>.15ANDE(Q)<.25ANDE(Q+1)=.05THENW(1)=M3:G=.R=.1:GOTO850680IFE(Q)>.05ANDE(Q)<.15ANDE(Q+1)=.05THENR=.1:GOTO1150JJG207—199218GOTO1150690IFE(Q)>-.05ANDE(Q)<.05ANDE(Q+1)=.05THENR=0:GOTO1150G=.1:R=0:GOTO850700IFE(Q)>-.15ANDE(Q)<-.05ANDE(Q+1)G=.1:R=0:GOTO850G=.1:R=0:GOTO850710IFE(Q)>.05ANDE(Q)<.G=.1:R=0:GOTO850GOTO1150720IFE(Q)>-.05ANDE(Q)<.05ANDE(Q+1)=-.05THENR=0:GOTO1150725IFE(Q)>.25ANDE(Q+1)>.05ANDE(Q+1)<.25THEN840730IFE(Q)>-.25ANDE(Q)<-.15ANDE(Q+1)<-.25THENW(1)=M6:GOTO850M4:W(2)=M6:GOTO850740IFE(Q)>-.15ANDM4:W(2)=M6:GOTO850750IFE(Q)>-.05ANDE(Q)<.05ANDE(Q+1)>-.25ANDE(Q+1)<-.05THENW(1)=M2:W(2)=M4:760IFE(Q)>.05ANDE(Q)<.15ANDE(Q+1)>-.15AND