/* ------------------------------------------------------------------------ */
/*            Math library test code for my2406 and my2407 board            */
/*                                                                          */
/*                                              Copyleft(^^) Do-Yoon Kim    */
/*                                              math_1.c        ver 1.0     */
/*                                                          2002.6.1        */
/*  TI葷狼 math library俊 樂綽 阿輛 薦切 竊薦甫 拋膠飄竅綽 橇肺弊伐闌 累己, */
/*  悼累闌 混旗夯促.JTAG 俊鼓飯撈磐啊 樂促擱 NOP磊府俊 break point甫 汲瀝,  */
/*  阿阿狼 藹甸闌 流立 犬牢竅芭唱 code composer狼 弊貳橇 扁瓷闌 撈儈竅擱    */
/*  祈竅霸 搬苞甫 犬牢且 薦 樂促.                                           */
/*                                                                          */
/* ------------------------------------------------------------------------ */
                             
#include <util.h>
#include <math.h> 
#include <values.h>         /* PI defeine */

void bad_trap(void)
{
    while(1) ;
}  
         
void main(void)
{                       
    double s[100], c[100],t[100];
    double temp1, temp2, temp3, temp4;
    unsigned int j; 
    int tmp1, tmp2,tmp3, tmp4;

    DSPInit(PLLx4);
    
    //1. 伙阿 竊薦 拋膠飄
    //   sin, cos, tan 竊薦甫 0何磐 2*pi 鱉瘤 瞞肥肺 劉啊矯難啊擱輯
    //   拌魂 搬苞甫 硅凱俊 歷厘竅咯 弊 藹闌 犬牢秦 夯促.
    for(j=0;j<100;j++)
    {         
        s[j] = sin(2*PI*(double)j/99);      // sin(0) ~ sin(2*pi)鱉瘤 0.2pi 究 劉啊, 竄困綽 radian
        c[j] = cos(2*PI*(double)j/99);      // cos(0) ~ cos(2*pi)鱉瘤 0.2pi 究 劉啊, 竄困綽 radian
        t[j] = tan(2*PI*(double)j/99);      // tan(0) ~ tan(2*pi)鱉瘤 0.2pi 究 劉啊, 竄困綽 radian
    }
    NOP;

    // 2. asin, acos, atan 竊薦 拋膠飄
    //    asin, acos, atan 竊薦俊 藹闌 持絹 弊 搬苞甫 犬牢竅絆,
    //    竊薦狼 葷儈 規過闌 佬腮促.
    for(j=0;j<100;j++)
    {
        s[j] = asin((double)j/99);          //double 鷗澇撈 酒匆 版快 鞏力啊 慣積茄促.
        c[j] = acos((double)j/99);
        t[j] = atan((double)j/9.9);         //90檔俊輯 tan 竊薦綽 公茄措狼 藹闌 啊瘤骨肺 奴 藹闌 持絹霖促.
    }
    NOP;
    
    // 3. atan 竊薦綽 -90檔 ~ 90檔狼 裹困狼 藹欄肺父 拌魂 搬苞啊 唱柯促.
    // 竅瘤父 -180~180檔 裹困狼 拌魂 搬苞啊 鞘夸且 錠啊 樂綽單, 撈凡 錠綽
    // atan2 竊薦甫 葷儈茄促.
    // atan2 竊薦綽 x客 y藹闌 阿阿 措澇竅檔廢 登絹 樂促. 
    temp1 = atan2(1.0, 1.0);            //1葷盒擱
    temp2 = atan2(1.0, -1.0);           //2葷盒擱
    temp3 = atan2(-1.0, -1.0);          //3葷盒擱
    temp4 = atan2(-1.0, 1.0);           //4葷盒擱
    NOP;
    
    // 4. hyperbolic 伙阿 竊薦甸
    // sinh, cosh, tanh狼 薦青 搬苞甫 流立 犬牢茄促.
    for(j=0;j<100;j++)
    {         
        s[j] = sinh(2*PI*(double)j/99);
        c[j] = cosh(2*PI*(double)j/99); 
        t[j] = tanh(2*PI*(double)j/99); 
    }      
    NOP;
            
    // 5. 棵覆, 滾覆, 館棵覆闌 阿阿 薦青秦焊磊.
    //    撈 錠 劇狼 角薦揮父 酒聰扼 瀾狼 角薦俊檔 利儈秦輯 弊 搬苞甫 犬牢竅磊.
    temp4 = 1.2;
    temp1 = ceil(temp4);                //棵覆 => 2.0撈 temp俊 歷厘等促.
    temp2 = floor(temp4);               //滾覆 => 1.0撈 temp俊 歷厘等促.
                                        // 館棵覆撈 鞘夸竅擱 temp3 = floor(temp4+0.5);客 鞍撈 葷儈且 薦 樂促.
    tmp3 = (int)(temp4+0.5);            //館棵覆,0.5甫 怠祭茄 饒 瀝薦屈欄肺 某膠潑竅綽 規過檔 館棵覆竅綽 規過 吝俊 竅唱撈促.
                                        // 措腳 撈 錠 楷魂 搬苞綽 瀝薦屈撈 等促.
    NOP;
    
    temp4 = 1.6;                        
    temp1 = ceil(temp4);                //棵覆
    temp2 = floor(temp4);               //滾覆
    temp3 = floor(temp4+0.5);           //館棵覆
    NOP;
    
    temp4 = -1.2;
    temp1 = ceil(temp4);                
    temp2 = floor(temp4);                   
    tmp3 = (int)(temp4+0.5);            
    NOP;
    
    temp4 = -1.6;
    temp1 = ceil(temp4);                
    temp2 = floor(temp4);               
    temp3 = floor(temp4+0.5);           
    NOP;
    
    // 6. log, expotential 竊薦 拋膠飄
    for(j=0;j<100;j++)
    {         
        s[j] = log((double)j/99+1.0);       //磊楷肺弊(natural logarithm
        c[j] = log10((double)j/99+1.0);     //惑儈肺弊(the base-10 logarithm)
        t[j] = exp((double)j/99);           //瘤薦竊薦 exponential fn
    }      
    
    
    
    // 7. 弊 觀狼 竊薦甸
    temp1 = fabs(1.2);                  //例措藹 竊薦
    temp2 = fabs(-1.2); 
    
    temp1 = fmod(10.5, 3.0);            //10.0/3.0狼 唱贛瘤
    //temp2 = modf(10.0, 3.0);          //10.0/3.0狼 唱贛瘤
    temp3 = pow(2.0,3.0);               //2.0^3.0
    temp4 = sqrt(4.0);                  //sqrt 竊薦
        
    while(1)
    {
        NOP;
    }
                     
}