dd
Dependencies: BufferedSerial FastAnalogIn FastPWM mbed SHT75
controlt.cpp@2:4c51394fb35b, 2016-03-02 (annotated)
- Committer:
- sbh9428
- Date:
- Wed Mar 02 16:33:23 2016 +0000
- Revision:
- 2:4c51394fb35b
- Parent:
- 1:5c42ec7f1aeb
- Child:
- 3:72644690e2e6
00;
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
sbh9428 | 0:9bfc4aea91e2 | 1 | /* |
sbh9428 | 0:9bfc4aea91e2 | 2 | * controlt.cpp |
sbh9428 | 0:9bfc4aea91e2 | 3 | * |
sbh9428 | 0:9bfc4aea91e2 | 4 | * Created on: 2016. 2. 19. |
sbh9428 | 0:9bfc4aea91e2 | 5 | * Author: sbh9428 |
sbh9428 | 0:9bfc4aea91e2 | 6 | */ |
sbh9428 | 0:9bfc4aea91e2 | 7 | |
sbh9428 | 0:9bfc4aea91e2 | 8 | #include "controlt.h" |
sbh9428 | 0:9bfc4aea91e2 | 9 | |
sbh9428 | 0:9bfc4aea91e2 | 10 | control_t::control_t() { |
sbh9428 | 0:9bfc4aea91e2 | 11 | // TODO Auto-generated constructor stub |
sbh9428 | 0:9bfc4aea91e2 | 12 | |
sbh9428 | 0:9bfc4aea91e2 | 13 | } |
sbh9428 | 0:9bfc4aea91e2 | 14 | |
sbh9428 | 2:4c51394fb35b | 15 | control_t::control_t(temp_sensor_t* _temp_sensor, peltier_t* _peltier,BufferedSerial *_pc) |
sbh9428 | 0:9bfc4aea91e2 | 16 | { |
sbh9428 | 1:5c42ec7f1aeb | 17 | log_count=0; |
sbh9428 | 1:5c42ec7f1aeb | 18 | |
sbh9428 | 1:5c42ec7f1aeb | 19 | target_temp=15; |
sbh9428 | 1:5c42ec7f1aeb | 20 | P_value=0; |
sbh9428 | 1:5c42ec7f1aeb | 21 | I_value=0; |
sbh9428 | 1:5c42ec7f1aeb | 22 | D_value=0; |
sbh9428 | 1:5c42ec7f1aeb | 23 | |
sbh9428 | 0:9bfc4aea91e2 | 24 | temp_sensor=_temp_sensor; |
sbh9428 | 0:9bfc4aea91e2 | 25 | peltier=_peltier; |
sbh9428 | 2:4c51394fb35b | 26 | pc=_pc; |
sbh9428 | 2:4c51394fb35b | 27 | |
sbh9428 | 2:4c51394fb35b | 28 | table_count=0; |
sbh9428 | 2:4c51394fb35b | 29 | table_mode=0; |
sbh9428 | 0:9bfc4aea91e2 | 30 | } |
sbh9428 | 0:9bfc4aea91e2 | 31 | |
sbh9428 | 0:9bfc4aea91e2 | 32 | control_t::~control_t() { |
sbh9428 | 0:9bfc4aea91e2 | 33 | // TODO Auto-generated destructor stub |
sbh9428 | 0:9bfc4aea91e2 | 34 | } |
sbh9428 | 0:9bfc4aea91e2 | 35 | |
sbh9428 | 0:9bfc4aea91e2 | 36 | float control_t::get_temp() |
sbh9428 | 0:9bfc4aea91e2 | 37 | { |
sbh9428 | 0:9bfc4aea91e2 | 38 | return temp_sensor->get_temp(); |
sbh9428 | 0:9bfc4aea91e2 | 39 | } |
sbh9428 | 0:9bfc4aea91e2 | 40 | |
sbh9428 | 0:9bfc4aea91e2 | 41 | void control_t::control_PWM(float PWM) |
sbh9428 | 0:9bfc4aea91e2 | 42 | { |
sbh9428 | 0:9bfc4aea91e2 | 43 | peltier->set_PWM(PWM); |
sbh9428 | 0:9bfc4aea91e2 | 44 | } |
sbh9428 | 0:9bfc4aea91e2 | 45 | |
sbh9428 | 0:9bfc4aea91e2 | 46 | void control_t::control_temp() |
sbh9428 | 0:9bfc4aea91e2 | 47 | { |
sbh9428 | 1:5c42ec7f1aeb | 48 | PWM_value+=calc_P(); |
sbh9428 | 0:9bfc4aea91e2 | 49 | |
sbh9428 | 1:5c42ec7f1aeb | 50 | PWM_value+=calc_I(); |
sbh9428 | 0:9bfc4aea91e2 | 51 | |
sbh9428 | 1:5c42ec7f1aeb | 52 | PWM_value+=calc_D(); |
sbh9428 | 1:5c42ec7f1aeb | 53 | |
sbh9428 | 1:5c42ec7f1aeb | 54 | if(PWM_value>1) |
sbh9428 | 1:5c42ec7f1aeb | 55 | { |
sbh9428 | 1:5c42ec7f1aeb | 56 | PWM_value=1; |
sbh9428 | 1:5c42ec7f1aeb | 57 | } |
sbh9428 | 1:5c42ec7f1aeb | 58 | if(PWM_value<-1) |
sbh9428 | 1:5c42ec7f1aeb | 59 | { |
sbh9428 | 1:5c42ec7f1aeb | 60 | PWM_value=-1; |
sbh9428 | 1:5c42ec7f1aeb | 61 | } |
sbh9428 | 1:5c42ec7f1aeb | 62 | peltier->set_PWM(PWM_value); |
sbh9428 | 0:9bfc4aea91e2 | 63 | } |
sbh9428 | 0:9bfc4aea91e2 | 64 | |
sbh9428 | 0:9bfc4aea91e2 | 65 | void control_t::set_mode(int _mode) |
sbh9428 | 0:9bfc4aea91e2 | 66 | { |
sbh9428 | 0:9bfc4aea91e2 | 67 | mode=_mode; |
sbh9428 | 1:5c42ec7f1aeb | 68 | } |
sbh9428 | 1:5c42ec7f1aeb | 69 | |
sbh9428 | 1:5c42ec7f1aeb | 70 | void control_t::set_PWM_value(float _PWM_value) |
sbh9428 | 1:5c42ec7f1aeb | 71 | { |
sbh9428 | 1:5c42ec7f1aeb | 72 | PWM_value=_PWM_value; |
sbh9428 | 1:5c42ec7f1aeb | 73 | } |
sbh9428 | 1:5c42ec7f1aeb | 74 | |
sbh9428 | 1:5c42ec7f1aeb | 75 | void control_t::set_target_temp(float _target_temp) |
sbh9428 | 1:5c42ec7f1aeb | 76 | { |
sbh9428 | 1:5c42ec7f1aeb | 77 | target_temp=_target_temp; |
sbh9428 | 1:5c42ec7f1aeb | 78 | } |
sbh9428 | 1:5c42ec7f1aeb | 79 | |
sbh9428 | 1:5c42ec7f1aeb | 80 | void control_t::set_P_value(float _P_value) |
sbh9428 | 1:5c42ec7f1aeb | 81 | { |
sbh9428 | 1:5c42ec7f1aeb | 82 | P_value=_P_value; |
sbh9428 | 1:5c42ec7f1aeb | 83 | } |
sbh9428 | 1:5c42ec7f1aeb | 84 | |
sbh9428 | 1:5c42ec7f1aeb | 85 | void control_t::set_I_value(float _I_value) |
sbh9428 | 1:5c42ec7f1aeb | 86 | { |
sbh9428 | 1:5c42ec7f1aeb | 87 | I_value=_I_value; |
sbh9428 | 1:5c42ec7f1aeb | 88 | } |
sbh9428 | 1:5c42ec7f1aeb | 89 | |
sbh9428 | 1:5c42ec7f1aeb | 90 | void control_t::set_D_value(float _D_value) |
sbh9428 | 1:5c42ec7f1aeb | 91 | { |
sbh9428 | 1:5c42ec7f1aeb | 92 | D_value=_D_value; |
sbh9428 | 1:5c42ec7f1aeb | 93 | } |
sbh9428 | 1:5c42ec7f1aeb | 94 | |
sbh9428 | 1:5c42ec7f1aeb | 95 | void control_t::refresh_PWM() |
sbh9428 | 1:5c42ec7f1aeb | 96 | { |
sbh9428 | 1:5c42ec7f1aeb | 97 | write_log(); |
sbh9428 | 1:5c42ec7f1aeb | 98 | if(mode==0) |
sbh9428 | 1:5c42ec7f1aeb | 99 | { |
sbh9428 | 1:5c42ec7f1aeb | 100 | PWM_value=0; |
sbh9428 | 1:5c42ec7f1aeb | 101 | control_PWM(0); |
sbh9428 | 1:5c42ec7f1aeb | 102 | } |
sbh9428 | 1:5c42ec7f1aeb | 103 | else if(mode==1) |
sbh9428 | 1:5c42ec7f1aeb | 104 | { |
sbh9428 | 1:5c42ec7f1aeb | 105 | } |
sbh9428 | 1:5c42ec7f1aeb | 106 | else if(mode==2) |
sbh9428 | 1:5c42ec7f1aeb | 107 | { |
sbh9428 | 1:5c42ec7f1aeb | 108 | control_temp(); |
sbh9428 | 1:5c42ec7f1aeb | 109 | } |
sbh9428 | 2:4c51394fb35b | 110 | else if(mode==3) |
sbh9428 | 2:4c51394fb35b | 111 | { |
sbh9428 | 2:4c51394fb35b | 112 | build_table(); |
sbh9428 | 2:4c51394fb35b | 113 | } |
sbh9428 | 1:5c42ec7f1aeb | 114 | } |
sbh9428 | 1:5c42ec7f1aeb | 115 | |
sbh9428 | 1:5c42ec7f1aeb | 116 | int control_t::get_mode() |
sbh9428 | 1:5c42ec7f1aeb | 117 | { |
sbh9428 | 1:5c42ec7f1aeb | 118 | return mode; |
sbh9428 | 1:5c42ec7f1aeb | 119 | } |
sbh9428 | 1:5c42ec7f1aeb | 120 | float control_t::get_target_temp() |
sbh9428 | 1:5c42ec7f1aeb | 121 | { |
sbh9428 | 1:5c42ec7f1aeb | 122 | return target_temp; |
sbh9428 | 1:5c42ec7f1aeb | 123 | } |
sbh9428 | 1:5c42ec7f1aeb | 124 | float control_t::get_P_value() |
sbh9428 | 1:5c42ec7f1aeb | 125 | { |
sbh9428 | 1:5c42ec7f1aeb | 126 | return P_value; |
sbh9428 | 1:5c42ec7f1aeb | 127 | } |
sbh9428 | 1:5c42ec7f1aeb | 128 | float control_t::get_I_value() |
sbh9428 | 1:5c42ec7f1aeb | 129 | { |
sbh9428 | 1:5c42ec7f1aeb | 130 | return I_value; |
sbh9428 | 1:5c42ec7f1aeb | 131 | } |
sbh9428 | 1:5c42ec7f1aeb | 132 | float control_t::get_D_value() |
sbh9428 | 1:5c42ec7f1aeb | 133 | { |
sbh9428 | 1:5c42ec7f1aeb | 134 | return D_value; |
sbh9428 | 1:5c42ec7f1aeb | 135 | } |
sbh9428 | 1:5c42ec7f1aeb | 136 | float control_t::get_PWM_value() |
sbh9428 | 1:5c42ec7f1aeb | 137 | { |
sbh9428 | 1:5c42ec7f1aeb | 138 | return PWM_value; |
sbh9428 | 1:5c42ec7f1aeb | 139 | } |
sbh9428 | 1:5c42ec7f1aeb | 140 | |
sbh9428 | 2:4c51394fb35b | 141 | int control_t::get_table_count() |
sbh9428 | 2:4c51394fb35b | 142 | { |
sbh9428 | 2:4c51394fb35b | 143 | return table_count; |
sbh9428 | 2:4c51394fb35b | 144 | } |
sbh9428 | 2:4c51394fb35b | 145 | |
sbh9428 | 1:5c42ec7f1aeb | 146 | float control_t::calc_P() |
sbh9428 | 1:5c42ec7f1aeb | 147 | { |
sbh9428 | 1:5c42ec7f1aeb | 148 | return (target_temp-temp_sensor->get_temp())*P_value; |
sbh9428 | 1:5c42ec7f1aeb | 149 | } |
sbh9428 | 1:5c42ec7f1aeb | 150 | |
sbh9428 | 1:5c42ec7f1aeb | 151 | float control_t::calc_I() |
sbh9428 | 1:5c42ec7f1aeb | 152 | { |
sbh9428 | 1:5c42ec7f1aeb | 153 | float data=0; |
sbh9428 | 1:5c42ec7f1aeb | 154 | for(int i=0;i<10;i++) |
sbh9428 | 1:5c42ec7f1aeb | 155 | { |
sbh9428 | 2:4c51394fb35b | 156 | data+=PWM_log[i]; |
sbh9428 | 1:5c42ec7f1aeb | 157 | } |
sbh9428 | 1:5c42ec7f1aeb | 158 | return data*I_value; |
sbh9428 | 1:5c42ec7f1aeb | 159 | } |
sbh9428 | 1:5c42ec7f1aeb | 160 | |
sbh9428 | 1:5c42ec7f1aeb | 161 | float control_t::calc_D() |
sbh9428 | 1:5c42ec7f1aeb | 162 | { |
sbh9428 | 1:5c42ec7f1aeb | 163 | return -(temp_log[log_count]-temp_log[(log_count-1)%10])*D_value; |
sbh9428 | 1:5c42ec7f1aeb | 164 | } |
sbh9428 | 1:5c42ec7f1aeb | 165 | |
sbh9428 | 1:5c42ec7f1aeb | 166 | void control_t::write_log() |
sbh9428 | 1:5c42ec7f1aeb | 167 | { |
sbh9428 | 1:5c42ec7f1aeb | 168 | log_count++; |
sbh9428 | 1:5c42ec7f1aeb | 169 | log_count=log_count%10; |
sbh9428 | 1:5c42ec7f1aeb | 170 | temp_log[log_count]=temp_sensor->get_temp(); |
sbh9428 | 2:4c51394fb35b | 171 | PWM_log[log_count]=target_temp-temp_sensor->get_temp(); |
sbh9428 | 2:4c51394fb35b | 172 | } |
sbh9428 | 2:4c51394fb35b | 173 | |
sbh9428 | 2:4c51394fb35b | 174 | void control_t::build_table() |
sbh9428 | 2:4c51394fb35b | 175 | { |
sbh9428 | 2:4c51394fb35b | 176 | if(table_mode==0) |
sbh9428 | 2:4c51394fb35b | 177 | { |
sbh9428 | 2:4c51394fb35b | 178 | peltier->set_PWM(-1); |
sbh9428 | 2:4c51394fb35b | 179 | table_count++; |
sbh9428 | 2:4c51394fb35b | 180 | if(table_count>50) |
sbh9428 | 2:4c51394fb35b | 181 | { |
sbh9428 | 2:4c51394fb35b | 182 | table_mode=1; |
sbh9428 | 2:4c51394fb35b | 183 | table_count=0; |
sbh9428 | 2:4c51394fb35b | 184 | } |
sbh9428 | 2:4c51394fb35b | 185 | pc->printf("set initial temp %d/50 PWM is %f\n", table_count); |
sbh9428 | 2:4c51394fb35b | 186 | } |
sbh9428 | 2:4c51394fb35b | 187 | else |
sbh9428 | 2:4c51394fb35b | 188 | { |
sbh9428 | 2:4c51394fb35b | 189 | table[table_count]=temp_sensor->get_temp(); |
sbh9428 | 2:4c51394fb35b | 190 | table_count++; |
sbh9428 | 2:4c51394fb35b | 191 | peltier->set_PWM((float)-1+0.005*table_count); |
sbh9428 | 2:4c51394fb35b | 192 | if(table_count>=200) |
sbh9428 | 2:4c51394fb35b | 193 | mode=0; |
sbh9428 | 2:4c51394fb35b | 194 | pc->printf("build table %d/200, temp is %2.2f", table_count, temp_sensor->get_temp()); |
sbh9428 | 2:4c51394fb35b | 195 | } |
sbh9428 | 2:4c51394fb35b | 196 | } |
sbh9428 | 2:4c51394fb35b | 197 | |
sbh9428 | 2:4c51394fb35b | 198 | void control_t::print_table() |
sbh9428 | 2:4c51394fb35b | 199 | { |
sbh9428 | 2:4c51394fb35b | 200 | int i; |
sbh9428 | 2:4c51394fb35b | 201 | for(i=0;i<201;i++) |
sbh9428 | 2:4c51394fb35b | 202 | { |
sbh9428 | 2:4c51394fb35b | 203 | pc->printf("PWM: %3.1f, temp is %2.2f\n", (-1+0.005*i), table[i]); |
sbh9428 | 2:4c51394fb35b | 204 | } |
sbh9428 | 0:9bfc4aea91e2 | 205 | } |