k型热点偶温度电压曲线参数表.txt

c51源程序总结

05/SCAL,45043/SCAL,45081/SCAL
};


三月十二号我上载过一个6种热电偶的特征多项式描述的PDF文件，到上载区找找。 [刀客] [3次] 01-9-17 下午 09:01:48 

谢谢！！！再请教：这是一张电压表，如何用于ad转换后的温度显示？我的ad值是0-511（9位）我现在参照ad596（？）中的参数反算了一个对照表，请帮我看看能用吗？ [晓奇.] [16次] 01-9-17 下午 09:33:35 
 0x0,   
 0x1,   0x2,   0x2,   0x3,   0x4,   0x5,   0x6,   0x6,   0x7,   0x8,   
 0x9,   0xA,   0xA,   0xB,   0xC,   0xD,   0xE,   0xE,   0xF,  0x10,  
0x11,  0x12,  0x12,  0x13,  0x14,  0x15,  0x16,  0x16,  0x17,  0x18,  
0x19,  0x1A,  0x1A,  0x1B,  0x1C,  0x1D,  0x1D,  0x1E,  0x1F,  0x20,  
0x21,  0x21,  0x22,  0x23,  0x24,  0x25,  0x25,  0x26,  0x27,  0x28,  
0x28,  0x29,  0x2A,  0x2B,  0x2C,  0x2C,  0x2D,  0x2E,  0x2F,  0x2F,  
0x30,  0x31,  0x32,  0x33,  0x33,  0x34,  0x35,  0x36,  0x36,  0x37,  
0x38,  0x39,  0x3A,  0x3A,  0x3B,  0x3C,  0x3D,  0x3D,  0x3E,  0x3F,  
0x40,  0x41,  0x41,  0x42,  0x43,  0x44,  0x44,  0x45,  0x46,  0x47,  
0x47,  0x48,  0x49,  0x4A,  0x4B,  0x4B,  0x4C,  0x4D,  0x4E,  0x4E,  
0x4F,  0x50,  0x51,  0x52,  0x52,  0x53,  0x54,  0x55,  0x55,  0x56,  
0x57,  0x58,  0x58,  0x59,  0x5A,  0x5B,  0x5C,  0x5C,  0x5D,  0x5E,  
0x5F,  0x5F,  0x60,  0x61,  0x62,  0x63,  0x63,  0x64,  0x65,  0x66,  
0x66,  0x67,  0x68,  0x69,  0x6A,  0x6A,  0x6B,  0x6C,  0x6D,  0x6D,  
0x6E,  0x6F,  0x70,  0x71,  0x71,  0x72,  0x73,  0x74,  0x74,  0x75,  
0x76,  0x77,  0x78,  0x78,  0x79,  0x7A,  0x7B,  0x7B,  0x7C,  0x7D,  
0x7E,  0x7F,  0x7F,  0x80,  0x81,  0x82,  0x83,  0x83,  0x84,  0x85,  
0x86,  0x86,  0x87,  0x88,  0x89,  0x8A,  0x8A,  0x8B,  0x8C,  0x8D,  
0x8E,  0x8E,  0x8F,  0x90,  0x91,  0x92,  0x92,  0x93,  0x94,  0x95,  
0x96,  0x96,  0x97,  0x98,  0x99,  0x9A,  0x9A,  0x9B,  0x9C,  0x9D,  
0x9D,  0x9E,  0x9F,  0xA0,  0xA1,  0xA1,  0xA2,  0xA3,  0xA4,  0xA5,  
0xA6,  0xA6,  0xA7,  0xA8,  0xA9,  0xAA,  0xAA,  0xAB,  0xAC,  0xAD,  
0xAE,  0xAE,  0xAF,  0xB0,  0xB1,  0xB2,  0xB2,  0xB3,  0xB4,  0xB5,  
0xB6,  0xB6,  0xB7,  0xB8,  0xB9,  0xBA,  0xBA,  0xBB,  0xBC,  0xBD,  
0xBE,  0xBE,  0xBF,  0xC0,  0xC1,  0xC2,  0xC2,  0xC3,  0xC4,  0xC5,  
0xC6,  0xC6,  0xC7,  0xC8,  0xC9,  0xCA,  0xCA,  0xCB,  0xCC,  0xCD,  
0xCE,  0xCE,  0xCF,  0xD0,  0xD1,  0xD2,  0xD2,  0xD3,  0xD4,  0xD5,  
0xD6,  0xD6,  0xD7,  0xD8,  0xD9,  0xDA,  0xDA,  0xDB,  0xDC,  0xDD,  
0xDE,  0xDE,  0xDF,  0xE0,  0xE1,  0xE2,  0xE2,  0xE3,  0xE4,  0xE5,  
0xE6,  0xE6,  0xE7,  0xE8,  0xE9,  0xEA,  0xEA,  0xEB,  0xEC,  0xED,  
0xED,  0xEE,  0xEF,  0xF0,  0xF1,  0xF1,  0xF2,  0xF3,  0xF4,  0xF5,  
0xF5,  0xF6,  0xF7,  0xF8,  0xF9,  0xF9,  0xFA,  0xFB,  0xFC,  0xFC,  
0xFD,  0xFE,  0xFF,  0x100, 0x100, 0x101, 0x102, 0x103, 0x104, 0x104, 
0x105, 0x106, 0x107, 0x107, 0x108, 0x109, 0x10A, 0x10B, 0x10B, 0x10C, 
0x10D, 0x10E, 0x10E, 0x10F, 0x110, 0x111, 0x112, 0x112, 0x113, 0x114, 
0x115, 0x115, 0x116, 0x117, 0x118, 0x119, 0x119, 0x11A, 0x11B, 0x11C, 
0x11C, 0x11D, 0x11E, 0x11F, 0x120, 0x120, 0x121, 0x122, 0x123, 0x123, 
0x124, 0x125, 0x126, 0x127, 0x127, 0x128, 0x129, 0x12A, 0x12A, 0x12B, 
0x12C, 0x12D, 0x12E, 0x12E, 0x12F, 0x130, 0x131, 0x131, 0x132, 0x133, 
0x134, 0x134, 0x135, 0x136, 0x137, 0x138, 0x138, 0x139, 0x13A, 0x13B, 
0x13B, 0x13C, 0x13D, 0x13E, 0x13E, 0x13F, 0x140, 0x141, 0x142, 0x142, 
0x143, 0x144, 0x145, 0x145, 0x146, 0x147, 0x148, 0x148, 0x149, 0x14A, 
0x14B, 0x14C, 0x14C, 0x14D, 0x14E, 0x14F, 0x14F, 0x150, 0x151, 0x152, 
0x152, 0x153, 0x154, 0x155, 0x156, 0x156, 0x157, 0x158, 0x159, 0x159, 
0x15A, 0x15B, 0x15C, 0x15C, 0x15D, 0x15E, 0x15F, 0x15F, 0x160, 0x161, 
0x162, 0x163, 0x163, 0x164, 0x165, 0x166, 0x166, 0x167, 0x168, 0x169, 
0x169, 0x16A, 0x16B, 0x16C, 0x16C, 0x16D, 0x16E, 0x16F, 0x170, 0x170, 
0x171, 0x172, 0x173, 0x173, 0x174, 0x175, 0x176, 0x176, 0x177, 0x178, 
0x179, 0x179, 0x17A, 0x17B, 0x17C, 0x17C, 0x17D, 0x17E, 0x17F, 0x180, 
0x180, 0x181, 0x182, 0x183, 0x183, 0x184, 0x185, 0x186, 0x186, 0x187, 
0x188, 0x189, 0x189, 0x18A, 0x18B, 0x18C, 0x18C, 0x18D, 0x18E, 0x18F, 
0x18F, 0x190, 
从ad值0-512所对应的温度值0-400摄氏度。
我刚才屏幕上画了一条曲线看看，和直线非常接近，只是在200-400这一段离开了大约
3-4度
不知是否对头？请指教。 

谢谢！我已经艘过了，刚好这一段时间的东西被他们清掉了 [晓奇.] [0次] 01-9-17 下午 09:37:44 

找到了： [晓奇.] [22次] 01-9-17 下午 10:00:37 
<a href=http://www.21icsearch.com/buzi/upload/img/830.pdf target=_blank>http://www.21icsearch.com/buzi/upload/img/830.pdf</a>
2001-3-14 9:31:12  sxlj   

我没用到a/d ,我用v/f转换,我的精度在0.5度 [haotz] [6次] 01-9-17 下午 10:35:07 
8位a/d 精度不够,可能会有漂移,精度可能在1~2度. 

有用抛物线插值算法和表格做的库文件，需要的话发到上载区。 [zwl] [5次] 01-9-17 下午 11:08:22 

发了 [zwl] [1次] 01-9-17 下午 11:14:42 

已下载。谢谢大虾慷慨支持。 [xiaoqi] [0次] 01-9-17 下午 11:46:57 

查表程序完成，非常好。谢谢！请看： [晓奇] [27次] 01-9-18 上午 11:18:54 
#include <iom103.h>             // ATmega103
#include <macros.h>             // 几个汇编指令宏定义

#define Uint unsigned int 
#define Uchar unsigned char 
#define scal 2                  // 为与电路实际放大倍数匹配

flash Uint tempTab[];
Uint turn_temp(Uint Vt);

void main( void )
{
        Uint ad_data,temp;
        for (ad_data=0;ad_data<512;ad_data++)
                temp = turn_temp(ad_data);
        while(1);
}

/****************************************************************/
/* 根据实测温度ad值，采用对分搜索法查出对应的温度值             */
/* 带入参数：ad测量值；返回温度值。全部都采用无符号整型数       */
/* 测温范围：0-450摄氏度                                        */
/****************************************************************/
Uint turn_temp(Uint Vt)
{
        Uint i,j,k;
// 换算部分计算热端电势：(ADValue / 满程) * Vref。注意A/D参考电压Vref单位是
0.1mV。
        Vt = (long int)Vt*33000/511 + 798*scal; // 热端电势 + 冷端电势(20
度)
        k = 220;
        if (Vt>tempTab[k])              // 先预分一次
                {
                i=k;j=450;
                }
        else
                {
                j=k;
                if (Vt==tempTab[k]){goto oks;};
                i=0;
                };
        WDR();
        while(1)
                {
                k = (i+j)/2;
                if (Vt>tempTab[k])i=k;else j=k;
                if (j-i<2) goto oks;            // 出口条件
                };
oks:    return(j);                              // 返回查询结果
}
                        
flash Uint tempTab[]=
{
/* 0 */
    0*scal,   39*scal,   79*scal,  119*scal,  158*scal,  198*scal,
  238*scal,  277*scal,  317*scal,  357*scal,  397*scal,  437*scal,
  477*scal,  517*scal,  557*scal,  597*scal,  637*scal,  677*scal,
  718*scal,  758*scal,  798*scal,  838*scal,  897*scal,  919*scal,
  960*scal, 1000*scal, 1041*scal, 1081*scal, 1122*scal, 1163*scal,
 1203*scal, 1244*scal, 1258*scal, 1326*scal, 1366*scal, 1407*scal,
 1448*scal, 1489*scal, 1530*scal, 1571*scal, 1612*scal, 1653*scal,
 1694*scal, 1735*scal, 1776*scal, 1817*scal, 1858*scal, 1899*scal,
 1941*scal, 1982*scal,
/* 50 */
 2023*scal, 2064*scal, 2106*scal, 2147*scal, 2188*scal, 2230*scal,
 2271*scal, 2312*scal, 2354*scal, 2395*scal, 2436*scal, 2478*scal,
 2519*scal, 2561*scal, 2602*scal, 2644*scal, 2685*scal, 2727*scal,
 2768*scal, 2810*scal, 2851*scal, 2893*scal, 2934*scal, 2976*scal,
 3017*scal, 3059*scal, 3100*scal, 3142*scal, 3184*scal, 3225*scal,
 3267*scal, 3308*scal, 3350*scal, 3391*scal, 3433*scal, 3474*scal,
 3516*scal, 3557*scal, 3599*scal, 3640*scal, 3682*scal, 3723*scal,
 3765*scal, 3806*scal, 3848*scal, 3889*scal, 3931*scal, 3972*scal,
 4013*scal, 4055*scal,
 /* 100 */
 4096*scal, 4138*scal, 4179*scal, 4220*scal, 4262*scal, 4303*scal,
 4344*scal, 4385*scal, 4427*scal, 4468*scal, 4509*scal, 4550*scal,
 4591*scal, 4633*scal, 4674*scal, 4715*scal, 4756*scal, 4797*scal,
 4838*scal, 4879*scal, 4920*scal, 4961*scal, 5002*scal, 5043*scal,
 5084*scal, 5124*scal, 5165*scal, 5206*scal, 5247*scal, 5288*scal,
 5328*scal, 5369*scal, 5410*scal, 5450*scal, 5491*scal, 5532*scal,
 5572*scal, 5613*scal, 5653*scal, 5694*scal, 5735*scal, 5775*scal,
 5815*scal, 5856*scal, 5896*scal, 5937*scal, 5977*scal, 6017*scal,
 6058*scal, 6098*scal,
 /* 150 */
 6138*scal, 6179*scal, 6219*scal, 6259*scal, 6299*scal, 6339*scal,
 6380*scal, 6420*scal, 6460*scal, 6500*scal, 6540*scal, 6580*scal,
 6620*scal, 6660*scal, 6701*scal, 6741*scal, 6781*scal, 6821*scal,
 6861*scal, 6901*scal, 6941*scal, 6981*scal, 7021*scal, 7060*scal,
 7100*scal, 7140*scal, 7180*scal, 7220*scal, 7260*scal, 7300*scal,
 7340*scal, 7380*scal, 7420*scal, 7460*scal, 7500*scal, 7540*scal,
 7579*scal, 7619*scal, 7659*scal, 7699*scal, 7739*scal, 7779*scal,
 7819*scal, 7859*scal, 7899*scal, 7939*scal, 7979*scal, 8019*scal,
 8059*scal, 8099*scal,
 /* 200 */
 8138*scal, 8178*scal, 8218*scal, 8258*scal, 8298*scal, 8338*scal,
 8378*scal, 8418*scal, 8458*scal, 8499*scal, 8539*scal, 8579*scal,
 8619*scal, 8659*scal, 8699*scal, 8739*scal, 8779*scal, 8819*scal,
 8860*scal, 8900*scal, 8940*scal, 8980*scal, 9020*scal, 9061*scal,
 9101*scal, 9141*scal, 9181*scal, 9222*scal, 9262*scal, 9302*scal,
 9343*scal, 9383*scal, 9423*scal, 9464*scal, 9504*scal, 9545*scal,
 9585*scal, 9626*scal, 9666*scal, 9707*scal, 9747*scal, 9788*scal,
 9828*scal, 9869*scal, 9909*scal, 9950*scal, 9991*scal,10031*scal,
10072*scal,10113*scal,
/* 250 */
10153*scal,10194*scal,10235*scal,10276*scal,10316*scal,10357*scal,
10398*scal,10439*scal,10480*scal,10520*scal,10561*scal,10602*scal,
10643*scal,10684*scal,10725*scal,10766*scal,10807*scal,10848*scal,
10889*scal,10930*scal,10971*scal,11012*scal,11053*scal,11094*scal,
11135*scal,11176*scal,11217*scal,11259*scal,11300*scal,11341*scal,
11382*scal,11423*scal,11465*scal,11506*scal,11547*scal,11588*scal,
11630*scal,11671*scal,11712*scal,11753*scal,11795*scal,11836*scal,
11877*scal,11919*scal,11960*scal,12001*scal,12043*scal,12084*scal,
12126*scal,12167*scal,
/* 300 */
12209*scal,12250*scal,12291*scal,12333*scal,12374*scal,12416*scal,
12457*scal,12499*scal,12540*scal,12582*scal,12624*scal,12665*scal,
12707*scal,12748*scal,12790*scal,12831*scal,12873*scal,12915*scal,
12956*scal,12998*scal,13040*scal,13081*scal,13123*scal,13165*scal,
13206*scal,13248*scal,13290*scal,13331*scal,13373*scal,13415*scal,
13457*scal,13498*scal,13540*scal,13582*scal,13642*scal,13665*scal,
13707*scal,13749*scal,13791*scal,13833*scal,13874*scal,13916*scal,
13958*scal,14000*scal,14042*scal,14084*scal,14126*scal,14167*scal,
14209*scal,14251*scal,
/* 350 */
14293*scal,14335*scal,14377*scal,14419*scal,14461*scal,14503*scal,
14545*scal,14587*scal,14629*scal,14671*scal,14713*scal,14755*scal,
14797*scal,14839*scal,14881*scal,14923*scal,14965*scal,15007*scal,
15049*scal,15091*scal,15133*scal,15175*scal,15217*scal,15259*scal,
15301*scal,15343*scal,15358*scal,15427*scal,15469*scal,15511*scal,
15554*scal,15596*scal,15638*scal,15680*scal,15722*scal,15764*scal,
15806*scal,15849*scal,15891*scal,15933*scal,15975*scal,16071*scal,
16059*scal,16102*scal,16144*scal,16186*scal,16228*scal,16270*scal,
16313*scal,16355*scal,
/* 400 */
16397*scal,16439*scal,16482*scal,16524*scal,16566*scal,16608*scal,
16651*scal,16693*scal,16735*scal,16778*scal,16820*scal,16862*scal,
16904*scal,16947*scal,16989*scal,17031*scal,17047*scal,17116*scal,
17158*scal,17201*scal,17243*scal,17285*scal,17328*scal,17370*scal,
17413*scal,17455*scal,17497*scal,17540*scal,17582*scal,17624*scal,
17667*scal,17709*scal,17752*scal,17794*scal,17837*scal,17879*scal,
17921*scal,17964*scal,18006*scal,18049*scal,18091*scal,18134*scal,
18176*scal,18218*scal,18261*scal,18303*scal,18346*scal,18388*scal,
18431*scal,18473*scal};
/* 450 */


你的程序怎么有好几个goto 呀!!!!!!!! [haotz] [5次] 01-9-18 下午 11:28:17 

请指教如何减少使用goto?我是basic里带过来的习惯：（ [晓奇.] [2次] 01-9-18 下午 11:39:27 

不要用流程图，尽量用N-S图来描述结构，这是谭浩强这个超级书商对我的唯一启迪。 [半夜开拖拉机] [1次] 01-9-18 下午 11:47:29 

请指教，我把goto全去掉了。但有个问题：为什么反对用goto? [晓奇.] [5次] 01-9-19 上午 12:01:09 
 修改后的程序部分：
Uint turn_temp(Uint Vt)
{
        Uint i,j,k;
// 换算部分计算热端电势：(ADValue / 满程) * Vref。注意A/D参考电压Vref单位是
0.1mV。
        Vt = (long int)Vt*33000/511 + 798*scal; // 热端电势 + 冷端电势(20
度)
        k = 220;
        if (Vt>tempTab[k])              // 先预分一次
                {
                i=k;j=450;
                }
        else
                {
                j=k;
                i=0;
                };
        WDR();
        if (Vt!=tempTab[k])
            {
            while(j-i>1)
                    {
                    k = (i+j)/2;
                    if (Vt>tempTab[k])i=k;else j=k;
                    };
oks:    return(k);                              // 返回查询结果
}


将导致结构混乱，可读性可维护性下降。 [刀客] [1次] 01-9-19 上午 12:14:16 

多谢刀客指点，我以后将会留意这个事，在我的程序里还真有不少的goto呢 [晓奇.] [1次] 01-9-19 上午 12:24:30 

 
点击这里回复这篇贴子>>
_____________________________________________________________________________
Copyright?，C51BBS论坛 2000-2001