PWM and ALGO updated.. PWM getting generated

Dependencies:   FreescaleIAP mbed-rtos mbed

Fork of TFR_BAE_vr1_1working_finally_PWM_CTRLALGO_update by Team Fox

Revision:
12:f82fbe93fab3
Parent:
11:0f71a96987bd
Child:
13:75aa0104f5e6
--- a/ACS.cpp	Thu Mar 31 11:44:20 2016 +0000
+++ b/ACS.cpp	Fri Apr 01 18:58:43 2016 +0000
@@ -42,117 +42,124 @@
 
 
 Serial pc_acs(USBTX,USBRX); //for usb communication
+//CONTROL_ALGO
+
+float moment[3]; // Unit: Ampere*Meter^2
+float b_old[3]={1.15e-5,-0.245e-5,1.98e-5};  // Unit: Tesla
+int flag_firsttime=1, controlmode, alarmmode=0;
+
+
+
+void controller (float moment[3], float b1[3], float omega1[3], float b_old[3], int &alarmmode, int &flag_firsttime, int &controlmode);
+void controlmodes(float moment[3], float b[3], float db[3], float omega[3], int controlmode1, float MmntMax);
+float max_array(float arr[3]);
 void inverse(float mat[3][3],float inv[3][3]);
-  
-int ctrl_count = 0;
-float bcopy[3];
-float moment[3];
- ///////algo working well
+
+//CONTROLALGO PARAMETERS
+
+
 void FCTN_ACS_CNTRLALGO(float b[3],float omega[3])
 {
-    float db[3];
-    float bb[3]={0,0,0};
-    float d[3]={0,0,0};
-    float Jm[3][3]={{0.2730,0,0},{0,0.3018,0},{0,0,0.3031}};
-    float den=0,den2;
-    int i,j;                   //temporary variables
-    float Mu[2],z[2],dv[2],v[2],u[2],tauc[3]={0,0,0};           //outputs
-    float invJm[3][3];
-    float kmu2=0.07,gamma2=1.9e4,kz2=0.4e-2,kmu=0.003,gamma=5.6e4,kz=0.1e-4;
+    controller (moment, b, omega, b_old, alarmmode, flag_firsttime, controlmode);
     
-    //................. calculating db values...........................
-    if(ctrl_count!=0)
-    {
-        for(i=0;i<3;i++)
-        db[i]= (b[i]-bcopy[i])/10;
-    }
+}
+void controller (float moment[3], float b1[3], float omega1[3], float b_old[3], int &alarmmode, int &flag_firsttime, int &controlmode)
+{
+    float db1[3]; // Unit: Tesla/Second
+    float sampling_time=10; // Unit: Seconds. Digital Control law excuted once in 10 seconds
+    float MmntMax=1.1; // Unit: Ampere*Meter^2
+    float OmegaMax=1*3.1415/180.0; // Unit: Radians/Second
+    float normalising_fact;
+    float b1_copy[3], omega1_copy[3], db1_copy[3];
+    int i, j;
+    if(flag_firsttime==1)
+        {
+            for(i=0;i<3;i++)
+        {
+                db1[i]=0; // Unit: Tesla/Second
+        }
+            flag_firsttime=0;
+        }
     else
     {
         for(i=0;i<3;i++)
-        db[i]= 0;
-    }
-    ctrl_count++;
-    //..................................................................
-    printf("\n\r Entered cntrl algo\n\r");
-    for(int i=0; i<3; i++) 
         {
-        printf("%f\t",omega[i]);
+            db1[i]= (b1[i]-b_old[i])/sampling_time; // Unit: Tesla/Second
         }
-    for(int i=0; i<3; i++) 
-        {
-        printf("%f\t",b[i]);
-        }
-
-    //.........................algo......................................
-    den=sqrt((b[0]*b[0])+(b[1]*b[1])+(b[2]*b[2]));
-    den2=(b[0]*db[0])+(b[1]*db[1])+(b[2]*db[2]);
-    for(i=0;i<3;i++)
+    }
+    
+        if(max_array(omega1)<(0.8*OmegaMax) && alarmmode==1)
     {
-        db[i]=((db[i]*den*den)-(b[i]*(den2)))/(pow(den,3));
-        //db[i]/=den*den*den;
+            alarmmode=0;
     }
-    for(i=0;i<3;i++)
-    {
-        b[i]/=den;
-    }
-    // select kz, kmu, gamma
-    if(b[0]>0.9||b[0]<-0.9)
+        else if(max_array(omega1)>OmegaMax && alarmmode==0)
     {
-        kz=kz2;
-        kmu=kmu2;
-        gamma=gamma2;
+            alarmmode=1;
     }
-    // calculate Mu, v, dv, z, u
-    for(i=0;i<2;i++)
+
+    for (i=0;i<3;i++)
     {
-        Mu[i]=b[i+1];
-        v[i]=-kmu*Mu[i];
-        dv[i]=-kmu*db[i+1];
-        z[i]=db[i+1]-v[i];
-        u[i]=-kz*z[i]+dv[i]-(Mu[i]/gamma);
+        b1_copy[i]=b1[i];
+        db1_copy[i]=db1[i];
+        omega1_copy[i]=omega1[i];
     }
-    inverse(Jm,invJm);
-    for(i=0;i<3;i++)
-    {
-        for(j=0;j<3;j++)
-            bb[i]+=omega[j]*(omega[(i+1)%3]*Jm[(i+2)%3][j]-omega[(i+2)%3]*Jm[(i+1)%3][j]);
-    }
-    for(i=0;i<3;i++)
+
+    if(alarmmode==0)
+        {
+            controlmode=0;
+            controlmodes(moment,b1,db1,omega1,controlmode,MmntMax);
+        for (i=0;i<3;i++)
+        {
+            b1[i]=b1_copy[i];
+            db1[i]=db1_copy[i];
+            omega1[i]=omega1_copy[i];
+        }
+            if(max_array(moment)>MmntMax)
+            {
+                controlmode=1;
+                controlmodes(moment,b1,db1,omega1,controlmode,MmntMax);
+            for (i=0;i<3;i++)
+            {
+                b1[i]=b1_copy[i];
+                db1[i]=db1_copy[i];
+                omega1[i]=omega1_copy[i];
+            }
+                if(max_array(moment)>MmntMax)
+                {
+                    normalising_fact=max_array(moment)/MmntMax;
+                    for(i=0;i<3;i++)
+                {
+                        moment[i]/=normalising_fact; // Unit: Ampere*Meter^2
+                }
+                }
+            }
+        }
+        else
+        {   
+            controlmode=1;
+            controlmodes(moment,b1,db1,omega1,controlmode,MmntMax);
+        for (i=0;i<3;i++)
+        {
+            b1[i]=b1_copy[i];
+            db1[i]=db1_copy[i];
+            omega1[i]=omega1_copy[i];
+        }
+            if(max_array(moment)>MmntMax)
+            {
+                normalising_fact=max_array(moment)/MmntMax;
+                for(i=0;i<3;i++)
+            {
+                    moment[i]/=normalising_fact; // Unit: Ampere*Meter^2
+            }
+            }
+        
+        }
+    for (i=0;i<3;i++)
     {
-        for(j=0;j<3;j++)
-            d[i]+=bb[j]*invJm[i][j];
-    }
-    bb[1]=u[0]+(d[0]*b[2])-(d[2]*b[0])-(omega[0]*db[2])+(omega[2]*db[0]);
-    bb[2]=u[1]-(d[0]*b[1])+(d[1]*b[0])+(omega[0]*db[1])-(omega[1]*db[0]);
-    bb[0]=0;
-    for(i=0;i<3;i++)
-    {
-        d[i]=invJm[1][i];
-        invJm[1][i]=b[2]*invJm[0][i]-b[0]*invJm[2][i];
-        invJm[2][i]=-b[1]*invJm[0][i]+b[0]*d[i];
-        invJm[0][i]=b[i];
+        b_old[i]=b1[i];
     }
-    inverse(invJm,Jm);
-    printf("\n \r calculating tauc");
-    for(i=0;i<3;i++)
-    {
-        for(j=0;j<3;j++)
-            tauc[i]+=Jm[i][j]*bb[j];            // calculating torque values
-            printf(" %f \t",tauc[i]);    
-    }
-    //..........................tauc to moment conversion..........................
-    printf("\n \r calculating moment");
-    for(i=0;i<3;i++)
-        bcopy[i]=b[i]*den;
-    for(i=0;i<3;i++)
-    {
-        moment[i]=bcopy[(i+1)%3]*tauc[(i+2)%3]-bcopy[(i+2)%3]*tauc[(i+1)%3];
-        moment[i]/=den;
-        printf(" %f \t",moment[i]); 
-    }
-    printf("\n\r exited control algo\n");
 }
-//..........................function to find inverse..................
+
 void inverse(float mat[3][3],float inv[3][3])
 {
     int i,j;
@@ -160,16 +167,141 @@
     for(i=0;i<3;i++)
     { 
         for(j=0;j<3;j++)
+        {
             inv[j][i]=(mat[(i+1)%3][(j+1)%3]*mat[(i+2)%3][(j+2)%3])-(mat[(i+2)%3][(j+1)%3]*mat[(i+1)%3][(j+2)%3]);
+        }
     }
     det+=(mat[0][0]*inv[0][0])+(mat[0][1]*inv[1][0])+(mat[0][2]*inv[2][0]);
     for(i=0;i<3;i++)
-    { 
+    {
         for(j=0;j<3;j++)
+        {
             inv[i][j]/=det;
+        }
     }
 }
 
+float max_array(float arr[3])
+{
+    int i;
+    float temp_max=fabs(arr[0]);
+    for(i=1;i<3;i++)
+    {
+        if(fabs(arr[i])>temp_max)
+        {
+            temp_max=fabs(arr[i]);
+        }
+    }
+    return temp_max;
+}
+
+
+void controlmodes(float moment[3], float b[3], float db[3], float omega[3], int controlmode1, float MmntMax)
+{
+    float bb[3]={0,0,0};
+    float d[3]={0,0,0};
+    float Jm[3][3]={{0.2271,0.0014,-0.0026},{0.0014,0.2167,-0.004},{-0.0026,-0.004,0.2406}}; // Unit: Kilogram*Meter^2. Jm may change depending on the final satellite structure
+    float den=0,den2;
+    float bcopy[3];
+    int i, j;//temporary variables
+    float Mu[2],z[2],dv[2],v[2],u[2],tauc[3]={0,0,0},Mmnt[3];//outputs
+    float invJm[3][3];
+    float kmu2=0.07,gamma2=1.9e4,kz2=0.4e-2,kmu=0.003,gamma=5.6e4,kz=0.1e-4,kdetumble=2000000;
+    int infflag;   // Flag variable to check if the moment value is infinity or NaN
+    
+    if(controlmode1==0)
+    {
+        den=sqrt((b[0]*b[0])+(b[1]*b[1])+(b[2]*b[2]));
+        den2=(b[0]*db[0])+(b[1]*db[1])+(b[2]*db[2]);
+        for(i=0;i<3;i++)
+        {
+            db[i]=((db[i]*den*den)-(b[i]*(den2)))/(pow(den,3)); // Normalized db. Hence the unit is Second^(-1)
+        }
+        for(i=0;i<3;i++)
+        {
+            b[i]/=den; // Mormalized b. Hence no unit.
+        }
+        if(b[2]>0.9 || b[2]<-0.9)
+        {
+            kz=kz2;
+            kmu=kmu2;
+            gamma=gamma2;
+        }
+        for(i=0;i<2;i++)
+        {
+            Mu[i]=b[i];
+            v[i]=-kmu*Mu[i];
+            dv[i]=-kmu*db[i];
+            z[i]=db[i]-v[i];
+            u[i]=-kz*z[i]+dv[i]-(Mu[i]/gamma);
+        }
+        inverse(Jm,invJm);
+        for(i=0;i<3;i++)
+        {
+            for(j=0;j<3;j++)
+            {
+                bb[i]+=omega[j]*(omega[(i+1)%3]*Jm[(i+2)%3][j]-omega[(i+2)%3]*Jm[(i+1)%3][j]);
+            }
+        }
+        for(i=0;i<3;i++)
+        {
+            for(j=0;j<3;j++)
+            {
+                d[i]+=bb[j]*invJm[i][j];
+            }
+        }
+        bb[1]=u[0]-(d[1]*b[2])+(d[2]*b[1])-(omega[1]*db[2])+(omega[2]*db[1]);
+        bb[2]=u[1]-(d[2]*b[0])+(d[0]*b[2])-(omega[2]*db[0])+(omega[0]*db[2]);
+        bb[0]=0;
+        for(i=0;i<3;i++)
+        {
+            d[i]=invJm[2][i];
+            invJm[1][i]=-b[2]*invJm[1][i]+b[1]*d[i];
+            invJm[2][i]=b[2]*invJm[0][i]-b[0]*d[i];
+            invJm[0][i]=b[i];
+        }
+        inverse(invJm,Jm);
+        for(i=0;i<3;i++)
+        {
+            for(j=0;j<3;j++)
+            {
+                tauc[i]+=Jm[i][j]*bb[j]; // Unit: Newton*Meter^2
+            }
+        }
+        for(i=0;i<3;i++)
+        {
+            bcopy[i]=b[i]*den;
+        }
+        for(i=0;i<3;i++)
+        {
+            Mmnt[i]=bcopy[(i+1)%3]*tauc[(i+2)%3]-bcopy[(i+2)%3]*tauc[(i+1)%3];
+            Mmnt[i]/=(den*den); // Unit: Ampere*Meter^2
+        }
+        infflag=0;
+        for (i=0; i<3 && infflag==0; i++)
+        {
+            if (isinf(Mmnt[i])==1 || isnan(Mmnt[i])==1)
+                infflag=1;
+        }
+        if (infflag==1)
+        {
+            for (i=0; i<3; i++)
+                Mmnt[i]=2*MmntMax;
+        }
+        
+    }
+    else if(controlmode1==1)
+    {
+        for(i=0;i<3;i++)
+        {
+            Mmnt[i]=-kdetumble*(b[(i+1)%3]*omega[(i+2)%3]-b[(i+2)%3]*omega[(i+1)%3]); // Unit: Ampere*Meter^2
+        }
+    }
+    for(i=0;i<3;i++)
+    {
+        moment[i]=Mmnt[i]; // Unit: Ampere*Meter^2
+    }
+}
 
 I2C i2c (PTC9,PTC8); //PTC9-sda,PTC8-scl  for the attitude sensors and battery gauge