Paclay-Saris pod racers / Mbed 2 deprecated Algo_charges_fictives_4

Dependencies:   mbed

Committer:
Mecaru
Date:
Thu Jun 06 15:23:30 2019 +0000
Revision:
16:b066e4d6e442
Parent:
15:f8c5007343f9
avec blu

Who changed what in which revision?

UserRevisionLine numberNew contents of line
SolalNathan 0:5d6051eeabfe 1 #include "mbed.h"
SolalNathan 2:b2ce001ff8f5 2 #include <math.h>
SolalNathan 2:b2ce001ff8f5 3
SolalNathan 2:b2ce001ff8f5 4 // Définition des ports séries
Mecaru 13:bed77b03701d 5 //Serial pc(USBTX, USBRX, 115200);
Mecaru 13:bed77b03701d 6 Serial pc(PC_10, PC_11, 115200);
SolalNathan 2:b2ce001ff8f5 7 Serial lidar(PC_6, PC_7, 115200);
SolalNathan 2:b2ce001ff8f5 8
SolalNathan 2:b2ce001ff8f5 9 // Définition des variables globales
Mecaru 12:594a1b936f4b 10 float tableau_distance0[360] = {};
Mecaru 12:594a1b936f4b 11 float tableau_distance1[360] = {};
Mecaru 12:594a1b936f4b 12 uint8_t tableau_en_cours = 0; //tableau en cours de remplissage
Mecaru 12:594a1b936f4b 13 uint8_t flag_fin_tour_lidar=0;
SolalNathan 2:b2ce001ff8f5 14 int compteur_tours_lidar = 0;
Mecaru 6:83dafe088914 15 int affiche_lidar = 0;
Mecaru 11:e227edfced99 16 bool run = false;
SolalNathan 2:b2ce001ff8f5 17
SolalNathan 2:b2ce001ff8f5 18 // Défintion des pwm
SolalNathan 2:b2ce001ff8f5 19 PwmOut pwm_lidar(PB_15); // pwm du Lidar
SolalNathan 2:b2ce001ff8f5 20 PwmOut pwm_moteur(PE_6); // pwm de la propulsion
SolalNathan 2:b2ce001ff8f5 21 PwmOut pwm_direction(PE_5); // pwm de la direction
SolalNathan 2:b2ce001ff8f5 22
SolalNathan 2:b2ce001ff8f5 23 void interrupt_lidar_rx(void);
SolalNathan 0:5d6051eeabfe 24
Mecaru 4:60e7e1c1d1d8 25
SolalNathan 2:b2ce001ff8f5 26 float distance(float x_1, float x_2, float y_1, float y_2)
SolalNathan 2:b2ce001ff8f5 27 {
SolalNathan 2:b2ce001ff8f5 28 // Fonction qui renvoie la distance entre deux points (norme 2)
Mecaru 12:594a1b936f4b 29 float norm2;
SolalNathan 2:b2ce001ff8f5 30 norm2 = sqrt((x_1 - x_2)*(x_1 - x_2) + (y_1 - y_2)*(y_1 - y_2));
SolalNathan 2:b2ce001ff8f5 31 return norm2;
SolalNathan 2:b2ce001ff8f5 32 }
Mecaru 12:594a1b936f4b 33
Mecaru 12:594a1b936f4b 34 void update_direction(float* list_lidar_var, float* vecteur)
SolalNathan 2:b2ce001ff8f5 35 {
Mecaru 16:b066e4d6e442 36 //pc.printf("Update commence\n\r");
SolalNathan 2:b2ce001ff8f5 37 // Fonction de mise à jour de la direction
SolalNathan 2:b2ce001ff8f5 38 float direction[2];
Mecaru 12:594a1b936f4b 39 int i;
Mecaru 12:594a1b936f4b 40 float list_lidar[360];
Mecaru 12:594a1b936f4b 41 uint8_t liste_fictifs[360];
Mecaru 12:594a1b936f4b 42 for(i=0; i<360; i++) list_lidar[i]=list_lidar_var[i];
Mecaru 12:594a1b936f4b 43
Mecaru 13:bed77b03701d 44 //pour les essais
Mecaru 13:bed77b03701d 45 //for(i=0; i<360; i++)
Mecaru 13:bed77b03701d 46 // list_lidar[i]=00;
Mecaru 13:bed77b03701d 47
Mecaru 13:bed77b03701d 48 //list_lidar[0]=100;
Mecaru 13:bed77b03701d 49 //list_lidar[90]=20.0;
Mecaru 13:bed77b03701d 50 //list_lidar[270]=100.0;
Mecaru 13:bed77b03701d 51 //list_lidar[45]=20.0;
Mecaru 13:bed77b03701d 52 //list_lidar[315]=100;
Mecaru 13:bed77b03701d 53 ///////////////////
Mecaru 13:bed77b03701d 54
Mecaru 12:594a1b936f4b 55
Mecaru 12:594a1b936f4b 56 direction[0] = 1;
Mecaru 12:594a1b936f4b 57 direction[1] = 0;
SolalNathan 2:b2ce001ff8f5 58 float avg_x, avg_y, sum_inv_dist;
Mecaru 9:a15fc52284ff 59 //list_lidar[180] = 50; // [mm], point fictif qui pousse la voiture
Mecaru 10:c8d93dc5993c 60 //Définition des points fictifs poussant la voiture
Mecaru 12:594a1b936f4b 61
Mecaru 12:594a1b936f4b 62 for (i=0; i<360; i++) {
Mecaru 9:a15fc52284ff 63 liste_fictifs[i] = 0;
Mecaru 12:594a1b936f4b 64 }
Mecaru 15:f8c5007343f9 65 for (i=90; i<=270; i++) {
Mecaru 15:f8c5007343f9 66 //for (int i=0; i<180; i++){ //test
Mecaru 15:f8c5007343f9 67 liste_fictifs[i] = 1;
Mecaru 15:f8c5007343f9 68 }
Mecaru 15:f8c5007343f9 69 //liste_fictifs[180] = 1;
Mecaru 11:e227edfced99 70
SolalNathan 2:b2ce001ff8f5 71 avg_x = 0;
SolalNathan 2:b2ce001ff8f5 72 avg_y = 0;
Mecaru 12:594a1b936f4b 73
SolalNathan 2:b2ce001ff8f5 74 // Calcul de la direction à prende en fonction des charges fictives
Mecaru 12:594a1b936f4b 75 for (i=0; i<360; i++) {
SolalNathan 2:b2ce001ff8f5 76 int theta;
SolalNathan 2:b2ce001ff8f5 77 float r, x, y;
SolalNathan 2:b2ce001ff8f5 78 theta = i;
Mecaru 12:594a1b936f4b 79 if (liste_fictifs[theta] == 1) {
Mecaru 15:f8c5007343f9 80 r = 500;
Mecaru 12:594a1b936f4b 81 } else {
Mecaru 10:c8d93dc5993c 82 //r = 0; //test
Mecaru 12:594a1b936f4b 83 if(theta != 0) r = list_lidar[360-theta];
Mecaru 12:594a1b936f4b 84 else r = list_lidar[0];
Mecaru 12:594a1b936f4b 85
Mecaru 9:a15fc52284ff 86 }
Mecaru 12:594a1b936f4b 87
Mecaru 12:594a1b936f4b 88 if (r != 0) {
Mecaru 12:594a1b936f4b 89
Mecaru 12:594a1b936f4b 90 //x = 0;
Mecaru 12:594a1b936f4b 91 //y = 0;
Mecaru 12:594a1b936f4b 92 x = r*cosf((float)theta*3.14/180);
Mecaru 12:594a1b936f4b 93 y = r*sinf((float)theta*3.14/180);
Mecaru 12:594a1b936f4b 94 //sum_inv_dist += 1/pow(r, 2);
Mecaru 12:594a1b936f4b 95 //avg_x -= x/pow(r,2);
Mecaru 12:594a1b936f4b 96 //avg_y -= y/pow(r,2);
Mecaru 15:f8c5007343f9 97 float puissance = 0.5*cosf(2*theta*3.14/180) + 1.5;
Mecaru 12:594a1b936f4b 98 avg_x = avg_x - x/pow(r,puissance);
Mecaru 12:594a1b936f4b 99 avg_y = avg_y - y/pow(r,puissance);
Mecaru 12:594a1b936f4b 100
Mecaru 12:594a1b936f4b 101 //pc.printf("Angle:%i r:%4.2f x:%4.2f y:%4.2f %4.2f %4.2f\n\r", theta, r, x,y, avg_x,avg_y);
SolalNathan 2:b2ce001ff8f5 102 }
Mecaru 12:594a1b936f4b 103 }
Mecaru 12:594a1b936f4b 104
Mecaru 8:2ce9493549e8 105 //avg_x /= sum_inv_dist;
Mecaru 8:2ce9493549e8 106 //avg_y /= sum_inv_dist;
SolalNathan 2:b2ce001ff8f5 107 direction[0] = avg_x;
SolalNathan 2:b2ce001ff8f5 108 direction[1] = avg_y;
Mecaru 16:b066e4d6e442 109 //pc.printf("Update termine\n\r");
SolalNathan 2:b2ce001ff8f5 110 // mise à jour de la direction
SolalNathan 2:b2ce001ff8f5 111 for(i=0; i<2; i++)
SolalNathan 2:b2ce001ff8f5 112 vecteur[i] = direction[i];
Mecaru 11:e227edfced99 113
SolalNathan 2:b2ce001ff8f5 114 }
Mecaru 12:594a1b936f4b 115
SolalNathan 2:b2ce001ff8f5 116 float angle_servo(float *direction)
SolalNathan 2:b2ce001ff8f5 117 {
SolalNathan 2:b2ce001ff8f5 118 // Calcul basé sur la régression expérimental pour obetenir l'angle
SolalNathan 2:b2ce001ff8f5 119 // le pwm à donner au moteur en fonction de l'angle voulue
Mecaru 12:594a1b936f4b 120
SolalNathan 2:b2ce001ff8f5 121 float angle;
SolalNathan 2:b2ce001ff8f5 122 double pwm;
SolalNathan 2:b2ce001ff8f5 123 float x, y;
SolalNathan 2:b2ce001ff8f5 124 x = direction[0];
SolalNathan 2:b2ce001ff8f5 125 y = direction[1];
Mecaru 15:f8c5007343f9 126 //x = 1;
Mecaru 15:f8c5007343f9 127 //y = 1;
Mecaru 15:f8c5007343f9 128 angle = atan2(y,x);
Mecaru 15:f8c5007343f9 129 angle = angle*180/3.14;
Mecaru 16:b066e4d6e442 130 //pc.printf("Angle : %f\n\r",angle);
Mecaru 15:f8c5007343f9 131 //pwm = 14.662756 * angle + 1453.08; // à refaire
Mecaru 15:f8c5007343f9 132 pwm = -13.30 * angle + 1376.75;
Mecaru 12:594a1b936f4b 133
Mecaru 6:83dafe088914 134 //if (pwm < 1115) printf("trop petit\n\r");
Mecaru 6:83dafe088914 135 //if (pwm > 1625) printf("trop grand\n\r");
Mecaru 9:a15fc52284ff 136 //if (angle > 5*3.14/180){
Mecaru 9:a15fc52284ff 137 // pwm = 1745;
Mecaru 9:a15fc52284ff 138 //}
Mecaru 9:a15fc52284ff 139 //else{
Mecaru 9:a15fc52284ff 140 // if (angle < -5*3.14/180){
Mecaru 9:a15fc52284ff 141 // pwm = 1080;
Mecaru 9:a15fc52284ff 142 // }
Mecaru 9:a15fc52284ff 143 // else{
Mecaru 9:a15fc52284ff 144 // pwm = 1453;
Mecaru 9:a15fc52284ff 145 // }
Mecaru 9:a15fc52284ff 146 //}
Mecaru 12:594a1b936f4b 147
SolalNathan 2:b2ce001ff8f5 148 return pwm;
SolalNathan 2:b2ce001ff8f5 149 }
SolalNathan 0:5d6051eeabfe 150
Mecaru 12:594a1b936f4b 151 void afficher_lidar(float *tableau_distances_var)
Mecaru 4:60e7e1c1d1d8 152 {
Mecaru 4:60e7e1c1d1d8 153 //Affiche les données du lidar dans la liaison série
Mecaru 4:60e7e1c1d1d8 154 int angle;
Mecaru 12:594a1b936f4b 155 float tableau_distances[360];
Mecaru 12:594a1b936f4b 156 for(angle=0; angle<360; angle++) tableau_distances[angle]=tableau_distances_var[angle];
Mecaru 12:594a1b936f4b 157
Mecaru 12:594a1b936f4b 158 for(angle=0; angle<360; angle++) {
Mecaru 7:dc7e66870bd0 159 float distance = tableau_distances[angle];
Mecaru 7:dc7e66870bd0 160 pc.printf("%i,%f\n\r",angle,distance);
Mecaru 12:594a1b936f4b 161 }
Mecaru 4:60e7e1c1d1d8 162 }
Mecaru 4:60e7e1c1d1d8 163
Mecaru 12:594a1b936f4b 164 int main()
Mecaru 12:594a1b936f4b 165 {
Mecaru 12:594a1b936f4b 166
SolalNathan 2:b2ce001ff8f5 167 pc.printf("\r-------------------------\n\r");
Mecaru 12:594a1b936f4b 168
SolalNathan 2:b2ce001ff8f5 169 float dir[2]; // direction
SolalNathan 2:b2ce001ff8f5 170 float pwm_direction_value;
Mecaru 12:594a1b936f4b 171
Mecaru 12:594a1b936f4b 172
SolalNathan 2:b2ce001ff8f5 173 int i;
Mecaru 12:594a1b936f4b 174
Mecaru 7:dc7e66870bd0 175
Mecaru 7:dc7e66870bd0 176
Mecaru 7:dc7e66870bd0 177
Mecaru 7:dc7e66870bd0 178
SolalNathan 2:b2ce001ff8f5 179 // pwm du LIDAR
SolalNathan 2:b2ce001ff8f5 180 pwm_lidar.period_us(40);
Mecaru 5:32434b497a9b 181 pwm_lidar.pulsewidth_us(40); // vitesse fixe
Mecaru 12:594a1b936f4b 182
Mecaru 11:e227edfced99 183 //pwm moteur
SolalNathan 0:5d6051eeabfe 184 pwm_moteur.period_ms(20);
SolalNathan 2:b2ce001ff8f5 185
SolalNathan 2:b2ce001ff8f5 186 // pwm de la direction
SolalNathan 2:b2ce001ff8f5 187 pwm_direction.period_ms(20);
Mecaru 6:83dafe088914 188 pwm_direction.pulsewidth_us(1480); // correspond à un vitesse faible
SolalNathan 2:b2ce001ff8f5 189
SolalNathan 2:b2ce001ff8f5 190 // récupération du premier batch de données (7 bytes) du LIDAR
SolalNathan 2:b2ce001ff8f5 191 lidar.putc(0xA5);
SolalNathan 2:b2ce001ff8f5 192 lidar.putc(0x20);
Mecaru 12:594a1b936f4b 193 for(i=0; i<7; i++)
SolalNathan 2:b2ce001ff8f5 194 lidar.getc();
SolalNathan 2:b2ce001ff8f5 195
SolalNathan 2:b2ce001ff8f5 196 pc.printf("FIN intit \n\r");
SolalNathan 2:b2ce001ff8f5 197
Mecaru 12:594a1b936f4b 198 lidar.attach(&interrupt_lidar_rx, Serial::RxIrq);
Mecaru 12:594a1b936f4b 199
Mecaru 12:594a1b936f4b 200 while (1) {
Mecaru 12:594a1b936f4b 201 //printf("pwm_moteur = %f, pwm_direction = %f", pwm_moteur, pwm_direction);
Mecaru 12:594a1b936f4b 202
Mecaru 12:594a1b936f4b 203 if(pc.readable()) {
Mecaru 12:594a1b936f4b 204 char entree = pc.getc();
Mecaru 12:594a1b936f4b 205 pc.printf("%c \n\r",entree);
Mecaru 12:594a1b936f4b 206 if (entree == 'a') {
Mecaru 12:594a1b936f4b 207 run = true;
Mecaru 12:594a1b936f4b 208 }
Mecaru 12:594a1b936f4b 209 if (entree == 'z') {
Mecaru 12:594a1b936f4b 210 run = false;
Mecaru 12:594a1b936f4b 211 }
Mecaru 11:e227edfced99 212 }
Mecaru 12:594a1b936f4b 213
Mecaru 12:594a1b936f4b 214
Mecaru 13:bed77b03701d 215 if(0) {
Mecaru 12:594a1b936f4b 216 if(tableau_en_cours == 0)
Mecaru 12:594a1b936f4b 217 afficher_lidar(tableau_distance1);
Mecaru 12:594a1b936f4b 218 else afficher_lidar(tableau_distance0);
Mecaru 12:594a1b936f4b 219
Mecaru 12:594a1b936f4b 220 affiche_lidar = 0;
Mecaru 11:e227edfced99 221 }
Mecaru 12:594a1b936f4b 222
Mecaru 12:594a1b936f4b 223 if(flag_fin_tour_lidar==1) {
Mecaru 12:594a1b936f4b 224 flag_fin_tour_lidar=0;
Mecaru 12:594a1b936f4b 225 if(tableau_en_cours == 0)
Mecaru 12:594a1b936f4b 226 update_direction(tableau_distance1, dir); // mise à jour à la direction
Mecaru 12:594a1b936f4b 227 else update_direction(tableau_distance0, dir); // mise à jour à la direction
Mecaru 16:b066e4d6e442 228 //pc.printf("direction,%f,%f\n\r",dir[0],dir[1]);
Mecaru 12:594a1b936f4b 229 pwm_direction_value = angle_servo(dir); // calcul du pwm
Mecaru 12:594a1b936f4b 230 }
Mecaru 12:594a1b936f4b 231
Mecaru 16:b066e4d6e442 232 if (run==true) {
Mecaru 12:594a1b936f4b 233 // vitesse constante
Mecaru 12:594a1b936f4b 234 pwm_moteur.pulsewidth_us(1440);
Mecaru 12:594a1b936f4b 235 pwm_direction.pulsewidth_us(pwm_direction_value); // commande du pwm du moteur
Mecaru 12:594a1b936f4b 236 } else {
Mecaru 12:594a1b936f4b 237 pwm_moteur.pulsewidth_us(1480);
Mecaru 12:594a1b936f4b 238 }
Mecaru 12:594a1b936f4b 239
Mecaru 11:e227edfced99 240 }
Mecaru 11:e227edfced99 241 }
SolalNathan 2:b2ce001ff8f5 242
SolalNathan 2:b2ce001ff8f5 243 void interrupt_lidar_rx(void)
Mecaru 12:594a1b936f4b 244 {
SolalNathan 2:b2ce001ff8f5 245
Mecaru 5:32434b497a9b 246 int SEUIL = 0; // Seuil de qualité
Mecaru 12:594a1b936f4b 247
SolalNathan 2:b2ce001ff8f5 248 static uint8_t data[5],i=0;
SolalNathan 2:b2ce001ff8f5 249 uint16_t Quality;
SolalNathan 2:b2ce001ff8f5 250 uint16_t Angle;
SolalNathan 2:b2ce001ff8f5 251 uint16_t Distance;
SolalNathan 2:b2ce001ff8f5 252 uint16_t Angle_d;
Mecaru 12:594a1b936f4b 253 static uint16_t Angle_d_old=0;
SolalNathan 2:b2ce001ff8f5 254 uint16_t Distance_d;
Mecaru 6:83dafe088914 255 affiche_lidar ++;
SolalNathan 2:b2ce001ff8f5 256 data[i] = lidar.getc();
SolalNathan 2:b2ce001ff8f5 257 i++;
Mecaru 12:594a1b936f4b 258 if(i==5) {
SolalNathan 2:b2ce001ff8f5 259 i=0;
SolalNathan 2:b2ce001ff8f5 260 Quality = data[0] & 0xFC;
SolalNathan 2:b2ce001ff8f5 261 Quality = Quality >> 2;
Mecaru 12:594a1b936f4b 262
SolalNathan 2:b2ce001ff8f5 263 Angle = data[1] & 0xFE;
SolalNathan 2:b2ce001ff8f5 264 Angle = (Angle>>1) | ((uint16_t)data[2] << 7);
Mecaru 12:594a1b936f4b 265
SolalNathan 2:b2ce001ff8f5 266 Distance = data[3];
SolalNathan 2:b2ce001ff8f5 267 Distance = Distance | ((uint16_t)data[4] << 8);
Mecaru 12:594a1b936f4b 268
SolalNathan 2:b2ce001ff8f5 269 Angle_d = Angle/64; // in degree
SolalNathan 2:b2ce001ff8f5 270 Distance_d = Distance>>2; // in mm
SolalNathan 2:b2ce001ff8f5 271
Mecaru 12:594a1b936f4b 272 // On vérifie que l'on écrit pas en dehors du tableau
Mecaru 8:2ce9493549e8 273 //Angle_d = 360 - Angle_d;
SolalNathan 2:b2ce001ff8f5 274 if(Angle_d>359) Angle_d=359;
Mecaru 12:594a1b936f4b 275
Mecaru 12:594a1b936f4b 276 if(Angle < (Angle_d_old - 180)) {
Mecaru 12:594a1b936f4b 277 tableau_en_cours=1-tableau_en_cours;
Mecaru 12:594a1b936f4b 278 flag_fin_tour_lidar=1;
Mecaru 12:594a1b936f4b 279 }
Mecaru 12:594a1b936f4b 280
SolalNathan 2:b2ce001ff8f5 281 if (Quality < SEUIL) {
SolalNathan 2:b2ce001ff8f5 282 // Fiabilisation des données du LIDAR naïve
Mecaru 12:594a1b936f4b 283 if(tableau_en_cours==0)
Mecaru 12:594a1b936f4b 284 tableau_distance0[Angle_d] = tableau_distance0[Angle_d_old];
Mecaru 12:594a1b936f4b 285 else tableau_distance1[Angle_d] = tableau_distance1[Angle_d_old];
Mecaru 12:594a1b936f4b 286 } else if(tableau_en_cours==0)
Mecaru 12:594a1b936f4b 287 tableau_distance0[Angle_d] = Distance_d;
Mecaru 12:594a1b936f4b 288 else tableau_distance1[Angle_d] = Distance_d;
Mecaru 12:594a1b936f4b 289
Mecaru 12:594a1b936f4b 290 Angle_d_old = Angle;
Mecaru 7:dc7e66870bd0 291
Mecaru 7:dc7e66870bd0 292 //tableau_distance[Angle_d] = Distance_d;
SolalNathan 2:b2ce001ff8f5 293 }
SolalNathan 2:b2ce001ff8f5 294 }