气象用玻璃液体温度表检定规程

JJG207—19921气象用玻璃液体温度表检定规程本规程适用于表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的规定。2温度表应符合GB8747《气象用玻璃液体温度表》的规定,安好无损,不应有影响使用的缺陷。3温度表的感温泡、外套管和毛细管应用无色透明玻璃制造,所用玻璃应符合ZBY269《温度计用玻璃》中360型玻璃的规定。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标尺板的上下端应稳固地固定,当倒转温度表时,标尺板不得出现轴向移动。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水银柱应能比较容易地甩回到环境温度的位置。16.3水平放的示值和竖直放的示值相差应不大于0.1℃。16.4升温时水银柱的跳跃量应不超过0.1℃。16.5毛细管在从0℃到驻留点之间所容纳的水银量,定义为用标尺刻度量度的并用℃表示的水银柱长度N。N的数值应小于90℃。17最低温度表17.1在整个测量范围内应具有良好的指示最低温度的性能。17.2温度表处于任何状态时,游标不应突破液柱的顶端。18曲管地温表在其深度标志以下的外套管内应均匀地填满洁净干燥的隔热材料。二检定条件19标准器检定气象用玻璃液体温度表的标准器为二等标准水银温度表和二等标准汞基合金温度表。也可使用准确度相当或更高的其他标准器。19.1经过检定的二等标准水银温度表和二等标准汞基合金温度表在到达使用地点后应立即进行首次零位测定,以后每半年测定一次零位。零位测定结果应记入专用记录簿中。19.2首次零位测定结果与检定证书的零位相差不超过0.02℃时(即使相差达到0.02℃),仍应采用检定证书的零位值,不需作任何变更。若相差超过0.02℃,则应检查标准温度表毛细管内液柱上部和安全泡,确认其中无汞滴时,再进行一次零位测定,结果相差仍然超过0.02℃时,该标准温度表应停止使用,并提前送检。19.3在大气压力低于900hPa的地区,首次零位测定结果若比检定证书的零位高属不正常,在经过检查和复测后仍然为此结果时,该标准温度表应停止使用并提前送检。首次零位测定的结果应比检定证书零位低,经过检查和复测后仍为此结果时,可以采用此测定结果,并将首次零位测定结果与检定证书零位的差值加到各点修正值上,作JJG207—19924为该标准温度表在当地使用的新修正值。19.4以后每隔半年的零位测定结果,与首次零位测定结果相差超过0.02℃时,标准温度表应停止使用并提前送检。20检定设备20.1示值检定设备20.1.1冰点槽,水三相点瓶。20.1.2液体检定槽,应符合表4的规定。表4适用温度范围℃温场均匀性℃温场稳定性(恒温变幅)℃水平温差最大温差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款)的试验可同时进行。方法如下:加热感温泡使水银柱上升到接近标尺上限处,离开热源,先平放读数,然后竖放读数。最高温度表应能保持其最高性,且其平放与竖放的读数差应符合规定。表5条款检查方法2整体外观目测检视3玻璃外观性状4感温泡形状5外套管内应无水汽凝结在示值检定过程中检查或用红外灯泡照射检查6套帽及其位置目测检视7安全泡必要时用加温法检验8毛细管与标尺板的位置目测检视JJG207—19925表5(续)条款检查方法9标尺板外观目测检视10标尺板的固定翻动温度表同时检视11标尺板上刻度线目测检视12水银或汞基合金的性状目测检视13有机液体的性状14标尺板上的标志目测检视15.115.2喇叭口高度配对要求目测检视。必要时用钢板直尺量度23.2升温跳跃量(16.4款)的试验:竖放温度表,加热其感温泡,使水银柱上升到接近标尺上限处,继续缓慢加温。用放大镜观察。温度升高1℃的水银柱跳跃次数应不少于10次。使用中的最高温度表进行复检时,可以不进行此项试验。23.3水银柱应能比较容易地甩回到环境温度位置(16.2款)的试验,在专用离心机上进行(注)。23.4N值(16.5款)的测定:具体测定方法列于附录6。N值要准确到1℃。新制造的最高温度表应逐支测定其N值,填入检定证书中。使用中的最高温度表复检时,若原检定证书已给出N值,则可沿用此值,无需进行测定;原检定证书未列N值的,应按附录6的方法进行测定。24最低温度表性能的试验方法最低性(17.1款)的检验和游标性能(17.2款)的试验可同时进行,具体方法如下:24.1最低温度表直立或倒立时,游标应能在液柱中游动自如,无阻涩滞留现象,也不突破液柱的弯月面。24.2平放并降低其感温泡的温度,游标应能平稳地随液柱的收缩而移动,不突破液柱的弯月面。24.3平放并升高其感温泡的温度,游标应停留在原处不动。(二)示值检定25外观检查和性能试验不合格的温度表,不进行示值检定。26气象用玻璃液体温度表的示值均应在液槽(包括冰点槽)中进行全浸检定。26.1最高温度表进行示值检定时,应先将其水银柱调整到低于检定点至少2℃的位置,然后插入调整好温度的检定槽中。注:最高表专用离心机已经试制出样机,经实用试验后,初步计算得:最高表感温泡底端受到的离心加速度约为150m·s-2。JJG207—1992626.2充填有机液体的温度表,在整个示值检定过程中,始终要保持直立状态。进行0℃以下各点的示值检定时,必须在与检定点温度相差约10℃的温度环境中直立预冷1小时。27示值检定点及其顺序27.1在温度表标尺范围内的每个整十度点均需作示值检定。27.2检定点的顺序所有温度表均应首先进行0℃点的示值检定。然后依次进行0℃以上或0℃以下各点的示值检定。但是,充填有机液体的温度表在0℃点示值检定之后应先进行0℃以下各点的示值检定。27.3使用中的温度表可根据使用地点的情况酌量减少示值检定点。删减后,示值检定点应当是包括必不可少的0℃点在内且总数不少于6个的连续整十度点。280℃点示值检定28.1温度表0℃点的示值检定,可以在冰点槽中进行,也可以在液体检定槽中进行。28.2用冰点槽进行0℃点示值检定时,所用的冰应为蒸馏水制成的冰,并应刨成冰花,用接近0℃的蒸馏水润湿,使冰点槽具备液固两相平衡的条件。以冰的温度作标准(即0.00℃)。也可以采用天然冰或人造冰制备冰点槽。此时冰点槽的温度应以标准温度表为准。温度表插入冰点槽后的稳定时间应不少于15min。28.3在液体检定槽内进行0℃点示值检定时,必须仔细调控好槽内温度,使之稳定在0.00~+0.10℃的范围内。以标准温度表为准,按其他整十度点示值检定的方法进行。29各整十度点的示值检定29.1稳定时间:从温度表全部插入检定槽后起算,水银温度表的稳定时间应不少于3min;有机液体温度表的稳定时间应不少于7min。稳定时间内,要按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℃间隔分配的适用温度示值区间,并编制成示值———修正值便查表。具体计算程序和编制方法列于附录3、附录4和附录5。31检定质量的检查31.1对检定质量进行考核或对检定结果有疑问时,可进行检定质量的检查。31.2检查的时间与原检定的时间相距不应超过半年。检查的方法按本规程规定进行。31.3检查结果应符合本规程的规定。允许所得修正值与原修正值有差异,但应符合表6的规定。31.4检查结果符合31.3款规定者,原检定证书有效;不符合31.3款规定者,应查清原因后处理。表6序号温度表名称修正值相差允许1干湿球温度表2通风干湿表用温度表≤0.10℃3直管地中温度表4567最高温度表曲管地中温度表地面温度表水银气压表附温表≤0.2℃89最低温度表低温温度表≤0.3℃JJG207—19928四检定结果的处理和检定周期32经检定合格的温度表,发给检定证书。检定证书背面的格式如附录2。33经检定不合格的温度表33.1新制造的,不准出厂。33.2使用中的,发给检定结果通知书。34气象用玻璃液体温度表的检定周期为3年。经过两次复检仍可使用的温度表,其检定周期可延长为5年。JJG207—19929附录1温度表检定记录表表类标准干湿球地面最低计算复核计算复核表号2582495074086017生产厂八玻上医上医检定点-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℃分配的适用示值区间。计算方法如下:修正值适用的示值区间的终点t终等于其中,t终=t1其中,td式中d—示值区间终点修正值(间隔为0.1℃的界限在第二位小数的“5”)与前一检定点修正值之差的绝对值;x1—前一检定点的修正值;x2—后一检定点的修正值;t1—前一检定点;td—与d对应的适用示值区间终点与前一检定点的差。计算应从低温度点开始,向高温度点方向逐点进行。示值和修正值均取一位小数。为便于工作,已编制成“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值为示值区间-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℃.所以,在示值区间-20.7℃~-0.9℃的修正值为-0.1℃。JJG207—199212用同样方法继续查得其余的适用示值区间,最后便得到示值———修正值便查表如下(单位为℃):示值修正值示值修正值由至由至-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续表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