4 directional EMG control of the XY table. Made during my bachelor end assignment.

Dependencies:   C12832_lcd HIDScope mbed-dsp mbed

Committer:
jessekaiser
Date:
Thu Jun 11 10:07:53 2015 +0000
Revision:
56:6ea03cce1175
Parent:
55:fa6d5ee5c854
Child:
57:0a278c60d28b
Endconcept 6. Niks werkt;

Who changed what in which revision?

UserRevisionLine numberNew contents of line
jessekaiser 56:6ea03cce1175 1 /*Code by Jesse Kaiser, s1355783 for control of the 2DOF Planar Table
jessekaiser 56:6ea03cce1175 2 Some variables are also numbered at the end. The numbers stands for the muscle that controls it.
jessekaiser 56:6ea03cce1175 3 Biceps = 1
jessekaiser 56:6ea03cce1175 4 Triceps = 2
jessekaiser 56:6ea03cce1175 5 Pectoralis Major = 3
jessekaiser 56:6ea03cce1175 6 Deltoid = 4
jessekaiser 56:6ea03cce1175 7 The "x" and "y" at the end of variables stand for the X-Spindle or Y-Spindle respectivly.
jessekaiser 56:6ea03cce1175 8 */
jessekaiser 56:6ea03cce1175 9
jessekaiser 0:3acdd563582f 10 #include "mbed.h"
jessekaiser 10:7f94cd65c910 11 #include "C12832_lcd.h"
jessekaiser 56:6ea03cce1175 12 #include "arm_math.h"
jessekaiser 56:6ea03cce1175 13 #include "HIDScope.h"
jessekaiser 0:3acdd563582f 14
jessekaiser 56:6ea03cce1175 15 #define K_Gain 14 //Gain of the filtered EMG signal
jessekaiser 56:6ea03cce1175 16 #define Damp 5 //Deceleration of the motor
jessekaiser 56:6ea03cce1175 17 #define Mass 1 // Mass value
jessekaiser 56:6ea03cce1175 18 #define dt 0.002 //Sample frequency
jessekaiser 56:6ea03cce1175 19 #define MAX_bi 0.04 //Can be used for normalisation of the EMG signal of the biceps
jessekaiser 56:6ea03cce1175 20 #define MAX_tri 0.04
jessekaiser 56:6ea03cce1175 21 #define MAX_pect 0.04
jessekaiser 56:6ea03cce1175 22 #define MAX_delt 0.04
jessekaiser 56:6ea03cce1175 23 #define MIN_freq 500 //The motor turns off below this frequency
jessekaiser 56:6ea03cce1175 24 #define EMG_tresh 0.01
jessekaiser 31:372ff8d49430 25
jessekaiser 56:6ea03cce1175 26 //Motor control
jessekaiser 56:6ea03cce1175 27 DigitalOut Dirx(p21);
jessekaiser 56:6ea03cce1175 28 PwmOut Stepx(p22);
jessekaiser 56:6ea03cce1175 29 DigitalOut Diry(p23);
jessekaiser 56:6ea03cce1175 30 PwmOut Stepy(p24);
jessekaiser 56:6ea03cce1175 31
jessekaiser 56:6ea03cce1175 32 //Signal to and from computer
jessekaiser 56:6ea03cce1175 33 Serial pc(USBTX, USBRX);
jessekaiser 56:6ea03cce1175 34
jessekaiser 56:6ea03cce1175 35 //Position sensors
jessekaiser 56:6ea03cce1175 36 AnalogIn Posx(p19);
jessekaiser 56:6ea03cce1175 37 AnalogIn Posy(p20);
jessekaiser 56:6ea03cce1175 38 DigitalOut Enablex(p25); //Connected to green led
jessekaiser 56:6ea03cce1175 39 DigitalOut Enabley(p26); //Connected to blue led
jessekaiser 56:6ea03cce1175 40
jessekaiser 56:6ea03cce1175 41 //Microstepping
jessekaiser 0:3acdd563582f 42 DigitalOut MS1(p27);
jessekaiser 0:3acdd563582f 43 DigitalOut MS2(p28);
jessekaiser 0:3acdd563582f 44 DigitalOut MS3(p29);
jessekaiser 56:6ea03cce1175 45
jessekaiser 56:6ea03cce1175 46 //Potmeter and EMG
jessekaiser 56:6ea03cce1175 47
jessekaiser 56:6ea03cce1175 48
jessekaiser 56:6ea03cce1175 49 AnalogIn emg1(p15); //EMG bordje bovenop, biceps
jessekaiser 56:6ea03cce1175 50 AnalogIn emg2(p16); //triceps
jessekaiser 56:6ea03cce1175 51 AnalogIn emg3(p17);
jessekaiser 56:6ea03cce1175 52 AnalogIn emg4(p18);
jessekaiser 56:6ea03cce1175 53
jessekaiser 56:6ea03cce1175 54 HIDScope scope(4);
jessekaiser 56:6ea03cce1175 55 Ticker scopeTimer;
jessekaiser 56:6ea03cce1175 56
jessekaiser 56:6ea03cce1175 57 //lcd
jessekaiser 30:0a8f849e0292 58 C12832_LCD lcd;
jessekaiser 0:3acdd563582f 59
jessekaiser 56:6ea03cce1175 60 //Variables for motor control
jessekaiser 56:6ea03cce1175 61 float setpoint = 1000; //Frequentie setpint
jessekaiser 56:6ea03cce1175 62 float step_freq1 = 1;
jessekaiser 56:6ea03cce1175 63 float step_freq2 = 1;
jessekaiser 56:6ea03cce1175 64 float step_freq3 = 1;
jessekaiser 56:6ea03cce1175 65 float step_freq4 = 1;
jessekaiser 56:6ea03cce1175 66
jessekaiser 56:6ea03cce1175 67 //EMG filter
jessekaiser 56:6ea03cce1175 68 arm_biquad_casd_df1_inst_f32 lowpass_biceps;
jessekaiser 56:6ea03cce1175 69 arm_biquad_casd_df1_inst_f32 lowpass_triceps;
jessekaiser 56:6ea03cce1175 70 arm_biquad_casd_df1_inst_f32 lowpass_pect;
jessekaiser 56:6ea03cce1175 71 arm_biquad_casd_df1_inst_f32 lowpass_deltoid;
jessekaiser 56:6ea03cce1175 72 //lowpass filter settings: Fc = 2 Hz, Fs = 500 Hz, Gain = -3 dB
jessekaiser 56:6ea03cce1175 73 float lowpass_const[] = {0.00015514839749793376, 0.00031029679499586753, 0.00015514839749793376, 1.9644602512795832, -0.9650808448695751};
jessekaiser 56:6ea03cce1175 74 arm_biquad_casd_df1_inst_f32 highnotch_biceps;
jessekaiser 56:6ea03cce1175 75 arm_biquad_casd_df1_inst_f32 highnotch_triceps;
jessekaiser 56:6ea03cce1175 76 arm_biquad_casd_df1_inst_f32 highnotch_pect;
jessekaiser 56:6ea03cce1175 77 arm_biquad_casd_df1_inst_f32 highnotch_deltoid;
jessekaiser 56:6ea03cce1175 78 //highpass filter settings: Fc = 20 Hz, Fs = 500 Hz, notch Fc = 50, Fs = 500 Hz
jessekaiser 56:6ea03cce1175 79 float highnotch_const[] = {0.8370879899975344, -1.6741759799950688, 0.8370879899975344, 1.6474576182593796, -0.7008943417307579, 0.7063988100714527, -1.1429772843080923, 0.7063988100714527, 1.1429772843080923, -0.41279762014290533};
jessekaiser 56:6ea03cce1175 80
jessekaiser 56:6ea03cce1175 81 //state values
jessekaiser 56:6ea03cce1175 82 float lowpass_biceps_states[4];
jessekaiser 56:6ea03cce1175 83 float highnotch_biceps_states[8];
jessekaiser 56:6ea03cce1175 84 float lowpass_triceps_states[4];
jessekaiser 56:6ea03cce1175 85 float highnotch_triceps_states[8];
jessekaiser 56:6ea03cce1175 86 float lowpass_pect_states[4];
jessekaiser 56:6ea03cce1175 87 float highnotch_pect_states[8];
jessekaiser 56:6ea03cce1175 88 float lowpass_deltoid_states[4];
jessekaiser 56:6ea03cce1175 89 float highnotch_deltoid_states[8];
jessekaiser 56:6ea03cce1175 90
jessekaiser 56:6ea03cce1175 91 //global variabels
jessekaiser 56:6ea03cce1175 92 float filtered_biceps, filtered_triceps, filtered_pect, filtered_deltoid;
jessekaiser 56:6ea03cce1175 93 float speed_old1, speed_old2, speed_old3, speed_old4;
jessekaiser 56:6ea03cce1175 94 float acc1, acc2, acc3, acc4;
jessekaiser 56:6ea03cce1175 95 float force1, force2, force3, force4;
jessekaiser 56:6ea03cce1175 96 float speed1, speed2, speed3, speed4;
jessekaiser 56:6ea03cce1175 97 float damping1, damping2, damping3, damping4;
jessekaiser 56:6ea03cce1175 98
jessekaiser 56:6ea03cce1175 99 void looper_emg()
jessekaiser 56:6ea03cce1175 100 {
jessekaiser 56:6ea03cce1175 101 float emg_value1_f32, emg_value2_f32, emg_value3_f32, emg_value4_f32;
jessekaiser 56:6ea03cce1175 102 emg_value1_f32 = emg1.read();
jessekaiser 56:6ea03cce1175 103 emg_value2_f32 = emg2.read();
jessekaiser 56:6ea03cce1175 104 emg_value3_f32 = emg3.read();
jessekaiser 56:6ea03cce1175 105 emg_value4_f32 = emg4.read();
jessekaiser 56:6ea03cce1175 106
jessekaiser 56:6ea03cce1175 107 //process emg biceps
jessekaiser 56:6ea03cce1175 108 arm_biquad_cascade_df1_f32(&highnotch_biceps, &emg_value1_f32, &filtered_biceps, 1 ); //High pass and notch filter
jessekaiser 56:6ea03cce1175 109 filtered_biceps = fabs(filtered_biceps); //Rectifier
jessekaiser 56:6ea03cce1175 110 arm_biquad_cascade_df1_f32(&lowpass_biceps, &filtered_biceps, &filtered_biceps, 1 ); //low pass filter
jessekaiser 56:6ea03cce1175 111
jessekaiser 56:6ea03cce1175 112 //process emg triceps
jessekaiser 56:6ea03cce1175 113 arm_biquad_cascade_df1_f32(&highnotch_triceps, &emg_value2_f32, &filtered_triceps, 1 );
jessekaiser 56:6ea03cce1175 114 filtered_triceps = fabs(filtered_triceps);
jessekaiser 56:6ea03cce1175 115 arm_biquad_cascade_df1_f32(&lowpass_triceps, &filtered_triceps, &filtered_triceps, 1 );
jessekaiser 56:6ea03cce1175 116
jessekaiser 56:6ea03cce1175 117 //process emg pectoralis major
jessekaiser 56:6ea03cce1175 118 arm_biquad_cascade_df1_f32(&highnotch_pect, &emg_value3_f32, &filtered_pect, 1 );
jessekaiser 56:6ea03cce1175 119 filtered_pect = fabs(filtered_pect);
jessekaiser 56:6ea03cce1175 120 arm_biquad_cascade_df1_f32(&lowpass_pect, &filtered_pect, &filtered_pect, 1 );
jessekaiser 56:6ea03cce1175 121
jessekaiser 56:6ea03cce1175 122 //process emg deltoid
jessekaiser 56:6ea03cce1175 123 arm_biquad_cascade_df1_f32(&highnotch_deltoid, &emg_value4_f32, &filtered_deltoid, 1 );
jessekaiser 56:6ea03cce1175 124 filtered_deltoid = fabs(filtered_deltoid);
jessekaiser 56:6ea03cce1175 125 arm_biquad_cascade_df1_f32(&lowpass_deltoid, &filtered_deltoid, &filtered_deltoid, 1 );
jessekaiser 56:6ea03cce1175 126
jessekaiser 56:6ea03cce1175 127 /*send value to PC. */
jessekaiser 56:6ea03cce1175 128 scope.set(0,filtered_biceps); //Filtered EMG signal
jessekaiser 56:6ea03cce1175 129 scope.set(1,filtered_triceps);
jessekaiser 56:6ea03cce1175 130 scope.set(2,filtered_pect);
jessekaiser 56:6ea03cce1175 131 scope.set(3,filtered_deltoid);
jessekaiser 56:6ea03cce1175 132 }
jessekaiser 56:6ea03cce1175 133
jessekaiser 56:6ea03cce1175 134 void looper_motory()
jessekaiser 56:6ea03cce1175 135 {
jessekaiser 56:6ea03cce1175 136 //Forward
jessekaiser 56:6ea03cce1175 137 force1 = K_Gain*(filtered_biceps/MAX_bi);
jessekaiser 56:6ea03cce1175 138 force1 = force1 - damping1;
jessekaiser 56:6ea03cce1175 139 acc1 = force1/Mass;
jessekaiser 56:6ea03cce1175 140 speed1 = speed_old1 + (acc1 * dt);
jessekaiser 56:6ea03cce1175 141 damping1 = speed1 * Damp;
jessekaiser 56:6ea03cce1175 142 step_freq1 = (setpoint*speed1);
jessekaiser 56:6ea03cce1175 143 speed_old1 = speed1;
jessekaiser 51:75a8c7191555 144
jessekaiser 56:6ea03cce1175 145 //Achteruit triceps
jessekaiser 56:6ea03cce1175 146 force2 = K_Gain*(filtered_triceps/MAX_tri);
jessekaiser 56:6ea03cce1175 147 force2 = force2 - damping2;
jessekaiser 56:6ea03cce1175 148 acc2 = force2/Mass;
jessekaiser 56:6ea03cce1175 149 speed2 = speed_old2 + (acc2 * dt);
jessekaiser 56:6ea03cce1175 150 damping2 = speed2 * Damp;
jessekaiser 56:6ea03cce1175 151 step_freq2 = (setpoint*speed2);
jessekaiser 56:6ea03cce1175 152 speed_old2 = speed2;
jessekaiser 56:6ea03cce1175 153 if (force1 > force2) {
jessekaiser 56:6ea03cce1175 154 Diry = 1;
jessekaiser 56:6ea03cce1175 155 speed2 = 0.01;
jessekaiser 56:6ea03cce1175 156 speed_old2 = 0.01;
jessekaiser 56:6ea03cce1175 157 Stepy.period(1.0/step_freq1);
jessekaiser 56:6ea03cce1175 158 }
jessekaiser 56:6ea03cce1175 159 if (force2 > force1) {
jessekaiser 56:6ea03cce1175 160 Diry = 0;
jessekaiser 56:6ea03cce1175 161 speed1 = 0.01;
jessekaiser 56:6ea03cce1175 162 speed_old1 = 0.01;
jessekaiser 56:6ea03cce1175 163 Stepy.period(1.0/step_freq2);
jessekaiser 56:6ea03cce1175 164 }
jessekaiser 56:6ea03cce1175 165 //Speed limit
jessekaiser 56:6ea03cce1175 166 if (speed1 > 1) {
jessekaiser 56:6ea03cce1175 167 speed1 = 1;
jessekaiser 56:6ea03cce1175 168 step_freq1 = setpoint;
jessekaiser 56:6ea03cce1175 169 }
jessekaiser 56:6ea03cce1175 170 if (speed2 > 1) {
jessekaiser 56:6ea03cce1175 171 speed2 = 1;
jessekaiser 56:6ea03cce1175 172 step_freq2 = setpoint;
jessekaiser 56:6ea03cce1175 173 }
jessekaiser 56:6ea03cce1175 174 //EMG treshold
jessekaiser 56:6ea03cce1175 175 if (filtered_biceps < EMG_tresh && filtered_triceps < EMG_tresh) {
jessekaiser 56:6ea03cce1175 176 Enabley = 1; //Enable = 1 turns the motor off.
jessekaiser 56:6ea03cce1175 177 speed1 = 0.01;
jessekaiser 56:6ea03cce1175 178 speed_old1 = 0.01;
jessekaiser 56:6ea03cce1175 179 speed2 = 0.01;
jessekaiser 56:6ea03cce1175 180 speed_old2 = 0.01;
jessekaiser 56:6ea03cce1175 181 } else {
jessekaiser 56:6ea03cce1175 182 Enabley = 0;
jessekaiser 56:6ea03cce1175 183 }
jessekaiser 56:6ea03cce1175 184
jessekaiser 56:6ea03cce1175 185 }
jessekaiser 56:6ea03cce1175 186
jessekaiser 56:6ea03cce1175 187 void looper_motorx()
jessekaiser 56:6ea03cce1175 188 {
jessekaiser 56:6ea03cce1175 189 //To the left
jessekaiser 56:6ea03cce1175 190 force3 = K_Gain*(filtered_pect/MAX_pect);
jessekaiser 56:6ea03cce1175 191 force3 = force3 - damping3;
jessekaiser 56:6ea03cce1175 192 acc3 = force3/Mass;
jessekaiser 56:6ea03cce1175 193 speed3 = speed_old3 + (acc3 * dt);
jessekaiser 56:6ea03cce1175 194 damping3 = speed3 * Damp;
jessekaiser 56:6ea03cce1175 195 step_freq3 = (setpoint*speed3);
jessekaiser 56:6ea03cce1175 196 speed_old3 = speed3;
jessekaiser 56:6ea03cce1175 197
jessekaiser 56:6ea03cce1175 198 //To the right
jessekaiser 56:6ea03cce1175 199 force4 = K_Gain*(filtered_deltoid/MAX_delt);
jessekaiser 56:6ea03cce1175 200 force4 = force4 - damping4;
jessekaiser 56:6ea03cce1175 201 acc4 = force4/Mass;
jessekaiser 56:6ea03cce1175 202 speed4 = speed_old4 + (acc4 * dt);
jessekaiser 56:6ea03cce1175 203 damping4 = speed4 * Damp;
jessekaiser 56:6ea03cce1175 204 step_freq4 = (setpoint*speed4);
jessekaiser 56:6ea03cce1175 205 speed_old4 = speed4;
jessekaiser 56:6ea03cce1175 206
jessekaiser 56:6ea03cce1175 207 if (force3 > force4) {
jessekaiser 56:6ea03cce1175 208 Dirx = 0;
jessekaiser 56:6ea03cce1175 209 speed4 = 0.01;
jessekaiser 56:6ea03cce1175 210 speed_old4 = 0.01;
jessekaiser 56:6ea03cce1175 211 Stepx.period(1.0/step_freq3);
jessekaiser 56:6ea03cce1175 212 }
jessekaiser 56:6ea03cce1175 213 if (force4 > force3) {
jessekaiser 56:6ea03cce1175 214 Dirx = 1;
jessekaiser 56:6ea03cce1175 215 speed3 = 0.01;
jessekaiser 56:6ea03cce1175 216 speed_old3 = 0.01;
jessekaiser 56:6ea03cce1175 217 Stepx.period(1.0/step_freq4);
jessekaiser 56:6ea03cce1175 218 }
jessekaiser 56:6ea03cce1175 219 //Speed limit
jessekaiser 56:6ea03cce1175 220 if (speed3 > 1) {
jessekaiser 56:6ea03cce1175 221 speed3 = 1;
jessekaiser 56:6ea03cce1175 222 step_freq3 = setpoint;
jessekaiser 56:6ea03cce1175 223 }
jessekaiser 56:6ea03cce1175 224 if (speed4 > 1) {
jessekaiser 56:6ea03cce1175 225 speed4 = 1;
jessekaiser 56:6ea03cce1175 226 step_freq4 = setpoint;
jessekaiser 56:6ea03cce1175 227 }
jessekaiser 56:6ea03cce1175 228 //EMG treshold
jessekaiser 56:6ea03cce1175 229 if (filtered_pect < EMG_tresh && filtered_deltoid < EMG_tresh) {
jessekaiser 56:6ea03cce1175 230 Enablex = 1; //Enable = 1 turns the motor off.
jessekaiser 56:6ea03cce1175 231 speed3 = 0.01;
jessekaiser 56:6ea03cce1175 232 speed_old3 = 0.01;
jessekaiser 56:6ea03cce1175 233 speed4 = 0.01;
jessekaiser 56:6ea03cce1175 234 speed_old4 = 0.01;
jessekaiser 56:6ea03cce1175 235 } else {
jessekaiser 56:6ea03cce1175 236 Enablex = 0;
jessekaiser 56:6ea03cce1175 237 }
jessekaiser 56:6ea03cce1175 238
jessekaiser 56:6ea03cce1175 239 }
jessekaiser 41:a666a531d52e 240 int main()
jessekaiser 41:a666a531d52e 241 {
jessekaiser 56:6ea03cce1175 242 // Attach the HIDScope::send method from the scope object to the timer at 500Hz. Hier wordt de sample freq aangegeven.
jessekaiser 56:6ea03cce1175 243 scopeTimer.attach_us(&scope, &HIDScope::send, 2e3);
jessekaiser 56:6ea03cce1175 244
jessekaiser 56:6ea03cce1175 245 Ticker emgtimer; //biceps
jessekaiser 56:6ea03cce1175 246 arm_biquad_cascade_df1_init_f32(&lowpass_biceps, 1 , lowpass_const, lowpass_biceps_states);
jessekaiser 56:6ea03cce1175 247 arm_biquad_cascade_df1_init_f32(&highnotch_biceps, 2 , highnotch_const, highnotch_biceps_states);
jessekaiser 56:6ea03cce1175 248 //triceps
jessekaiser 56:6ea03cce1175 249 arm_biquad_cascade_df1_init_f32(&lowpass_triceps, 1 , lowpass_const, lowpass_triceps_states);
jessekaiser 56:6ea03cce1175 250 arm_biquad_cascade_df1_init_f32(&highnotch_triceps, 2 , highnotch_const, highnotch_triceps_states);
jessekaiser 56:6ea03cce1175 251 //pectoralis major
jessekaiser 56:6ea03cce1175 252 arm_biquad_cascade_df1_init_f32(&lowpass_pect, 1 , lowpass_const, lowpass_pect_states);
jessekaiser 56:6ea03cce1175 253 arm_biquad_cascade_df1_init_f32(&highnotch_pect, 2 , highnotch_const, highnotch_pect_states);
jessekaiser 56:6ea03cce1175 254 //deltoid
jessekaiser 56:6ea03cce1175 255 arm_biquad_cascade_df1_init_f32(&lowpass_deltoid, 1 , lowpass_const, lowpass_deltoid_states);
jessekaiser 56:6ea03cce1175 256 arm_biquad_cascade_df1_init_f32(&highnotch_deltoid, 2 , highnotch_const, highnotch_deltoid_states);
jessekaiser 56:6ea03cce1175 257 emgtimer.attach(looper_emg, 0.01);
jessekaiser 56:6ea03cce1175 258
jessekaiser 56:6ea03cce1175 259 Ticker looptimer1;
jessekaiser 56:6ea03cce1175 260 looptimer1.attach(looper_motorx, 0.01); //X-Spindle motor, why this freq?
jessekaiser 56:6ea03cce1175 261
jessekaiser 56:6ea03cce1175 262 Ticker looptimer2;
jessekaiser 56:6ea03cce1175 263 looptimer2.attach(looper_motory, 0.01); //Y-Spindle motor
jessekaiser 56:6ea03cce1175 264
jessekaiser 56:6ea03cce1175 265 //Microstepping control, now configured as half stepping (MS1=1,MS2=0,MS3=0)
jessekaiser 44:d5aa53e4778c 266 MS1 = 1;
jessekaiser 45:f5d74c7f8fbf 267 MS2 = 0;
jessekaiser 44:d5aa53e4778c 268 MS3 = 0;
jessekaiser 56:6ea03cce1175 269 Stepx.write(0.5); // Duty cycle of 50%
jessekaiser 56:6ea03cce1175 270 Stepy.write(0.5);
jessekaiser 55:fa6d5ee5c854 271
jessekaiser 44:d5aa53e4778c 272 while (1) {
jessekaiser 54:abb7f76a0473 273
jessekaiser 56:6ea03cce1175 274 lcd.printf("x %.2f, y %.2f \n", Posx.read(), Posy.read());
jessekaiser 56:6ea03cce1175 275 //lcd.printf("%.2f, %.2f \n", filtered_biceps, filtered_triceps); //Filtered EMG values
jessekaiser 56:6ea03cce1175 276 //lcd.printf("1 %.0f, 2 %.0f, 3 %.0f, 4 %.0f \n", step_freq1, step_freq2, step_freq3, step_freq4); //step_freq value of every EMG sensor
jessekaiser 56:6ea03cce1175 277 wait(0.01);
jessekaiser 0:3acdd563582f 278 }
jessekaiser 56:6ea03cce1175 279 }