Volckens Group Sensors / UPAS_BLE_SD_iOS

Code supports writing to the SD card as well as working with the Volckens group smartphone apps for the mbed HRM1017

Dependencies:   ADS1115 BLE_API BME280 Calibration CronoDot EEPROM LSM303 MCP40D17 NCP5623BMUTBG SDFileSystem SI1145 STC3100 mbed nRF51822

Fork of UPAS_BLE_and_USB by Volckens Group Sensors

main.cpp@50:dddf01867e85, 2015-06-12 (annotated)

Committer:
lionberg
Date:
Fri Jun 12 02:53:12 2015 +0000
Revision:
50:dddf01867e85
Parent:
42:fc2f2b9f07ae 
still contains RTCtime errors on lines 112 and 122

Who changed what in which revision?

UserRevisionLine numberNew contents of line
caseyquinn 0:14d46ef4b6cb 1 #include "mbed.h"
caseyquinn 0:14d46ef4b6cb 2 #include "SDFileSystem.h"
caseyquinn 0:14d46ef4b6cb 3 #include "Adafruit_ADS1015.h"
caseyquinn 1:37babeb68ab9 4 #include "MCP40D17.h"
caseyquinn 7:a24d7156bc02 5 #include "STC3100.h"
caseyquinn 10:f9cb61b29340 6 #include "LSM303.h"
caseyquinn 12:8c00a7f5d483 7 #include "BME280.h"
caseyquinn 14:ad550174db8b 8 #include "SI1145.h"
joshuasmth04 40:ef7e1dcb3780 9 #include "NCP5623BMUTBG.h"
joshuasmth04 41:1fb3e0ac6f87 10 #include "CronoDot.h"
caseyquinn 1:37babeb68ab9 11
caseyquinn 1:37babeb68ab9 12 #define SERIAL_BAUD_RATE 9600
joshuasmth04 41:1fb3e0ac6f87 13 #define SCL 20
caseyquinn 7:a24d7156bc02 14 #define SDA 22
lionberg 37:838824df3f5f 15 #define Crono 0xD0 //D0 for the chronoDot
caseyquinn 0:14d46ef4b6cb 16
caseyquinn 0:14d46ef4b6cb 17 I2C i2c(p22, p20);
caseyquinn 0:14d46ef4b6cb 18 Adafruit_ADS1115 ads(&i2c);
caseyquinn 1:37babeb68ab9 19 MCP40D17 DigPot(&i2c);
caseyquinn 12:8c00a7f5d483 20 BME280 bmesensor(p22, p20);
caseyquinn 7:a24d7156bc02 21 STC3100 gasG(p22, p20);
caseyquinn 2:e596e685eb39 22 Serial pc(USBTX, USBRX);
caseyquinn 8:204c21adf693 23 DigitalOut blower(p29, 0);
caseyquinn 17:1baf7cab694e 24 DigitalOut pbKill(p18, 1);
caseyquinn 10:f9cb61b29340 25 LSM303 movementsensor(p22, p20);
caseyquinn 14:ad550174db8b 26 SI1145 lightsensor(p22, p20);
joshuasmth04 40:ef7e1dcb3780 27 NCP5623BMUTBG RGB_LED(p22, p20);
joshuasmth04 41:1fb3e0ac6f87 28 CronoDot RTC(p22, p20);
caseyquinn 0:14d46ef4b6cb 29
caseyquinn 20:ad9883973d86 30 float press;
caseyquinn 20:ad9883973d86 31 float temp;
caseyquinn 20:ad9883973d86 32 float rh;
caseyquinn 4:69bd7e8a994c 33
caseyquinn 20:ad9883973d86 34 int uv;
caseyquinn 20:ad9883973d86 35 int vis;
caseyquinn 20:ad9883973d86 36 int ir;
caseyquinn 8:204c21adf693 37
caseyquinn 10:f9cb61b29340 38 float accel_x;
caseyquinn 10:f9cb61b29340 39 float accel_y;
caseyquinn 10:f9cb61b29340 40 float accel_z;
caseyquinn 10:f9cb61b29340 41 float mag_x;
caseyquinn 10:f9cb61b29340 42 float mag_y;
caseyquinn 10:f9cb61b29340 43 float mag_z;
caseyquinn 10:f9cb61b29340 44
caseyquinn 20:ad9883973d86 45
caseyquinn 0:14d46ef4b6cb 46 int vInReading;
caseyquinn 0:14d46ef4b6cb 47 int vBlowerReading;
caseyquinn 0:14d46ef4b6cb 48 int omronDiff;
caseyquinn 20:ad9883973d86 49
caseyquinn 20:ad9883973d86 50 int omronReading;
caseyquinn 20:ad9883973d86 51 float omronVolt; //V
caseyquinn 20:ad9883973d86 52 float atmoRho; //g/L
caseyquinn 42:fc2f2b9f07ae 53 float MF0 = 7.8618;
caseyquinn 42:fc2f2b9f07ae 54 float MF1 = -33.538;
caseyquinn 42:fc2f2b9f07ae 55 float MF2 = 53.545;
caseyquinn 42:fc2f2b9f07ae 56 float MF3 = -34.801;
caseyquinn 42:fc2f2b9f07ae 57 float MF4 = 8.3314;
caseyquinn 20:ad9883973d86 58 float massflow; //g/min
caseyquinn 20:ad9883973d86 59 float volflow; //L/min
caseyquinn 20:ad9883973d86 60 float volflowSet = 1.0; //L/min
joshuasmth04 41:1fb3e0ac6f87 61 float massflowSet;
caseyquinn 42:fc2f2b9f07ae 62 float deltaVflow = 0.0;
caseyquinn 42:fc2f2b9f07ae 63 float deltaMflow = 0.0;
caseyquinn 42:fc2f2b9f07ae 64 float gainFlow = 0.5;
lionberg 50:dddf01867e85 65 float digital_pot_maxflow = 2;
lionberg 50:dddf01867e85 66 float digital_pot_minflow = 127;
lionberg 50:dddf01867e85 67 float delta_tol = 0.05;
caseyquinn 20:ad9883973d86 68
lionberg 50:dddf01867e85 69 float digital_pot_startpoint = 75;
caseyquinn 22:8dd7e0d4c21c 70 int digital_pot_setpoint; //min = 0x7F, max = 0x00
caseyquinn 42:fc2f2b9f07ae 71 int digital_pot_setpointCK;
caseyquinn 42:fc2f2b9f07ae 72 int digital_pot_delta;
lionberg 50:dddf01867e85 73 float t_controlstep = 1;
caseyquinn 42:fc2f2b9f07ae 74 float DP0 = 285.74;
caseyquinn 42:fc2f2b9f07ae 75 float DP1 = -461.55;
caseyquinn 42:fc2f2b9f07ae 76 float DP2 = 352.54;
caseyquinn 42:fc2f2b9f07ae 77 float DP3 = -133.93;
caseyquinn 42:fc2f2b9f07ae 78 float DP4 = 19.476;
caseyquinn 42:fc2f2b9f07ae 79
lionberg 37:838824df3f5f 80 char filename[] = "/sd/UPAS0010LOG000000000000.txt";
caseyquinn 7:a24d7156bc02 81 SDFileSystem sd(SPIS_PSELMOSI, SPIS_PSELMISO, SPIS_PSELSCK, SPIS_PSELSS, "sd"); // I believe this matches Todd's pinout, let me know if this doesn't work. (p12, p13, p15, p14)
caseyquinn 7:a24d7156bc02 82
joshuasmth04 41:1fb3e0ac6f87 83 char Seconds = 0; //Seconds
joshuasmth04 41:1fb3e0ac6f87 84 char Minutes = 0; //Minutes
joshuasmth04 41:1fb3e0ac6f87 85 char Hour = 0; //Hour
joshuasmth04 41:1fb3e0ac6f87 86 char Date = 0; //Date
joshuasmth04 41:1fb3e0ac6f87 87 char Month = 0; //Month
joshuasmth04 41:1fb3e0ac6f87 88 char Year = 0; //Year
caseyquinn 7:a24d7156bc02 89
joshuasmth04 41:1fb3e0ac6f87 90 double secondsD = 0;
joshuasmth04 41:1fb3e0ac6f87 91 char * RTCtime;
caseyquinn 20:ad9883973d86 92
joshuasmth04 41:1fb3e0ac6f87 93
caseyquinn 0:14d46ef4b6cb 94 int main()
caseyquinn 0:14d46ef4b6cb 95 {
joshuasmth04 40:ef7e1dcb3780 96 RGB_LED.set_led(1,1,1);
caseyquinn 22:8dd7e0d4c21c 97 press = bmesensor.getPressure();
caseyquinn 22:8dd7e0d4c21c 98 temp = bmesensor.getTemperature();
caseyquinn 22:8dd7e0d4c21c 99 rh = bmesensor.getHumidity();
joshuasmth04 41:1fb3e0ac6f87 100
caseyquinn 22:8dd7e0d4c21c 101 atmoRho = ((press-((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)))*100)/(287.0531*(temp+273.15))+((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)*100)/(461.4964*(temp+273.15));
caseyquinn 22:8dd7e0d4c21c 102 massflowSet = volflowSet*atmoRho;
lionberg 26:9cf8e76d8274 103 //Digtal pot tf from file: UPAS v2 OSU-PrimaryFlowData FullSet 2015-05-29 CQ mods.xlsx
lionberg 50:dddf01867e85 104 //digital_pot_setpoint = (int)floor(DP4*pow(massflowSet,4)+DP3*pow(massflowSet,3)+DP2*pow(massflowSet,2)+DP1*massflowSet+DP0); //min = 0x7F, max = 0x00
lionberg 50:dddf01867e85 105 digital_pot_setpoint = digital_pot_startpoint;
joshuasmth04 35:bd978e6ccd82 106
joshuasmth04 41:1fb3e0ac6f87 107 DigPot.writeRegister(digital_pot_setpoint);
joshuasmth04 41:1fb3e0ac6f87 108 wait(1);
joshuasmth04 41:1fb3e0ac6f87 109 blower = 1;
lionberg 50:dddf01867e85 110 wait(1);
joshuasmth04 41:1fb3e0ac6f87 111
joshuasmth04 41:1fb3e0ac6f87 112 RTCtime = RTC.get_time();
joshuasmth04 41:1fb3e0ac6f87 113 sprintf(filename, "/sd/UPAS0010LOG_%02d-%02d-%02d_%02d-%02d-%02d.txt",RTCtime[5],RTCtime[4],RTCtime[3],RTCtime[2],RTCtime[1],RTCtime[0]);
caseyquinn 17:1baf7cab694e 114 FILE *fp = fopen(filename, "w");
caseyquinn 17:1baf7cab694e 115 fclose(fp);
caseyquinn 2:e596e685eb39 116
caseyquinn 42:fc2f2b9f07ae 117 wait(5);
caseyquinn 42:fc2f2b9f07ae 118
joshuasmth04 41:1fb3e0ac6f87 119 while(1) {
joshuasmth04 41:1fb3e0ac6f87 120
joshuasmth04 41:1fb3e0ac6f87 121 RGB_LED.set_led(0,1,0);
joshuasmth04 41:1fb3e0ac6f87 122 RTCtime = RTC.get_time(); // the way the variable RTCtime works you must save the variables in normal chars or weird things happen
joshuasmth04 41:1fb3e0ac6f87 123 Seconds = RTCtime[0];//Seconds
joshuasmth04 41:1fb3e0ac6f87 124 Minutes = RTCtime[1];//Minutes
joshuasmth04 41:1fb3e0ac6f87 125 Hour = RTCtime[2];//Hour
joshuasmth04 41:1fb3e0ac6f87 126 Date = RTCtime[3];//Date
joshuasmth04 41:1fb3e0ac6f87 127 Month = RTCtime[4];//Month
joshuasmth04 41:1fb3e0ac6f87 128 Year = RTCtime[5];//Year
lionberg 37:838824df3f5f 129
joshuasmth04 41:1fb3e0ac6f87 130 secondsD = (double)RTCtime[0];
caseyquinn 42:fc2f2b9f07ae 131
joshuasmth04 41:1fb3e0ac6f87 132 if(fmod(secondsD,10)==0) {
caseyquinn 42:fc2f2b9f07ae 133
caseyquinn 42:fc2f2b9f07ae 134 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
joshuasmth04 41:1fb3e0ac6f87 135 omronVolt = (omronReading*4.096)/(32768*2);
joshuasmth04 41:1fb3e0ac6f87 136
joshuasmth04 41:1fb3e0ac6f87 137 //Mass Flow tf from file: UPAS v2 OSU-PrimaryFlowData FullSet
joshuasmth04 41:1fb3e0ac6f87 138 //UPAS0001=-2.8112*L14^4+15.636*L14^3-30.192*L14^2+25.945*L14-7.6599
joshuasmth04 41:1fb3e0ac6f87 139 //massflow = -2.8112*pow(omronVolt,(float)4)+15.636*pow(omronVolt,(float)3)-30.192*pow(omronVolt,(float)2)+25.945*omronVolt-7.6599;
joshuasmth04 41:1fb3e0ac6f87 140 //UPAS0002=-1.4365*L14^4+8.4231*L14^3-16.754*L14^2+15.071*L14-4.5382
joshuasmth04 41:1fb3e0ac6f87 141 //massflow = -1.4365*pow(omronVolt,(float)4)+8.4231*pow(omronVolt,(float)3)-16.754*pow(omronVolt,(float)2)+15.071*omronVolt-4.5382;
joshuasmth04 41:1fb3e0ac6f87 142 //UPAS0003=-2.7391*L14^4+15.215*L14^3-29.522*L14^2+25.424*L14-7.5516
joshuasmth04 41:1fb3e0ac6f87 143 //massflow = -2.7391*pow(omronVolt,(float)4)+15.215*pow(omronVolt,(float)3)-29.522*pow(omronVolt,(float)2)+25.424*omronVolt-7.5516;
joshuasmth04 41:1fb3e0ac6f87 144 //UPAS0004 =-1.5374*L14^4+9.2898*L14^3-18.894*L14^2+17.112*L14-5.1938
joshuasmth04 41:1fb3e0ac6f87 145 //massflow = -1.5374*pow(omronVolt,(float)4)+9.2898*pow(omronVolt,(float)3)-18.894*pow(omronVolt,(float)2)+17.112*omronVolt-5.1938;
joshuasmth04 41:1fb3e0ac6f87 146 //UPAS0005 =-0.4654*L14^4+3.507*L14^3-7.7254*L14^2+7.8831*L14-2.4317
joshuasmth04 41:1fb3e0ac6f87 147 //massflow = -0.4654*pow(omronVolt,(float)4)+3.507*pow(omronVolt,(float)3)-7.7254*pow(omronVolt,(float)2)+7.8831*omronVolt-2.4317;
joshuasmth04 41:1fb3e0ac6f87 148 //UPAS0006=-0.0507*L14^4+1.2322*L14^3-2.9659*L14^2+3.9118*L14-1.0765
joshuasmth04 41:1fb3e0ac6f87 149 //massflow = -0.0507*pow(omronVolt,(float)4)+1.2322*pow(omronVolt,(float)3)-2.9659*pow(omronVolt,(float)2)+3.9118*omronVolt-1.0765;
joshuasmth04 41:1fb3e0ac6f87 150 //UPAS0007=-1.5303*L14^4+10.411*L14^3-24.002*L14^2+24.321*L14-8.4713
joshuasmth04 41:1fb3e0ac6f87 151 //massflow = -1.5303*pow(omronVolt,(float)4)+10.411*pow(omronVolt,(float)3)-24.002*pow(omronVolt,(float)2)+24.321*omronVolt-8.4713;
joshuasmth04 41:1fb3e0ac6f87 152 //UPAS0008=-1.1291*L14^4+7.701*L14^3-17.501*L14^2+17.754*L14-6.073
joshuasmth04 41:1fb3e0ac6f87 153 //massflow = -1.1291*pow(omronVolt,(float)4)+7.701*pow(omronVolt,(float)3)-17.501*pow(omronVolt,(float)2)+17.754*omronVolt-6.073;
joshuasmth04 41:1fb3e0ac6f87 154 //UPAS0009=-2.662*L14^4+16.421*L14^3-35.797*L14^2+34.579*L14-11.77
joshuasmth04 41:1fb3e0ac6f87 155 //massflow = -2.662*pow(omronVolt,(float)4)+16.421*pow(omronVolt,(float)3)-35.797*pow(omronVolt,(float)2)+34.579*omronVolt-11.77;
joshuasmth04 41:1fb3e0ac6f87 156 //UPAS0010=-3.6933*L14^4+21.633*L14^3-44.694*L14^2+40.387*L14-12.82
caseyquinn 42:fc2f2b9f07ae 157 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
joshuasmth04 41:1fb3e0ac6f87 158 atmoRho = ((press-((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)))*100)/(287.0531*(temp+273.15))+((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)*100)/(461.4964*(temp+273.15));
joshuasmth04 41:1fb3e0ac6f87 159 volflow = massflow/atmoRho;
caseyquinn 42:fc2f2b9f07ae 160 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 161 massflowSet = volflowSet*atmoRho;
lionberg 50:dddf01867e85 162 deltaMflow = massflow-massflowSet;
joshuasmth04 41:1fb3e0ac6f87 163 movementsensor.getACCEL();
joshuasmth04 41:1fb3e0ac6f87 164 movementsensor.getCOMPASS();
joshuasmth04 41:1fb3e0ac6f87 165 accel_x = movementsensor.AccelData.x;
joshuasmth04 41:1fb3e0ac6f87 166 accel_y = movementsensor.AccelData.y;
joshuasmth04 41:1fb3e0ac6f87 167 accel_z = movementsensor.AccelData.z;
joshuasmth04 41:1fb3e0ac6f87 168 mag_x = movementsensor.MagData.x;
joshuasmth04 41:1fb3e0ac6f87 169 mag_y = movementsensor.MagData.y;
joshuasmth04 41:1fb3e0ac6f87 170 mag_z = movementsensor.MagData.z;
caseyquinn 42:fc2f2b9f07ae 171
joshuasmth04 41:1fb3e0ac6f87 172 vInReading = ads.readADC_SingleEnded(1, 0xD583); // read channel 0
joshuasmth04 41:1fb3e0ac6f87 173 vBlowerReading = ads.readADC_SingleEnded(2, 0xE783); // read channel 0
joshuasmth04 41:1fb3e0ac6f87 174 omronDiff = ads.readADC_Differential(0x8583); // differential channel 2-3
joshuasmth04 41:1fb3e0ac6f87 175 press = bmesensor.getPressure();
joshuasmth04 41:1fb3e0ac6f87 176 temp = bmesensor.getTemperature()-5;
joshuasmth04 41:1fb3e0ac6f87 177 rh = bmesensor.getHumidity();
joshuasmth04 41:1fb3e0ac6f87 178 uv = lightsensor.getUV();
joshuasmth04 41:1fb3e0ac6f87 179 vis = lightsensor.getVIS();
joshuasmth04 41:1fb3e0ac6f87 180 ir = lightsensor.getIR();
joshuasmth04 41:1fb3e0ac6f87 181
joshuasmth04 41:1fb3e0ac6f87 182 //Mount the filesystem
joshuasmth04 41:1fb3e0ac6f87 183 sd.mount();
joshuasmth04 41:1fb3e0ac6f87 184 FILE *fp = fopen(filename, "a");
caseyquinn 42:fc2f2b9f07ae 185 fprintf(fp, "%02d,%02d,%02d,%02d,%02d,%02d,%f,%f,%f,%f,%2.2f,%04.2f,%2.2f,%1.4f,%1.4f,%1.4f,%.0f,%.0f,%.0f,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%f,%f,%d\r\n", Year,Month,Date,Hour,Minutes,Seconds,omronVolt,atmoRho,volflow,massflow,temp,press,rh,accel_x, accel_y, accel_z, mag_x, mag_y, mag_z, uv, vis, ir, omronReading,vInReading, vBlowerReading, omronDiff, gasG.getAmps(), gasG.getVolts(), gasG.getCharge(), digital_pot_setpoint,deltaMflow,deltaVflow,digital_pot_delta);
joshuasmth04 41:1fb3e0ac6f87 186 fclose(fp);
joshuasmth04 41:1fb3e0ac6f87 187 //Unmount the filesystem
joshuasmth04 41:1fb3e0ac6f87 188 sd.unmount();
caseyquinn 42:fc2f2b9f07ae 189
lionberg 50:dddf01867e85 190 //omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 191 //omronVolt = (omronReading*4.096)/(32768*2);
caseyquinn 42:fc2f2b9f07ae 192 //Mass Flow tf from file: UPAS v2 OSU-PrimaryFlowData FullSet 2015-05-29 CQ mods.xlsx
lionberg 50:dddf01867e85 193 //massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 194 //digital_pot_setpointCK = (int)floor(DP4*pow(massflow,4)+DP3*pow(massflow,3)+DP2*pow(massflow,2)+DP1*massflow+DP0); //min = 0x7F, max = 0x00
lionberg 50:dddf01867e85 195 //atmoRho = ((press-((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)))*100)/(287.0531*(temp+273.15))+((6.1078*pow((float)10,(float)((7.5*temp)/(237.3+temp))))*(rh/100)*100)/(461.4964*(temp+273.15));
lionberg 50:dddf01867e85 196
caseyquinn 42:fc2f2b9f07ae 197
lionberg 50:dddf01867e85 198 if(deltaVflow>delta_tol*10){
lionberg 50:dddf01867e85 199 digital_pot_setpoint = digital_pot_setpoint+20;
lionberg 50:dddf01867e85 200 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 201 wait(1.5);
lionberg 50:dddf01867e85 202 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 203 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 204 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 205 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 206 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 207 }
lionberg 50:dddf01867e85 208 if(deltaVflow>delta_tol*5){
lionberg 50:dddf01867e85 209 digital_pot_setpoint = digital_pot_setpoint+8;
lionberg 50:dddf01867e85 210 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 211 wait(1);
lionberg 50:dddf01867e85 212 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 213 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 214 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 215 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 216 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 217 }
lionberg 50:dddf01867e85 218 if(deltaVflow>delta_tol*2){
lionberg 50:dddf01867e85 219 digital_pot_setpoint = digital_pot_setpoint+4;
lionberg 50:dddf01867e85 220 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 221 wait(1);
lionberg 50:dddf01867e85 222 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 223 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 224 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 225 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 226 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 227 }
lionberg 50:dddf01867e85 228 if(deltaVflow>delta_tol){
lionberg 50:dddf01867e85 229 digital_pot_setpoint = digital_pot_setpoint+1;
caseyquinn 42:fc2f2b9f07ae 230 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 231 wait(0.5);
lionberg 50:dddf01867e85 232 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 233 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 234 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 235 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 236 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 237 }
lionberg 50:dddf01867e85 238 if(deltaVflow<-delta_tol*10){
lionberg 50:dddf01867e85 239 digital_pot_setpoint = digital_pot_setpoint+20;
lionberg 50:dddf01867e85 240 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 241 wait(1.5);
lionberg 50:dddf01867e85 242 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 243 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 244 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 245 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 246 deltaVflow = volflow-volflowSet;
caseyquinn 42:fc2f2b9f07ae 247 }
lionberg 50:dddf01867e85 248 if(deltaVflow<-delta_tol*5){
lionberg 50:dddf01867e85 249 digital_pot_setpoint = digital_pot_setpoint+8;
lionberg 50:dddf01867e85 250 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 251 wait(1);
lionberg 50:dddf01867e85 252 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 253 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 254 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 255 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 256 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 257 }
lionberg 50:dddf01867e85 258 if(deltaVflow<-delta_tol*2){
lionberg 50:dddf01867e85 259 digital_pot_setpoint = digital_pot_setpoint+4;
lionberg 50:dddf01867e85 260 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 261 wait(1);
lionberg 50:dddf01867e85 262 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 263 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 264 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 265 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 266 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 267 }
lionberg 50:dddf01867e85 268 if(deltaVflow<-delta_tol){
lionberg 50:dddf01867e85 269 digital_pot_setpoint = digital_pot_setpoint+1;
lionberg 50:dddf01867e85 270 DigPot.writeRegister(digital_pot_setpoint);
lionberg 50:dddf01867e85 271 wait(0.5);
lionberg 50:dddf01867e85 272 omronReading = ads.readADC_SingleEnded(0, 0xC583); // read channel 0 PGA = 2 : Full Scale Range = 2.048V
lionberg 50:dddf01867e85 273 omronVolt = (omronReading*4.096)/(32768*2);
lionberg 50:dddf01867e85 274 massflow = MF4*pow(omronVolt,(float)4)+MF3*pow(omronVolt,(float)3)+MF2*pow(omronVolt,(float)2)+MF1*omronVolt+MF0;
lionberg 50:dddf01867e85 275 volflow = massflow/atmoRho;
lionberg 50:dddf01867e85 276 deltaVflow = volflow-volflowSet;
lionberg 50:dddf01867e85 277 }
caseyquinn 34:481403146690 278 }
caseyquinn 0:14d46ef4b6cb 279 }
caseyquinn 0:14d46ef4b6cb 280 }
caseyquinn 0:14d46ef4b6cb 281
caseyquinn 0:14d46ef4b6cb 282