temperature.cpp 88 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954
  1. /*
  2. temperature.c - temperature control
  3. Part of Marlin
  4. Copyright (C) 2011 Camiel Gubbels / Erik van der Zalm
  5. This program is free software: you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation, either version 3 of the License, or
  8. (at your option) any later version.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program. If not, see <http://www.gnu.org/licenses/>.
  15. */
  16. /*
  17. This firmware is a mashup between Sprinter and grbl.
  18. (https://github.com/kliment/Sprinter)
  19. (https://github.com/simen/grbl/tree)
  20. It has preliminary support for Matthew Roberts advance algorithm
  21. http://reprap.org/pipermail/reprap-dev/2011-May/003323.html
  22. */
  23. #include "temperature.h"
  24. #include "stepper.h"
  25. #include "ultralcd.h"
  26. #include "menu.h"
  27. #include "sound.h"
  28. #include "fancheck.h"
  29. #include "messages.h"
  30. #include "language.h"
  31. #include "SdFatUtil.h"
  32. #include <avr/wdt.h>
  33. #include <util/atomic.h>
  34. #include "adc.h"
  35. #include "ConfigurationStore.h"
  36. #include "Timer.h"
  37. #include "Configuration_var.h"
  38. #include "Prusa_farm.h"
  39. #if (ADC_OVRSAMPL != OVERSAMPLENR)
  40. #error "ADC_OVRSAMPL oversampling must match OVERSAMPLENR"
  41. #endif
  42. #ifdef SYSTEM_TIMER_2
  43. #define ENABLE_SOFT_PWM_INTERRUPT() TIMSK2 |= (1<<OCIE2B)
  44. #define DISABLE_SOFT_PWM_INTERRUPT() TIMSK2 &= ~(1<<OCIE2B)
  45. #else //SYSTEM_TIMER_2
  46. #define ENABLE_SOFT_PWM_INTERRUPT() TIMSK0 |= (1<<OCIE0B)
  47. #define DISABLE_SOFT_PWM_INTERRUPT() TIMSK0 &= ~(1<<OCIE0B)
  48. #endif //SYSTEM_TIMER_2
  49. // temperature manager timer configuration
  50. #define TEMP_MGR_INTV 0.27 // seconds, ~3.7Hz
  51. #define TEMP_TIM_PRESCALE 256
  52. #define TEMP_TIM_OCRA_OVF (uint16_t)(TEMP_MGR_INTV / ((long double)TEMP_TIM_PRESCALE / F_CPU))
  53. #define TEMP_TIM_REGNAME(registerbase,number,suffix) _REGNAME(registerbase,number,suffix)
  54. #undef B0 //Necessary hack because of "binary.h" included in "Arduino.h" included in "system_timer.h" included in this file...
  55. #define TCCRxA TEMP_TIM_REGNAME(TCCR, TEMP_TIM, A)
  56. #define TCCRxB TEMP_TIM_REGNAME(TCCR, TEMP_TIM, B)
  57. #define TCCRxC TEMP_TIM_REGNAME(TCCR, TEMP_TIM, C)
  58. #define TCNTx TEMP_TIM_REGNAME(TCNT, TEMP_TIM,)
  59. #define OCRxA TEMP_TIM_REGNAME(OCR, TEMP_TIM, A)
  60. #define TIMSKx TEMP_TIM_REGNAME(TIMSK, TEMP_TIM,)
  61. #define TIFRx TEMP_TIM_REGNAME(TIFR, TEMP_TIM,)
  62. #define TIMERx_COMPA_vect TEMP_TIM_REGNAME(TIMER, TEMP_TIM, _COMPA_vect)
  63. #define CSx0 TEMP_TIM_REGNAME(CS, TEMP_TIM, 0)
  64. #define CSx1 TEMP_TIM_REGNAME(CS, TEMP_TIM, 1)
  65. #define CSx2 TEMP_TIM_REGNAME(CS, TEMP_TIM, 2)
  66. #define WGMx0 TEMP_TIM_REGNAME(WGM, TEMP_TIM, 0)
  67. #define WGMx1 TEMP_TIM_REGNAME(WGM, TEMP_TIM, 1)
  68. #define WGMx2 TEMP_TIM_REGNAME(WGM, TEMP_TIM, 2)
  69. #define WGMx3 TEMP_TIM_REGNAME(WGM, TEMP_TIM, 3)
  70. #define COMxA0 TEMP_TIM_REGNAME(COM, TEMP_TIM, A0)
  71. #define COMxB0 TEMP_TIM_REGNAME(COM, TEMP_TIM, B0)
  72. #define COMxC0 TEMP_TIM_REGNAME(COM, TEMP_TIM, C0)
  73. #define OCIExA TEMP_TIM_REGNAME(OCIE, TEMP_TIM, A)
  74. #define OCFxA TEMP_TIM_REGNAME(OCF, TEMP_TIM, A)
  75. #define TEMP_MGR_INT_FLAG_STATE() (TIFRx & (1<<OCFxA))
  76. #define TEMP_MGR_INT_FLAG_CLEAR() TIFRx |= (1<<OCFxA)
  77. #define TEMP_MGR_INTERRUPT_STATE() (TIMSKx & (1<<OCIExA))
  78. #define ENABLE_TEMP_MGR_INTERRUPT() TIMSKx |= (1<<OCIExA)
  79. #define DISABLE_TEMP_MGR_INTERRUPT() TIMSKx &= ~(1<<OCIExA)
  80. #ifdef TEMP_MODEL
  81. // temperature model interface
  82. #include "temp_model.h"
  83. #endif
  84. #include "Filament_sensor.h"
  85. //===========================================================================
  86. //=============================public variables============================
  87. //===========================================================================
  88. int target_temperature[EXTRUDERS] = { 0 };
  89. int target_temperature_bed = 0;
  90. int current_temperature_raw[EXTRUDERS] = { 0 };
  91. float current_temperature[EXTRUDERS] = { 0.0 };
  92. #ifdef PINDA_THERMISTOR
  93. uint16_t current_temperature_raw_pinda = 0;
  94. float current_temperature_pinda = 0.0;
  95. #endif //PINDA_THERMISTOR
  96. #ifdef AMBIENT_THERMISTOR
  97. int current_temperature_raw_ambient = 0;
  98. float current_temperature_ambient = 0.0;
  99. #endif //AMBIENT_THERMISTOR
  100. #ifdef VOLT_PWR_PIN
  101. int current_voltage_raw_pwr = 0;
  102. #endif
  103. #ifdef VOLT_BED_PIN
  104. int current_voltage_raw_bed = 0;
  105. #endif
  106. int current_temperature_bed_raw = 0;
  107. float current_temperature_bed = 0.0;
  108. #ifdef PIDTEMP
  109. float _Kp, _Ki, _Kd;
  110. int pid_cycle, pid_number_of_cycles;
  111. static bool pid_tuning_finished = true;
  112. bool pidTuningRunning() {
  113. return !pid_tuning_finished;
  114. }
  115. void preparePidTuning() {
  116. // ensure heaters are disabled before we switch off PID management!
  117. disable_heater();
  118. pid_tuning_finished = false;
  119. }
  120. #endif //PIDTEMP
  121. unsigned char soft_pwm_bed;
  122. #ifdef BABYSTEPPING
  123. volatile int babystepsTodo[3]={0,0,0};
  124. #endif
  125. //===========================================================================
  126. //=============================private variables============================
  127. //===========================================================================
  128. static volatile bool temp_meas_ready = false;
  129. #ifdef PIDTEMP
  130. //static cannot be external:
  131. static float iState_sum[EXTRUDERS] = { 0 };
  132. static float dState_last[EXTRUDERS] = { 0 };
  133. static float pTerm[EXTRUDERS];
  134. static float iTerm[EXTRUDERS];
  135. static float dTerm[EXTRUDERS];
  136. static float pid_error[EXTRUDERS];
  137. static float iState_sum_min[EXTRUDERS];
  138. static float iState_sum_max[EXTRUDERS];
  139. static bool pid_reset[EXTRUDERS];
  140. #endif //PIDTEMP
  141. #ifdef PIDTEMPBED
  142. //static cannot be external:
  143. static float temp_iState_bed = { 0 };
  144. static float temp_dState_bed = { 0 };
  145. static float pTerm_bed;
  146. static float iTerm_bed;
  147. static float dTerm_bed;
  148. static float pid_error_bed;
  149. static float temp_iState_min_bed;
  150. static float temp_iState_max_bed;
  151. #else //PIDTEMPBED
  152. static unsigned long previous_millis_bed_heater;
  153. #endif //PIDTEMPBED
  154. static unsigned char soft_pwm[EXTRUDERS];
  155. #ifdef FAN_SOFT_PWM
  156. unsigned char fanSpeedSoftPwm;
  157. static unsigned char soft_pwm_fan;
  158. #endif
  159. uint8_t fanSpeedBckp = 255;
  160. #if EXTRUDERS > 3
  161. # error Unsupported number of extruders
  162. #elif EXTRUDERS > 2
  163. # define ARRAY_BY_EXTRUDERS(v1, v2, v3) { v1, v2, v3 }
  164. #elif EXTRUDERS > 1
  165. # define ARRAY_BY_EXTRUDERS(v1, v2, v3) { v1, v2 }
  166. #else
  167. # define ARRAY_BY_EXTRUDERS(v1, v2, v3) { v1 }
  168. #endif
  169. // Init min and max temp with extreme values to prevent false errors during startup
  170. static int minttemp_raw[EXTRUDERS] = ARRAY_BY_EXTRUDERS( HEATER_0_RAW_LO_TEMP , HEATER_1_RAW_LO_TEMP , HEATER_2_RAW_LO_TEMP );
  171. static int maxttemp_raw[EXTRUDERS] = ARRAY_BY_EXTRUDERS( HEATER_0_RAW_HI_TEMP , HEATER_1_RAW_HI_TEMP , HEATER_2_RAW_HI_TEMP );
  172. static int minttemp[EXTRUDERS] = ARRAY_BY_EXTRUDERS( 0, 0, 0 );
  173. static int maxttemp[EXTRUDERS] = ARRAY_BY_EXTRUDERS( 16383, 16383, 16383 );
  174. #ifdef BED_MINTEMP
  175. static int bed_minttemp_raw = HEATER_BED_RAW_LO_TEMP;
  176. #endif
  177. #ifdef BED_MAXTEMP
  178. static int bed_maxttemp_raw = HEATER_BED_RAW_HI_TEMP;
  179. #endif
  180. #ifdef AMBIENT_MINTEMP
  181. static int ambient_minttemp_raw = AMBIENT_RAW_LO_TEMP;
  182. #endif
  183. #ifdef AMBIENT_MAXTEMP
  184. static int ambient_maxttemp_raw = AMBIENT_RAW_HI_TEMP;
  185. #endif
  186. static void *heater_ttbl_map[EXTRUDERS] = ARRAY_BY_EXTRUDERS( (void *)HEATER_0_TEMPTABLE, (void *)HEATER_1_TEMPTABLE, (void *)HEATER_2_TEMPTABLE );
  187. static uint8_t heater_ttbllen_map[EXTRUDERS] = ARRAY_BY_EXTRUDERS( HEATER_0_TEMPTABLE_LEN, HEATER_1_TEMPTABLE_LEN, HEATER_2_TEMPTABLE_LEN );
  188. static float analog2temp(int raw, uint8_t e);
  189. static float analog2tempBed(int raw);
  190. #ifdef AMBIENT_MAXTEMP
  191. static float analog2tempAmbient(int raw);
  192. #endif
  193. static void updateTemperatures();
  194. enum TempRunawayStates : uint8_t
  195. {
  196. TempRunaway_INACTIVE = 0,
  197. TempRunaway_PREHEAT = 1,
  198. TempRunaway_ACTIVE = 2,
  199. };
  200. #ifndef SOFT_PWM_SCALE
  201. #define SOFT_PWM_SCALE 0
  202. #endif
  203. //===========================================================================
  204. //============================= functions ============================
  205. //===========================================================================
  206. #if (defined (TEMP_RUNAWAY_BED_HYSTERESIS) && TEMP_RUNAWAY_BED_TIMEOUT > 0) || (defined (TEMP_RUNAWAY_EXTRUDER_HYSTERESIS) && TEMP_RUNAWAY_EXTRUDER_TIMEOUT > 0)
  207. static uint8_t temp_runaway_status[1 + EXTRUDERS];
  208. static float temp_runaway_target[1 + EXTRUDERS];
  209. static uint32_t temp_runaway_timer[1 + EXTRUDERS];
  210. static uint16_t temp_runaway_error_counter[1 + EXTRUDERS];
  211. static void temp_runaway_check(uint8_t _heater_id, float _target_temperature, float _current_temperature, float _output, bool _isbed);
  212. static void temp_runaway_stop(bool isPreheat, bool isBed);
  213. #endif
  214. // return "false", if all extruder-heaters are 'off' (ie. "true", if any heater is 'on')
  215. bool checkAllHotends(void)
  216. {
  217. bool result=false;
  218. for(int i=0;i<EXTRUDERS;i++) result=(result||(target_temperature[i]!=0));
  219. return(result);
  220. }
  221. // WARNING: the following function has been marked noinline to avoid a GCC 4.9.2 LTO
  222. // codegen bug causing a stack overwrite issue in process_commands()
  223. void __attribute__((noinline)) PID_autotune(float temp, int extruder, int ncycles)
  224. {
  225. preparePidTuning();
  226. pid_number_of_cycles = ncycles;
  227. float input = 0.0;
  228. pid_cycle=0;
  229. bool heating = true;
  230. unsigned long temp_millis = _millis();
  231. unsigned long t1=temp_millis;
  232. unsigned long t2=temp_millis;
  233. long t_high = 0;
  234. long t_low = 0;
  235. long bias, d;
  236. float Ku, Tu;
  237. float max = 0, min = 10000;
  238. uint8_t safety_check_cycles = 0;
  239. const uint8_t safety_check_cycles_count = (extruder < 0) ? 45 : 10; //10 cycles / 20s delay for extruder and 45 cycles / 90s for heatbed
  240. float temp_ambient;
  241. #if (defined(EXTRUDER_0_AUTO_FAN_PIN) && EXTRUDER_0_AUTO_FAN_PIN > -1)
  242. unsigned long extruder_autofan_last_check = _millis();
  243. #endif
  244. if ((extruder >= EXTRUDERS)
  245. #if (TEMP_BED_PIN <= -1)
  246. ||(extruder < 0)
  247. #endif
  248. ){
  249. SERIAL_ECHOLNPGM("PID Autotune failed. Bad extruder number.");
  250. pid_tuning_finished = true;
  251. pid_cycle = 0;
  252. return;
  253. }
  254. SERIAL_ECHOLNPGM("PID Autotune start");
  255. if (extruder<0)
  256. {
  257. soft_pwm_bed = (MAX_BED_POWER)/2;
  258. timer02_set_pwm0(soft_pwm_bed << 1);
  259. bias = d = (MAX_BED_POWER)/2;
  260. target_temperature_bed = (int)temp; // to display the requested target bed temperature properly on the main screen
  261. }
  262. else
  263. {
  264. soft_pwm[extruder] = (PID_MAX)/2;
  265. bias = d = (PID_MAX)/2;
  266. target_temperature[extruder] = (int)temp; // to display the requested target extruder temperature properly on the main screen
  267. }
  268. for(;;) {
  269. #ifdef WATCHDOG
  270. wdt_reset();
  271. #endif //WATCHDOG
  272. if(temp_meas_ready == true) { // temp sample ready
  273. updateTemperatures();
  274. input = (extruder<0)?current_temperature_bed:current_temperature[extruder];
  275. max=max(max,input);
  276. min=min(min,input);
  277. #if (defined(EXTRUDER_0_AUTO_FAN_PIN) && EXTRUDER_0_AUTO_FAN_PIN > -1)
  278. if(_millis() - extruder_autofan_last_check > 2500) {
  279. checkExtruderAutoFans();
  280. extruder_autofan_last_check = _millis();
  281. }
  282. #endif
  283. if(heating == true && input > temp) {
  284. if(_millis() - t2 > 5000) {
  285. heating=false;
  286. if (extruder<0)
  287. {
  288. soft_pwm_bed = (bias - d) >> 1;
  289. timer02_set_pwm0(soft_pwm_bed << 1);
  290. }
  291. else
  292. soft_pwm[extruder] = (bias - d) >> 1;
  293. t1=_millis();
  294. t_high=t1 - t2;
  295. max=temp;
  296. }
  297. }
  298. if(heating == false && input < temp) {
  299. if(_millis() - t1 > 5000) {
  300. heating=true;
  301. t2=_millis();
  302. t_low=t2 - t1;
  303. if(pid_cycle > 0) {
  304. bias += (d*(t_high - t_low))/(t_low + t_high);
  305. bias = constrain(bias, 20 ,(extruder<0?(MAX_BED_POWER):(PID_MAX))-20);
  306. if(bias > (extruder<0?(MAX_BED_POWER):(PID_MAX))/2) d = (extruder<0?(MAX_BED_POWER):(PID_MAX)) - 1 - bias;
  307. else d = bias;
  308. SERIAL_PROTOCOLPGM(" bias: "); SERIAL_PROTOCOL(bias);
  309. SERIAL_PROTOCOLPGM(" d: "); SERIAL_PROTOCOL(d);
  310. SERIAL_PROTOCOLPGM(" min: "); SERIAL_PROTOCOL(min);
  311. SERIAL_PROTOCOLPGM(" max: "); SERIAL_PROTOCOLLN(max);
  312. if(pid_cycle > 2) {
  313. Ku = (4.0*d)/(3.14159*(max-min)/2.0);
  314. Tu = ((float)(t_low + t_high)/1000.0);
  315. SERIAL_PROTOCOLPGM(" Ku: "); SERIAL_PROTOCOL(Ku);
  316. SERIAL_PROTOCOLPGM(" Tu: "); SERIAL_PROTOCOLLN(Tu);
  317. _Kp = 0.6*Ku;
  318. _Ki = 2*_Kp/Tu;
  319. _Kd = _Kp*Tu/8;
  320. SERIAL_PROTOCOLLNPGM(" Classic PID ");
  321. SERIAL_PROTOCOLPGM(" Kp: "); SERIAL_PROTOCOLLN(_Kp);
  322. SERIAL_PROTOCOLPGM(" Ki: "); SERIAL_PROTOCOLLN(_Ki);
  323. SERIAL_PROTOCOLPGM(" Kd: "); SERIAL_PROTOCOLLN(_Kd);
  324. /*
  325. _Kp = 0.33*Ku;
  326. _Ki = _Kp/Tu;
  327. _Kd = _Kp*Tu/3;
  328. SERIAL_PROTOCOLLNPGM(" Some overshoot ");
  329. SERIAL_PROTOCOLPGM(" Kp: "); SERIAL_PROTOCOLLN(_Kp);
  330. SERIAL_PROTOCOLPGM(" Ki: "); SERIAL_PROTOCOLLN(_Ki);
  331. SERIAL_PROTOCOLPGM(" Kd: "); SERIAL_PROTOCOLLN(_Kd);
  332. _Kp = 0.2*Ku;
  333. _Ki = 2*_Kp/Tu;
  334. _Kd = _Kp*Tu/3;
  335. SERIAL_PROTOCOLLNPGM(" No overshoot ");
  336. SERIAL_PROTOCOLPGM(" Kp: "); SERIAL_PROTOCOLLN(_Kp);
  337. SERIAL_PROTOCOLPGM(" Ki: "); SERIAL_PROTOCOLLN(_Ki);
  338. SERIAL_PROTOCOLPGM(" Kd: "); SERIAL_PROTOCOLLN(_Kd);
  339. */
  340. }
  341. }
  342. if (extruder<0)
  343. {
  344. soft_pwm_bed = (bias + d) >> 1;
  345. timer02_set_pwm0(soft_pwm_bed << 1);
  346. }
  347. else
  348. soft_pwm[extruder] = (bias + d) >> 1;
  349. pid_cycle++;
  350. min=temp;
  351. }
  352. }
  353. }
  354. if(input > (temp + 20)) {
  355. SERIAL_PROTOCOLLNPGM("PID Autotune failed! Temperature too high");
  356. pid_tuning_finished = true;
  357. pid_cycle = 0;
  358. return;
  359. }
  360. if(_millis() - temp_millis > 2000) {
  361. int p;
  362. if (extruder<0){
  363. p=soft_pwm_bed;
  364. SERIAL_PROTOCOLPGM("B:");
  365. }else{
  366. p=soft_pwm[extruder];
  367. SERIAL_PROTOCOLPGM("T:");
  368. }
  369. SERIAL_PROTOCOL(input);
  370. SERIAL_PROTOCOLPGM(" @:");
  371. SERIAL_PROTOCOLLN(p);
  372. if (safety_check_cycles == 0) { //save ambient temp
  373. temp_ambient = input;
  374. //SERIAL_ECHOPGM("Ambient T: ");
  375. //MYSERIAL.println(temp_ambient);
  376. safety_check_cycles++;
  377. }
  378. else if (safety_check_cycles < safety_check_cycles_count) { //delay
  379. safety_check_cycles++;
  380. }
  381. else if (safety_check_cycles == safety_check_cycles_count){ //check that temperature is rising
  382. safety_check_cycles++;
  383. //SERIAL_ECHOPGM("Time from beginning: ");
  384. //MYSERIAL.print(safety_check_cycles_count * 2);
  385. //SERIAL_ECHOPGM("s. Difference between current and ambient T: ");
  386. //MYSERIAL.println(input - temp_ambient);
  387. if (fabs(input - temp_ambient) < 5.0) {
  388. temp_runaway_stop(false, (extruder<0));
  389. pid_tuning_finished = true;
  390. return;
  391. }
  392. }
  393. temp_millis = _millis();
  394. }
  395. if(((_millis() - t1) + (_millis() - t2)) > (10L*60L*1000L*2L)) {
  396. SERIAL_PROTOCOLLNPGM("PID Autotune failed! timeout");
  397. pid_tuning_finished = true;
  398. pid_cycle = 0;
  399. return;
  400. }
  401. if(pid_cycle > ncycles) {
  402. SERIAL_PROTOCOLLNPGM("PID Autotune finished! Put the last Kp, Ki and Kd constants from above into Configuration.h");
  403. pid_tuning_finished = true;
  404. pid_cycle = 0;
  405. return;
  406. }
  407. lcd_update(0);
  408. }
  409. }
  410. void updatePID()
  411. {
  412. // TODO: iState_sum_max and PID values should be synchronized for temp_mgr_isr
  413. #ifdef PIDTEMP
  414. for(uint_least8_t e = 0; e < EXTRUDERS; e++) {
  415. iState_sum_max[e] = PID_INTEGRAL_DRIVE_MAX / cs.Ki;
  416. }
  417. #endif
  418. #ifdef PIDTEMPBED
  419. temp_iState_max_bed = PID_INTEGRAL_DRIVE_MAX / cs.bedKi;
  420. #endif
  421. }
  422. int getHeaterPower(int heater) {
  423. if (heater<0)
  424. return soft_pwm_bed;
  425. return soft_pwm[heater];
  426. }
  427. // reset PID state after changing target_temperature
  428. void resetPID(uint8_t extruder _UNUSED) {}
  429. enum class TempErrorSource : uint8_t
  430. {
  431. hotend,
  432. bed,
  433. #ifdef AMBIENT_THERMISTOR
  434. ambient,
  435. #endif
  436. };
  437. // thermal error type (in order of decreasing priority!)
  438. enum class TempErrorType : uint8_t
  439. {
  440. max,
  441. min,
  442. preheat,
  443. runaway,
  444. #ifdef TEMP_MODEL
  445. model,
  446. #endif
  447. };
  448. // error state (updated via set_temp_error from isr context)
  449. volatile static union
  450. {
  451. uint8_t v;
  452. struct
  453. {
  454. uint8_t error: 1; // error condition
  455. uint8_t assert: 1; // error is still asserted
  456. uint8_t source: 2; // source
  457. uint8_t index: 1; // source index
  458. uint8_t type: 3; // error type
  459. };
  460. } temp_error_state;
  461. // set the error type from within the temp_mgr isr to be handled in manager_heater
  462. // - immediately disable all heaters and turn on all fans at full speed
  463. // - prevent the user to set temperatures until all errors are cleared
  464. void set_temp_error(TempErrorSource source, uint8_t index, TempErrorType type)
  465. {
  466. // save the original target temperatures for recovery before disabling heaters
  467. if(!temp_error_state.error && !saved_printing) {
  468. saved_bed_temperature = target_temperature_bed;
  469. saved_extruder_temperature = target_temperature[index];
  470. saved_fan_speed = fanSpeed;
  471. }
  472. // keep disabling heaters and keep fans on as long as the condition is asserted
  473. disable_heater();
  474. hotendFanSetFullSpeed();
  475. // set the initial error source to the highest priority error
  476. if(!temp_error_state.error || (uint8_t)type < temp_error_state.type) {
  477. temp_error_state.source = (uint8_t)source;
  478. temp_error_state.index = index;
  479. temp_error_state.type = (uint8_t)type;
  480. }
  481. // always set the error state
  482. temp_error_state.error = true;
  483. temp_error_state.assert = true;
  484. }
  485. bool get_temp_error()
  486. {
  487. return temp_error_state.v;
  488. }
  489. void handle_temp_error();
  490. void manage_heater()
  491. {
  492. #ifdef WATCHDOG
  493. wdt_reset();
  494. #endif //WATCHDOG
  495. // limit execution to the same rate as temp_mgr (low-level fault handling is already handled -
  496. // any remaining error handling is just user-facing and can wait one extra cycle)
  497. if(!temp_meas_ready)
  498. return;
  499. // syncronize temperatures with isr
  500. updateTemperatures();
  501. #ifdef TEMP_MODEL
  502. // handle model warnings first, so not to override the error handler
  503. if(temp_model::warning_state.warning)
  504. temp_model::handle_warning();
  505. #endif
  506. // handle temperature errors
  507. if(temp_error_state.v)
  508. handle_temp_error();
  509. // periodically check fans
  510. checkFans();
  511. #ifdef TEMP_MODEL_DEBUG
  512. temp_model::log_usr();
  513. #endif
  514. }
  515. #define PGM_RD_W(x) (short)pgm_read_word(&x)
  516. // Derived from RepRap FiveD extruder::getTemperature()
  517. // For hot end temperature measurement.
  518. static float analog2temp(int raw, uint8_t e) {
  519. if(e >= EXTRUDERS)
  520. {
  521. SERIAL_ERROR_START;
  522. SERIAL_ERROR((int)e);
  523. SERIAL_ERRORLNPGM(" - Invalid extruder number !");
  524. kill(NULL, 6);
  525. return 0.0;
  526. }
  527. #ifdef HEATER_0_USES_MAX6675
  528. if (e == 0)
  529. {
  530. return 0.25 * raw;
  531. }
  532. #endif
  533. if(heater_ttbl_map[e] != NULL)
  534. {
  535. float celsius = 0;
  536. uint8_t i;
  537. short (*tt)[][2] = (short (*)[][2])(heater_ttbl_map[e]);
  538. for (i=1; i<heater_ttbllen_map[e]; i++)
  539. {
  540. if (PGM_RD_W((*tt)[i][0]) > raw)
  541. {
  542. celsius = PGM_RD_W((*tt)[i-1][1]) +
  543. (raw - PGM_RD_W((*tt)[i-1][0])) *
  544. (float)(PGM_RD_W((*tt)[i][1]) - PGM_RD_W((*tt)[i-1][1])) /
  545. (float)(PGM_RD_W((*tt)[i][0]) - PGM_RD_W((*tt)[i-1][0]));
  546. break;
  547. }
  548. }
  549. // Overflow: Set to last value in the table
  550. if (i == heater_ttbllen_map[e]) celsius = PGM_RD_W((*tt)[i-1][1]);
  551. return celsius;
  552. }
  553. return ((raw * ((5.0 * 100.0) / 1024.0) / OVERSAMPLENR) * TEMP_SENSOR_AD595_GAIN) + TEMP_SENSOR_AD595_OFFSET;
  554. }
  555. // Derived from RepRap FiveD extruder::getTemperature()
  556. // For bed temperature measurement.
  557. static float analog2tempBed(int raw) {
  558. #ifdef BED_USES_THERMISTOR
  559. float celsius = 0;
  560. byte i;
  561. for (i=1; i<BEDTEMPTABLE_LEN; i++)
  562. {
  563. if (PGM_RD_W(BEDTEMPTABLE[i][0]) > raw)
  564. {
  565. celsius = PGM_RD_W(BEDTEMPTABLE[i-1][1]) +
  566. (raw - PGM_RD_W(BEDTEMPTABLE[i-1][0])) *
  567. (float)(PGM_RD_W(BEDTEMPTABLE[i][1]) - PGM_RD_W(BEDTEMPTABLE[i-1][1])) /
  568. (float)(PGM_RD_W(BEDTEMPTABLE[i][0]) - PGM_RD_W(BEDTEMPTABLE[i-1][0]));
  569. break;
  570. }
  571. }
  572. // Overflow: Set to last value in the table
  573. if (i == BEDTEMPTABLE_LEN) celsius = PGM_RD_W(BEDTEMPTABLE[i-1][1]);
  574. // temperature offset adjustment
  575. #ifdef BED_OFFSET
  576. float _offset = BED_OFFSET;
  577. float _offset_center = BED_OFFSET_CENTER;
  578. float _offset_start = BED_OFFSET_START;
  579. float _first_koef = (_offset / 2) / (_offset_center - _offset_start);
  580. float _second_koef = (_offset / 2) / (100 - _offset_center);
  581. if (celsius >= _offset_start && celsius <= _offset_center)
  582. {
  583. celsius = celsius + (_first_koef * (celsius - _offset_start));
  584. }
  585. else if (celsius > _offset_center && celsius <= 100)
  586. {
  587. celsius = celsius + (_first_koef * (_offset_center - _offset_start)) + ( _second_koef * ( celsius - ( 100 - _offset_center ) )) ;
  588. }
  589. else if (celsius > 100)
  590. {
  591. celsius = celsius + _offset;
  592. }
  593. #endif
  594. return celsius;
  595. #elif defined BED_USES_AD595
  596. return ((raw * ((5.0 * 100.0) / 1024.0) / OVERSAMPLENR) * TEMP_SENSOR_AD595_GAIN) + TEMP_SENSOR_AD595_OFFSET;
  597. #else
  598. return 0;
  599. #endif
  600. }
  601. #ifdef AMBIENT_THERMISTOR
  602. static float analog2tempAmbient(int raw)
  603. {
  604. float celsius = 0;
  605. byte i;
  606. for (i=1; i<AMBIENTTEMPTABLE_LEN; i++)
  607. {
  608. if (PGM_RD_W(AMBIENTTEMPTABLE[i][0]) > raw)
  609. {
  610. celsius = PGM_RD_W(AMBIENTTEMPTABLE[i-1][1]) +
  611. (raw - PGM_RD_W(AMBIENTTEMPTABLE[i-1][0])) *
  612. (float)(PGM_RD_W(AMBIENTTEMPTABLE[i][1]) - PGM_RD_W(AMBIENTTEMPTABLE[i-1][1])) /
  613. (float)(PGM_RD_W(AMBIENTTEMPTABLE[i][0]) - PGM_RD_W(AMBIENTTEMPTABLE[i-1][0]));
  614. break;
  615. }
  616. }
  617. // Overflow: Set to last value in the table
  618. if (i == AMBIENTTEMPTABLE_LEN) celsius = PGM_RD_W(AMBIENTTEMPTABLE[i-1][1]);
  619. return celsius;
  620. }
  621. #endif //AMBIENT_THERMISTOR
  622. void soft_pwm_init()
  623. {
  624. #if MB(RUMBA) && ((TEMP_SENSOR_0==-1)||(TEMP_SENSOR_1==-1)||(TEMP_SENSOR_2==-1)||(TEMP_SENSOR_BED==-1))
  625. //disable RUMBA JTAG in case the thermocouple extension is plugged on top of JTAG connector
  626. MCUCR=(1<<JTD);
  627. MCUCR=(1<<JTD);
  628. #endif
  629. // Finish init of mult extruder arrays
  630. for(int e = 0; e < EXTRUDERS; e++) {
  631. // populate with the first value
  632. maxttemp[e] = maxttemp[0];
  633. #ifdef PIDTEMP
  634. iState_sum_min[e] = 0.0;
  635. iState_sum_max[e] = PID_INTEGRAL_DRIVE_MAX / cs.Ki;
  636. #endif //PIDTEMP
  637. #ifdef PIDTEMPBED
  638. temp_iState_min_bed = 0.0;
  639. temp_iState_max_bed = PID_INTEGRAL_DRIVE_MAX / cs.bedKi;
  640. #endif //PIDTEMPBED
  641. }
  642. #if defined(HEATER_0_PIN) && (HEATER_0_PIN > -1)
  643. SET_OUTPUT(HEATER_0_PIN);
  644. #endif
  645. #if defined(HEATER_1_PIN) && (HEATER_1_PIN > -1)
  646. SET_OUTPUT(HEATER_1_PIN);
  647. #endif
  648. #if defined(HEATER_2_PIN) && (HEATER_2_PIN > -1)
  649. SET_OUTPUT(HEATER_2_PIN);
  650. #endif
  651. #if defined(HEATER_BED_PIN) && (HEATER_BED_PIN > -1)
  652. SET_OUTPUT(HEATER_BED_PIN);
  653. #endif
  654. #if defined(FAN_PIN) && (FAN_PIN > -1)
  655. SET_OUTPUT(FAN_PIN);
  656. #ifdef FAST_PWM_FAN
  657. setPwmFrequency(FAN_PIN, 1); // No prescaling. Pwm frequency = F_CPU/256/8
  658. #endif
  659. #ifdef FAN_SOFT_PWM
  660. soft_pwm_fan = fanSpeedSoftPwm / (1 << (8 - FAN_SOFT_PWM_BITS));
  661. #endif
  662. #endif
  663. #ifdef HEATER_0_USES_MAX6675
  664. #ifndef SDSUPPORT
  665. SET_OUTPUT(SCK_PIN);
  666. WRITE(SCK_PIN,0);
  667. SET_OUTPUT(MOSI_PIN);
  668. WRITE(MOSI_PIN,1);
  669. SET_INPUT(MISO_PIN);
  670. WRITE(MISO_PIN,1);
  671. #endif
  672. /* Using pinMode and digitalWrite, as that was the only way I could get it to compile */
  673. //Have to toggle SD card CS pin to low first, to enable firmware to talk with SD card
  674. pinMode(SS_PIN, OUTPUT);
  675. digitalWrite(SS_PIN,0);
  676. pinMode(MAX6675_SS, OUTPUT);
  677. digitalWrite(MAX6675_SS,1);
  678. #endif
  679. #ifdef HEATER_0_MINTEMP
  680. minttemp[0] = HEATER_0_MINTEMP;
  681. while(analog2temp(minttemp_raw[0], 0) < HEATER_0_MINTEMP) {
  682. #if HEATER_0_RAW_LO_TEMP < HEATER_0_RAW_HI_TEMP
  683. minttemp_raw[0] += OVERSAMPLENR;
  684. #else
  685. minttemp_raw[0] -= OVERSAMPLENR;
  686. #endif
  687. }
  688. #endif //MINTEMP
  689. #ifdef HEATER_0_MAXTEMP
  690. maxttemp[0] = HEATER_0_MAXTEMP;
  691. while(analog2temp(maxttemp_raw[0], 0) > HEATER_0_MAXTEMP) {
  692. #if HEATER_0_RAW_LO_TEMP < HEATER_0_RAW_HI_TEMP
  693. maxttemp_raw[0] -= OVERSAMPLENR;
  694. #else
  695. maxttemp_raw[0] += OVERSAMPLENR;
  696. #endif
  697. }
  698. #endif //MAXTEMP
  699. #if (EXTRUDERS > 1) && defined(HEATER_1_MINTEMP)
  700. minttemp[1] = HEATER_1_MINTEMP;
  701. while(analog2temp(minttemp_raw[1], 1) < HEATER_1_MINTEMP) {
  702. #if HEATER_1_RAW_LO_TEMP < HEATER_1_RAW_HI_TEMP
  703. minttemp_raw[1] += OVERSAMPLENR;
  704. #else
  705. minttemp_raw[1] -= OVERSAMPLENR;
  706. #endif
  707. }
  708. #endif // MINTEMP 1
  709. #if (EXTRUDERS > 1) && defined(HEATER_1_MAXTEMP)
  710. maxttemp[1] = HEATER_1_MAXTEMP;
  711. while(analog2temp(maxttemp_raw[1], 1) > HEATER_1_MAXTEMP) {
  712. #if HEATER_1_RAW_LO_TEMP < HEATER_1_RAW_HI_TEMP
  713. maxttemp_raw[1] -= OVERSAMPLENR;
  714. #else
  715. maxttemp_raw[1] += OVERSAMPLENR;
  716. #endif
  717. }
  718. #endif //MAXTEMP 1
  719. #if (EXTRUDERS > 2) && defined(HEATER_2_MINTEMP)
  720. minttemp[2] = HEATER_2_MINTEMP;
  721. while(analog2temp(minttemp_raw[2], 2) < HEATER_2_MINTEMP) {
  722. #if HEATER_2_RAW_LO_TEMP < HEATER_2_RAW_HI_TEMP
  723. minttemp_raw[2] += OVERSAMPLENR;
  724. #else
  725. minttemp_raw[2] -= OVERSAMPLENR;
  726. #endif
  727. }
  728. #endif //MINTEMP 2
  729. #if (EXTRUDERS > 2) && defined(HEATER_2_MAXTEMP)
  730. maxttemp[2] = HEATER_2_MAXTEMP;
  731. while(analog2temp(maxttemp_raw[2], 2) > HEATER_2_MAXTEMP) {
  732. #if HEATER_2_RAW_LO_TEMP < HEATER_2_RAW_HI_TEMP
  733. maxttemp_raw[2] -= OVERSAMPLENR;
  734. #else
  735. maxttemp_raw[2] += OVERSAMPLENR;
  736. #endif
  737. }
  738. #endif //MAXTEMP 2
  739. #ifdef BED_MINTEMP
  740. while(analog2tempBed(bed_minttemp_raw) < BED_MINTEMP) {
  741. #if HEATER_BED_RAW_LO_TEMP < HEATER_BED_RAW_HI_TEMP
  742. bed_minttemp_raw += OVERSAMPLENR;
  743. #else
  744. bed_minttemp_raw -= OVERSAMPLENR;
  745. #endif
  746. }
  747. #endif //BED_MINTEMP
  748. #ifdef BED_MAXTEMP
  749. while(analog2tempBed(bed_maxttemp_raw) > BED_MAXTEMP) {
  750. #if HEATER_BED_RAW_LO_TEMP < HEATER_BED_RAW_HI_TEMP
  751. bed_maxttemp_raw -= OVERSAMPLENR;
  752. #else
  753. bed_maxttemp_raw += OVERSAMPLENR;
  754. #endif
  755. }
  756. #endif //BED_MAXTEMP
  757. #ifdef AMBIENT_MINTEMP
  758. while(analog2tempAmbient(ambient_minttemp_raw) < AMBIENT_MINTEMP) {
  759. #if AMBIENT_RAW_LO_TEMP < AMBIENT_RAW_HI_TEMP
  760. ambient_minttemp_raw += OVERSAMPLENR;
  761. #else
  762. ambient_minttemp_raw -= OVERSAMPLENR;
  763. #endif
  764. }
  765. #endif //AMBIENT_MINTEMP
  766. #ifdef AMBIENT_MAXTEMP
  767. while(analog2tempAmbient(ambient_maxttemp_raw) > AMBIENT_MAXTEMP) {
  768. #if AMBIENT_RAW_LO_TEMP < AMBIENT_RAW_HI_TEMP
  769. ambient_maxttemp_raw -= OVERSAMPLENR;
  770. #else
  771. ambient_maxttemp_raw += OVERSAMPLENR;
  772. #endif
  773. }
  774. #endif //AMBIENT_MAXTEMP
  775. timer0_init(); //enables the heatbed timer.
  776. // timer2 already enabled earlier in the code
  777. // now enable the COMPB temperature interrupt
  778. OCR2B = 128;
  779. ENABLE_SOFT_PWM_INTERRUPT();
  780. timer4_init(); //for tone and Hotend fan PWM
  781. }
  782. #if (defined (TEMP_RUNAWAY_BED_HYSTERESIS) && TEMP_RUNAWAY_BED_TIMEOUT > 0) || (defined (TEMP_RUNAWAY_EXTRUDER_HYSTERESIS) && TEMP_RUNAWAY_EXTRUDER_TIMEOUT > 0)
  783. static void temp_runaway_check(uint8_t _heater_id, float _target_temperature, float _current_temperature, float _output, bool _isbed)
  784. {
  785. float __delta;
  786. float __hysteresis = 0;
  787. uint16_t __timeout = 0;
  788. bool temp_runaway_check_active = false;
  789. static float __preheat_start[2] = { 0,0}; //currently just bed and one extruder
  790. static uint8_t __preheat_counter[2] = { 0,0};
  791. static uint8_t __preheat_errors[2] = { 0,0};
  792. if (_millis() - temp_runaway_timer[_heater_id] > 2000)
  793. {
  794. #ifdef TEMP_RUNAWAY_BED_TIMEOUT
  795. if (_isbed)
  796. {
  797. __hysteresis = TEMP_RUNAWAY_BED_HYSTERESIS;
  798. __timeout = TEMP_RUNAWAY_BED_TIMEOUT;
  799. }
  800. #endif
  801. #ifdef TEMP_RUNAWAY_EXTRUDER_TIMEOUT
  802. if (!_isbed)
  803. {
  804. __hysteresis = TEMP_RUNAWAY_EXTRUDER_HYSTERESIS;
  805. __timeout = TEMP_RUNAWAY_EXTRUDER_TIMEOUT;
  806. }
  807. #endif
  808. temp_runaway_timer[_heater_id] = _millis();
  809. if (_output == 0)
  810. {
  811. temp_runaway_check_active = false;
  812. temp_runaway_error_counter[_heater_id] = 0;
  813. }
  814. if (temp_runaway_target[_heater_id] != _target_temperature)
  815. {
  816. if (_target_temperature > 0)
  817. {
  818. temp_runaway_status[_heater_id] = TempRunaway_PREHEAT;
  819. temp_runaway_target[_heater_id] = _target_temperature;
  820. __preheat_start[_heater_id] = _current_temperature;
  821. __preheat_counter[_heater_id] = 0;
  822. }
  823. else
  824. {
  825. temp_runaway_status[_heater_id] = TempRunaway_INACTIVE;
  826. temp_runaway_target[_heater_id] = _target_temperature;
  827. }
  828. }
  829. if ((_current_temperature < _target_temperature) && (temp_runaway_status[_heater_id] == TempRunaway_PREHEAT))
  830. {
  831. __preheat_counter[_heater_id]++;
  832. if (__preheat_counter[_heater_id] > ((_isbed) ? 16 : 8)) // periodicaly check if current temperature changes
  833. {
  834. /*SERIAL_ECHOPGM("Heater:");
  835. MYSERIAL.print(_heater_id);
  836. SERIAL_ECHOPGM(" T:");
  837. MYSERIAL.print(_current_temperature);
  838. SERIAL_ECHOPGM(" Tstart:");
  839. MYSERIAL.print(__preheat_start[_heater_id]);
  840. SERIAL_ECHOPGM(" delta:");
  841. MYSERIAL.print(_current_temperature-__preheat_start[_heater_id]);*/
  842. //-// if (_current_temperature - __preheat_start[_heater_id] < 2) {
  843. //-// if (_current_temperature - __preheat_start[_heater_id] < ((_isbed && (_current_temperature>105.0))?0.6:2.0)) {
  844. __delta=2.0;
  845. if(_isbed)
  846. {
  847. __delta=3.0;
  848. if(_current_temperature>90.0) __delta=2.0;
  849. if(_current_temperature>105.0) __delta=0.6;
  850. }
  851. if (_current_temperature - __preheat_start[_heater_id] < __delta) {
  852. __preheat_errors[_heater_id]++;
  853. /*SERIAL_ECHOPGM(" Preheat errors:");
  854. MYSERIAL.println(__preheat_errors[_heater_id]);*/
  855. }
  856. else {
  857. //SERIAL_ECHOLNPGM("");
  858. __preheat_errors[_heater_id] = 0;
  859. }
  860. if (__preheat_errors[_heater_id] > ((_isbed) ? 3 : 5))
  861. set_temp_error((_isbed?TempErrorSource::bed:TempErrorSource::hotend), _heater_id, TempErrorType::preheat);
  862. __preheat_start[_heater_id] = _current_temperature;
  863. __preheat_counter[_heater_id] = 0;
  864. }
  865. }
  866. //-// if (_current_temperature >= _target_temperature && temp_runaway_status[_heater_id] == TempRunaway_PREHEAT)
  867. if ((_current_temperature > (_target_temperature - __hysteresis)) && temp_runaway_status[_heater_id] == TempRunaway_PREHEAT)
  868. {
  869. /*SERIAL_ECHOPGM("Heater:");
  870. MYSERIAL.print(_heater_id);
  871. MYSERIAL.println(" ->tempRunaway");*/
  872. temp_runaway_status[_heater_id] = TempRunaway_ACTIVE;
  873. temp_runaway_check_active = false;
  874. temp_runaway_error_counter[_heater_id] = 0;
  875. }
  876. if (_output > 0)
  877. {
  878. temp_runaway_check_active = true;
  879. }
  880. if (temp_runaway_check_active)
  881. {
  882. // we are in range
  883. if ((_current_temperature > (_target_temperature - __hysteresis)) && (_current_temperature < (_target_temperature + __hysteresis)))
  884. {
  885. temp_runaway_check_active = false;
  886. temp_runaway_error_counter[_heater_id] = 0;
  887. }
  888. else
  889. {
  890. if (temp_runaway_status[_heater_id] > TempRunaway_PREHEAT)
  891. {
  892. temp_runaway_error_counter[_heater_id]++;
  893. if (temp_runaway_error_counter[_heater_id] * 2 > __timeout)
  894. set_temp_error((_isbed?TempErrorSource::bed:TempErrorSource::hotend), _heater_id, TempErrorType::runaway);
  895. }
  896. }
  897. }
  898. }
  899. }
  900. static void temp_runaway_stop(bool isPreheat, bool isBed)
  901. {
  902. if(IsStopped() == false) {
  903. if (isPreheat) {
  904. lcd_setalertstatuspgm(isBed? PSTR("BED PREHEAT ERROR") : PSTR("PREHEAT ERROR"), LCD_STATUS_CRITICAL);
  905. SERIAL_ERROR_START;
  906. if (isBed) {
  907. SERIAL_ERRORLNPGM(" THERMAL RUNAWAY (PREHEAT HEATBED)");
  908. } else {
  909. SERIAL_ERRORLNPGM(" THERMAL RUNAWAY (PREHEAT HOTEND)");
  910. }
  911. } else {
  912. lcd_setalertstatuspgm(isBed? PSTR("BED THERMAL RUNAWAY") : PSTR("THERMAL RUNAWAY"), LCD_STATUS_CRITICAL);
  913. SERIAL_ERROR_START;
  914. if (isBed) {
  915. SERIAL_ERRORLNPGM(" HEATBED THERMAL RUNAWAY");
  916. } else {
  917. SERIAL_ERRORLNPGM(" HOTEND THERMAL RUNAWAY");
  918. }
  919. }
  920. prusa_statistics(0);
  921. prusa_statistics(isPreheat? 91 : 90);
  922. }
  923. ThermalStop();
  924. }
  925. #endif
  926. //! signal a temperature error on both the lcd and serial
  927. //! @param type short error abbreviation (PROGMEM)
  928. //! @param e optional extruder index for hotend errors
  929. static void temp_error_messagepgm(const char* PROGMEM type, uint8_t e = EXTRUDERS)
  930. {
  931. char msg[LCD_WIDTH];
  932. strcpy_P(msg, PSTR("Err: "));
  933. strcat_P(msg, type);
  934. lcd_setalertstatus(msg, LCD_STATUS_CRITICAL);
  935. SERIAL_ERROR_START;
  936. if(e != EXTRUDERS) {
  937. SERIAL_ERROR((int)e);
  938. SERIAL_ERRORPGM(": ");
  939. }
  940. SERIAL_ERRORPGM("Heaters switched off. ");
  941. SERIAL_ERRORRPGM(type);
  942. SERIAL_ERRORLNPGM(" triggered!");
  943. }
  944. static void max_temp_error(uint8_t e) {
  945. if(IsStopped() == false) {
  946. temp_error_messagepgm(PSTR("MAXTEMP"), e);
  947. prusa_statistics(93);
  948. }
  949. #ifndef BOGUS_TEMPERATURE_FAILSAFE_OVERRIDE
  950. ThermalStop();
  951. #endif
  952. }
  953. static void min_temp_error(uint8_t e) {
  954. static const char err[] PROGMEM = "MINTEMP";
  955. if(IsStopped() == false) {
  956. temp_error_messagepgm(err, e);
  957. prusa_statistics(92);
  958. }
  959. ThermalStop();
  960. }
  961. static void bed_max_temp_error(void) {
  962. if(IsStopped() == false) {
  963. temp_error_messagepgm(PSTR("MAXTEMP BED"));
  964. }
  965. ThermalStop();
  966. }
  967. static void bed_min_temp_error(void) {
  968. static const char err[] PROGMEM = "MINTEMP BED";
  969. if(IsStopped() == false) {
  970. temp_error_messagepgm(err);
  971. }
  972. ThermalStop();
  973. }
  974. #ifdef AMBIENT_THERMISTOR
  975. static void ambient_max_temp_error(void) {
  976. if(IsStopped() == false) {
  977. temp_error_messagepgm(PSTR("MAXTEMP AMB"));
  978. }
  979. ThermalStop();
  980. }
  981. static void ambient_min_temp_error(void) {
  982. if(IsStopped() == false) {
  983. temp_error_messagepgm(PSTR("MINTEMP AMB"));
  984. }
  985. ThermalStop();
  986. }
  987. #endif
  988. #ifdef HEATER_0_USES_MAX6675
  989. #define MAX6675_HEAT_INTERVAL 250
  990. long max6675_previous_millis = MAX6675_HEAT_INTERVAL;
  991. int max6675_temp = 2000;
  992. int read_max6675()
  993. {
  994. if (_millis() - max6675_previous_millis < MAX6675_HEAT_INTERVAL)
  995. return max6675_temp;
  996. max6675_previous_millis = _millis();
  997. max6675_temp = 0;
  998. #ifdef PRR
  999. PRR &= ~(1<<PRSPI);
  1000. #elif defined PRR0
  1001. PRR0 &= ~(1<<PRSPI);
  1002. #endif
  1003. SPCR = (1<<MSTR) | (1<<SPE) | (1<<SPR0);
  1004. // enable TT_MAX6675
  1005. WRITE(MAX6675_SS, 0);
  1006. // ensure 100ns delay - a bit extra is fine
  1007. asm("nop");//50ns on 20Mhz, 62.5ns on 16Mhz
  1008. asm("nop");//50ns on 20Mhz, 62.5ns on 16Mhz
  1009. // read MSB
  1010. SPDR = 0;
  1011. for (;(SPSR & (1<<SPIF)) == 0;);
  1012. max6675_temp = SPDR;
  1013. max6675_temp <<= 8;
  1014. // read LSB
  1015. SPDR = 0;
  1016. for (;(SPSR & (1<<SPIF)) == 0;);
  1017. max6675_temp |= SPDR;
  1018. // disable TT_MAX6675
  1019. WRITE(MAX6675_SS, 1);
  1020. if (max6675_temp & 4)
  1021. {
  1022. // thermocouple open
  1023. max6675_temp = 2000;
  1024. }
  1025. else
  1026. {
  1027. max6675_temp = max6675_temp >> 3;
  1028. }
  1029. return max6675_temp;
  1030. }
  1031. #endif
  1032. #ifdef BABYSTEPPING
  1033. FORCE_INLINE static void applyBabysteps() {
  1034. for(uint8_t axis=0;axis<3;axis++)
  1035. {
  1036. int curTodo=babystepsTodo[axis]; //get rid of volatile for performance
  1037. if(curTodo>0)
  1038. {
  1039. ATOMIC_BLOCK(ATOMIC_RESTORESTATE) {
  1040. babystep(axis,/*fwd*/true);
  1041. babystepsTodo[axis]--; //less to do next time
  1042. }
  1043. }
  1044. else
  1045. if(curTodo<0)
  1046. {
  1047. ATOMIC_BLOCK(ATOMIC_RESTORESTATE) {
  1048. babystep(axis,/*fwd*/false);
  1049. babystepsTodo[axis]++; //less to do next time
  1050. }
  1051. }
  1052. }
  1053. }
  1054. #endif //BABYSTEPPING
  1055. FORCE_INLINE static void soft_pwm_core()
  1056. {
  1057. static uint8_t pwm_count = (1 << SOFT_PWM_SCALE);
  1058. static uint8_t soft_pwm_0;
  1059. #ifdef SLOW_PWM_HEATERS
  1060. static unsigned char slow_pwm_count = 0;
  1061. static unsigned char state_heater_0 = 0;
  1062. static unsigned char state_timer_heater_0 = 0;
  1063. #endif
  1064. #if (EXTRUDERS > 1) || defined(HEATERS_PARALLEL)
  1065. static unsigned char soft_pwm_1;
  1066. #ifdef SLOW_PWM_HEATERS
  1067. static unsigned char state_heater_1 = 0;
  1068. static unsigned char state_timer_heater_1 = 0;
  1069. #endif
  1070. #endif
  1071. #if EXTRUDERS > 2
  1072. static unsigned char soft_pwm_2;
  1073. #ifdef SLOW_PWM_HEATERS
  1074. static unsigned char state_heater_2 = 0;
  1075. static unsigned char state_timer_heater_2 = 0;
  1076. #endif
  1077. #endif
  1078. #if HEATER_BED_PIN > -1
  1079. // @@DR static unsigned char soft_pwm_b;
  1080. #ifdef SLOW_PWM_HEATERS
  1081. static unsigned char state_heater_b = 0;
  1082. static unsigned char state_timer_heater_b = 0;
  1083. #endif
  1084. #endif
  1085. #if defined(FILWIDTH_PIN) &&(FILWIDTH_PIN > -1)
  1086. static unsigned long raw_filwidth_value = 0; //added for filament width sensor
  1087. #endif
  1088. #ifndef SLOW_PWM_HEATERS
  1089. /*
  1090. * standard PWM modulation
  1091. */
  1092. if (pwm_count == 0)
  1093. {
  1094. soft_pwm_0 = soft_pwm[0];
  1095. if(soft_pwm_0 > 0)
  1096. {
  1097. WRITE(HEATER_0_PIN,1);
  1098. #ifdef HEATERS_PARALLEL
  1099. WRITE(HEATER_1_PIN,1);
  1100. #endif
  1101. } else WRITE(HEATER_0_PIN,0);
  1102. #if EXTRUDERS > 1
  1103. soft_pwm_1 = soft_pwm[1];
  1104. if(soft_pwm_1 > 0) WRITE(HEATER_1_PIN,1); else WRITE(HEATER_1_PIN,0);
  1105. #endif
  1106. #if EXTRUDERS > 2
  1107. soft_pwm_2 = soft_pwm[2];
  1108. if(soft_pwm_2 > 0) WRITE(HEATER_2_PIN,1); else WRITE(HEATER_2_PIN,0);
  1109. #endif
  1110. }
  1111. #if defined(HEATER_BED_PIN) && HEATER_BED_PIN > -1
  1112. #if 0 // @@DR vypnuto pro hw pwm bedu
  1113. // tuhle prasarnu bude potreba poustet ve stanovenych intervalech, jinak nemam moc sanci zareagovat
  1114. // teoreticky by se tato cast uz vubec nemusela poustet
  1115. if ((pwm_count & ((1 << HEATER_BED_SOFT_PWM_BITS) - 1)) == 0)
  1116. {
  1117. soft_pwm_b = soft_pwm_bed >> (7 - HEATER_BED_SOFT_PWM_BITS);
  1118. # ifndef SYSTEM_TIMER_2
  1119. // tady budu krokovat pomalou frekvenci na automatu - tohle je rizeni spinani a rozepinani
  1120. // jako ridici frekvenci mam 2khz, jako vystupni frekvenci mam 30hz
  1121. // 2kHz jsou ovsem ve slysitelnem pasmu, mozna bude potreba jit s frekvenci nahoru (a tomu taky prizpusobit ostatni veci)
  1122. // Teoreticky bych mohl stahnout OCR0B citac na 6, cimz bych se dostal nekam ke 40khz a tady potom honit PWM rychleji nebo i pomaleji
  1123. // to nicemu nevadi. Soft PWM scale by se 20x zvetsilo (no dobre, 16x), cimz by se to posunulo k puvodnimu 30Hz PWM
  1124. //if(soft_pwm_b > 0) WRITE(HEATER_BED_PIN,1); else WRITE(HEATER_BED_PIN,0);
  1125. # endif //SYSTEM_TIMER_2
  1126. }
  1127. #endif
  1128. #endif
  1129. #ifdef FAN_SOFT_PWM
  1130. if ((pwm_count & ((1 << FAN_SOFT_PWM_BITS) - 1)) == 0)
  1131. {
  1132. soft_pwm_fan = fanSpeedSoftPwm / (1 << (8 - FAN_SOFT_PWM_BITS));
  1133. if(soft_pwm_fan > 0) WRITE(FAN_PIN,1); else WRITE(FAN_PIN,0);
  1134. }
  1135. #endif
  1136. if(soft_pwm_0 < pwm_count)
  1137. {
  1138. WRITE(HEATER_0_PIN,0);
  1139. #ifdef HEATERS_PARALLEL
  1140. WRITE(HEATER_1_PIN,0);
  1141. #endif
  1142. }
  1143. #if EXTRUDERS > 1
  1144. if(soft_pwm_1 < pwm_count) WRITE(HEATER_1_PIN,0);
  1145. #endif
  1146. #if EXTRUDERS > 2
  1147. if(soft_pwm_2 < pwm_count) WRITE(HEATER_2_PIN,0);
  1148. #endif
  1149. #if 0 // @@DR
  1150. #if defined(HEATER_BED_PIN) && HEATER_BED_PIN > -1
  1151. if (soft_pwm_b < (pwm_count & ((1 << HEATER_BED_SOFT_PWM_BITS) - 1))){
  1152. //WRITE(HEATER_BED_PIN,0);
  1153. }
  1154. //WRITE(HEATER_BED_PIN, pwm_count & 1 );
  1155. #endif
  1156. #endif
  1157. #ifdef FAN_SOFT_PWM
  1158. if (soft_pwm_fan < (pwm_count & ((1 << FAN_SOFT_PWM_BITS) - 1))) WRITE(FAN_PIN,0);
  1159. #endif
  1160. pwm_count += (1 << SOFT_PWM_SCALE);
  1161. pwm_count &= 0x7f;
  1162. #else //ifndef SLOW_PWM_HEATERS
  1163. /*
  1164. * SLOW PWM HEATERS
  1165. *
  1166. * for heaters drived by relay
  1167. */
  1168. #ifndef MIN_STATE_TIME
  1169. #define MIN_STATE_TIME 16 // MIN_STATE_TIME * 65.5 = time in milliseconds
  1170. #endif
  1171. if (slow_pwm_count == 0) {
  1172. // EXTRUDER 0
  1173. soft_pwm_0 = soft_pwm[0];
  1174. if (soft_pwm_0 > 0) {
  1175. // turn ON heather only if the minimum time is up
  1176. if (state_timer_heater_0 == 0) {
  1177. // if change state set timer
  1178. if (state_heater_0 == 0) {
  1179. state_timer_heater_0 = MIN_STATE_TIME;
  1180. }
  1181. state_heater_0 = 1;
  1182. WRITE(HEATER_0_PIN, 1);
  1183. #ifdef HEATERS_PARALLEL
  1184. WRITE(HEATER_1_PIN, 1);
  1185. #endif
  1186. }
  1187. } else {
  1188. // turn OFF heather only if the minimum time is up
  1189. if (state_timer_heater_0 == 0) {
  1190. // if change state set timer
  1191. if (state_heater_0 == 1) {
  1192. state_timer_heater_0 = MIN_STATE_TIME;
  1193. }
  1194. state_heater_0 = 0;
  1195. WRITE(HEATER_0_PIN, 0);
  1196. #ifdef HEATERS_PARALLEL
  1197. WRITE(HEATER_1_PIN, 0);
  1198. #endif
  1199. }
  1200. }
  1201. #if EXTRUDERS > 1
  1202. // EXTRUDER 1
  1203. soft_pwm_1 = soft_pwm[1];
  1204. if (soft_pwm_1 > 0) {
  1205. // turn ON heather only if the minimum time is up
  1206. if (state_timer_heater_1 == 0) {
  1207. // if change state set timer
  1208. if (state_heater_1 == 0) {
  1209. state_timer_heater_1 = MIN_STATE_TIME;
  1210. }
  1211. state_heater_1 = 1;
  1212. WRITE(HEATER_1_PIN, 1);
  1213. }
  1214. } else {
  1215. // turn OFF heather only if the minimum time is up
  1216. if (state_timer_heater_1 == 0) {
  1217. // if change state set timer
  1218. if (state_heater_1 == 1) {
  1219. state_timer_heater_1 = MIN_STATE_TIME;
  1220. }
  1221. state_heater_1 = 0;
  1222. WRITE(HEATER_1_PIN, 0);
  1223. }
  1224. }
  1225. #endif
  1226. #if EXTRUDERS > 2
  1227. // EXTRUDER 2
  1228. soft_pwm_2 = soft_pwm[2];
  1229. if (soft_pwm_2 > 0) {
  1230. // turn ON heather only if the minimum time is up
  1231. if (state_timer_heater_2 == 0) {
  1232. // if change state set timer
  1233. if (state_heater_2 == 0) {
  1234. state_timer_heater_2 = MIN_STATE_TIME;
  1235. }
  1236. state_heater_2 = 1;
  1237. WRITE(HEATER_2_PIN, 1);
  1238. }
  1239. } else {
  1240. // turn OFF heather only if the minimum time is up
  1241. if (state_timer_heater_2 == 0) {
  1242. // if change state set timer
  1243. if (state_heater_2 == 1) {
  1244. state_timer_heater_2 = MIN_STATE_TIME;
  1245. }
  1246. state_heater_2 = 0;
  1247. WRITE(HEATER_2_PIN, 0);
  1248. }
  1249. }
  1250. #endif
  1251. #if defined(HEATER_BED_PIN) && HEATER_BED_PIN > -1
  1252. // BED
  1253. soft_pwm_b = soft_pwm_bed;
  1254. if (soft_pwm_b > 0) {
  1255. // turn ON heather only if the minimum time is up
  1256. if (state_timer_heater_b == 0) {
  1257. // if change state set timer
  1258. if (state_heater_b == 0) {
  1259. state_timer_heater_b = MIN_STATE_TIME;
  1260. }
  1261. state_heater_b = 1;
  1262. //WRITE(HEATER_BED_PIN, 1);
  1263. }
  1264. } else {
  1265. // turn OFF heather only if the minimum time is up
  1266. if (state_timer_heater_b == 0) {
  1267. // if change state set timer
  1268. if (state_heater_b == 1) {
  1269. state_timer_heater_b = MIN_STATE_TIME;
  1270. }
  1271. state_heater_b = 0;
  1272. WRITE(HEATER_BED_PIN, 0);
  1273. }
  1274. }
  1275. #endif
  1276. } // if (slow_pwm_count == 0)
  1277. // EXTRUDER 0
  1278. if (soft_pwm_0 < slow_pwm_count) {
  1279. // turn OFF heather only if the minimum time is up
  1280. if (state_timer_heater_0 == 0) {
  1281. // if change state set timer
  1282. if (state_heater_0 == 1) {
  1283. state_timer_heater_0 = MIN_STATE_TIME;
  1284. }
  1285. state_heater_0 = 0;
  1286. WRITE(HEATER_0_PIN, 0);
  1287. #ifdef HEATERS_PARALLEL
  1288. WRITE(HEATER_1_PIN, 0);
  1289. #endif
  1290. }
  1291. }
  1292. #if EXTRUDERS > 1
  1293. // EXTRUDER 1
  1294. if (soft_pwm_1 < slow_pwm_count) {
  1295. // turn OFF heather only if the minimum time is up
  1296. if (state_timer_heater_1 == 0) {
  1297. // if change state set timer
  1298. if (state_heater_1 == 1) {
  1299. state_timer_heater_1 = MIN_STATE_TIME;
  1300. }
  1301. state_heater_1 = 0;
  1302. WRITE(HEATER_1_PIN, 0);
  1303. }
  1304. }
  1305. #endif
  1306. #if EXTRUDERS > 2
  1307. // EXTRUDER 2
  1308. if (soft_pwm_2 < slow_pwm_count) {
  1309. // turn OFF heather only if the minimum time is up
  1310. if (state_timer_heater_2 == 0) {
  1311. // if change state set timer
  1312. if (state_heater_2 == 1) {
  1313. state_timer_heater_2 = MIN_STATE_TIME;
  1314. }
  1315. state_heater_2 = 0;
  1316. WRITE(HEATER_2_PIN, 0);
  1317. }
  1318. }
  1319. #endif
  1320. #if defined(HEATER_BED_PIN) && HEATER_BED_PIN > -1
  1321. // BED
  1322. if (soft_pwm_b < slow_pwm_count) {
  1323. // turn OFF heather only if the minimum time is up
  1324. if (state_timer_heater_b == 0) {
  1325. // if change state set timer
  1326. if (state_heater_b == 1) {
  1327. state_timer_heater_b = MIN_STATE_TIME;
  1328. }
  1329. state_heater_b = 0;
  1330. WRITE(HEATER_BED_PIN, 0);
  1331. }
  1332. }
  1333. #endif
  1334. #ifdef FAN_SOFT_PWM
  1335. if ((pwm_count & ((1 << FAN_SOFT_PWM_BITS) - 1)) == 0)
  1336. soft_pwm_fan = fanSpeedSoftPwm / (1 << (8 - FAN_SOFT_PWM_BITS));
  1337. if (soft_pwm_fan > 0) WRITE(FAN_PIN,1); else WRITE(FAN_PIN,0);
  1338. }
  1339. if (soft_pwm_fan < pwm_count) WRITE(FAN_PIN,0);
  1340. #endif
  1341. pwm_count += (1 << SOFT_PWM_SCALE);
  1342. pwm_count &= 0x7f;
  1343. // increment slow_pwm_count only every 64 pwm_count circa 65.5ms
  1344. if ((pwm_count % 64) == 0) {
  1345. slow_pwm_count++;
  1346. slow_pwm_count &= 0x7f;
  1347. // Extruder 0
  1348. if (state_timer_heater_0 > 0) {
  1349. state_timer_heater_0--;
  1350. }
  1351. #if EXTRUDERS > 1
  1352. // Extruder 1
  1353. if (state_timer_heater_1 > 0)
  1354. state_timer_heater_1--;
  1355. #endif
  1356. #if EXTRUDERS > 2
  1357. // Extruder 2
  1358. if (state_timer_heater_2 > 0)
  1359. state_timer_heater_2--;
  1360. #endif
  1361. #if defined(HEATER_BED_PIN) && HEATER_BED_PIN > -1
  1362. // Bed
  1363. if (state_timer_heater_b > 0)
  1364. state_timer_heater_b--;
  1365. #endif
  1366. } //if ((pwm_count % 64) == 0) {
  1367. #endif //ifndef SLOW_PWM_HEATERS
  1368. }
  1369. FORCE_INLINE static void soft_pwm_isr()
  1370. {
  1371. lcd_buttons_update();
  1372. soft_pwm_core();
  1373. #ifdef BABYSTEPPING
  1374. applyBabysteps();
  1375. #endif //BABYSTEPPING
  1376. // Check if a stack overflow happened
  1377. if (!SdFatUtil::test_stack_integrity()) stack_error();
  1378. #if (defined(FANCHECK) && defined(TACH_0) && (TACH_0 > -1))
  1379. readFanTach();
  1380. #endif //(defined(TACH_0))
  1381. }
  1382. // Timer2 (originaly timer0) is shared with millies
  1383. #ifdef SYSTEM_TIMER_2
  1384. ISR(TIMER2_COMPB_vect)
  1385. #else //SYSTEM_TIMER_2
  1386. ISR(TIMER0_COMPB_vect)
  1387. #endif //SYSTEM_TIMER_2
  1388. {
  1389. DISABLE_SOFT_PWM_INTERRUPT();
  1390. NONATOMIC_BLOCK(NONATOMIC_FORCEOFF) {
  1391. soft_pwm_isr();
  1392. }
  1393. ENABLE_SOFT_PWM_INTERRUPT();
  1394. }
  1395. void check_max_temp_raw()
  1396. {
  1397. //heater
  1398. #if HEATER_0_RAW_LO_TEMP > HEATER_0_RAW_HI_TEMP
  1399. if (current_temperature_raw[0] <= maxttemp_raw[0]) {
  1400. #else
  1401. if (current_temperature_raw[0] >= maxttemp_raw[0]) {
  1402. #endif
  1403. set_temp_error(TempErrorSource::hotend, 0, TempErrorType::max);
  1404. }
  1405. //bed
  1406. #if defined(BED_MAXTEMP) && (TEMP_SENSOR_BED != 0)
  1407. #if HEATER_BED_RAW_LO_TEMP > HEATER_BED_RAW_HI_TEMP
  1408. if (current_temperature_bed_raw <= bed_maxttemp_raw) {
  1409. #else
  1410. if (current_temperature_bed_raw >= bed_maxttemp_raw) {
  1411. #endif
  1412. set_temp_error(TempErrorSource::bed, 0, TempErrorType::max);
  1413. }
  1414. #endif
  1415. //ambient
  1416. #if defined(AMBIENT_MAXTEMP) && (TEMP_SENSOR_AMBIENT != 0)
  1417. #if AMBIENT_RAW_LO_TEMP > AMBIENT_RAW_HI_TEMP
  1418. if (current_temperature_raw_ambient <= ambient_maxttemp_raw) {
  1419. #else
  1420. if (current_temperature_raw_ambient >= ambient_maxttemp_raw) {
  1421. #endif
  1422. set_temp_error(TempErrorSource::ambient, 0, TempErrorType::max);
  1423. }
  1424. #endif
  1425. }
  1426. //! number of repeating the same state with consecutive step() calls
  1427. //! used to slow down text switching
  1428. struct alert_automaton_mintemp {
  1429. const char *m2;
  1430. alert_automaton_mintemp(const char *m2):m2(m2){}
  1431. private:
  1432. enum { ALERT_AUTOMATON_SPEED_DIV = 5 };
  1433. enum class States : uint8_t { Init = 0, TempAboveMintemp, ShowPleaseRestart, ShowMintemp };
  1434. States state = States::Init;
  1435. uint8_t repeat = ALERT_AUTOMATON_SPEED_DIV;
  1436. void substep(const char* next_msg, States next_state){
  1437. if( repeat == 0 ){
  1438. state = next_state; // advance to the next state
  1439. lcd_setalertstatuspgm(next_msg, LCD_STATUS_CRITICAL);
  1440. repeat = ALERT_AUTOMATON_SPEED_DIV; // and prepare repeating for it too
  1441. } else {
  1442. --repeat;
  1443. }
  1444. }
  1445. public:
  1446. //! brief state automaton step routine
  1447. //! @param current_temp current hotend/bed temperature (for computing simple hysteresis)
  1448. //! @param mintemp minimal temperature including hysteresis to check current_temp against
  1449. void step(float current_temp, float mintemp){
  1450. static const char m1[] PROGMEM = "Please restart";
  1451. switch(state){
  1452. case States::Init: // initial state - check hysteresis
  1453. if( current_temp > mintemp ){
  1454. lcd_setalertstatuspgm(m2, LCD_STATUS_CRITICAL);
  1455. state = States::TempAboveMintemp;
  1456. }
  1457. // otherwise keep the Err MINTEMP alert message on the display,
  1458. // i.e. do not transfer to state 1
  1459. break;
  1460. case States::TempAboveMintemp: // the temperature has risen above the hysteresis check
  1461. case States::ShowMintemp: // displaying "MINTEMP fixed"
  1462. substep(m1, States::ShowPleaseRestart);
  1463. break;
  1464. case States::ShowPleaseRestart: // displaying "Please restart"
  1465. substep(m2, States::ShowMintemp);
  1466. break;
  1467. }
  1468. }
  1469. };
  1470. static const char m2hotend[] PROGMEM = "MINTEMP HOTEND fixed";
  1471. static const char m2bed[] PROGMEM = "MINTEMP BED fixed";
  1472. static alert_automaton_mintemp alert_automaton_hotend(m2hotend), alert_automaton_bed(m2bed);
  1473. void check_min_temp_heater0()
  1474. {
  1475. #if HEATER_0_RAW_LO_TEMP > HEATER_0_RAW_HI_TEMP
  1476. if (current_temperature_raw[0] >= minttemp_raw[0]) {
  1477. #else
  1478. if (current_temperature_raw[0] <= minttemp_raw[0]) {
  1479. #endif
  1480. set_temp_error(TempErrorSource::hotend, 0, TempErrorType::min);
  1481. }
  1482. }
  1483. void check_min_temp_bed()
  1484. {
  1485. #if HEATER_BED_RAW_LO_TEMP > HEATER_BED_RAW_HI_TEMP
  1486. if (current_temperature_bed_raw >= bed_minttemp_raw) {
  1487. #else
  1488. if (current_temperature_bed_raw <= bed_minttemp_raw) {
  1489. #endif
  1490. set_temp_error(TempErrorSource::bed, 0, TempErrorType::min);
  1491. }
  1492. }
  1493. #ifdef AMBIENT_MINTEMP
  1494. void check_min_temp_ambient()
  1495. {
  1496. #if AMBIENT_RAW_LO_TEMP > AMBIENT_RAW_HI_TEMP
  1497. if (current_temperature_raw_ambient >= ambient_minttemp_raw) {
  1498. #else
  1499. if (current_temperature_raw_ambient <= ambient_minttemp_raw) {
  1500. #endif
  1501. set_temp_error(TempErrorSource::ambient, 0, TempErrorType::min);
  1502. }
  1503. }
  1504. #endif
  1505. void handle_temp_error()
  1506. {
  1507. // relay to the original handler
  1508. switch((TempErrorType)temp_error_state.type) {
  1509. case TempErrorType::min:
  1510. switch((TempErrorSource)temp_error_state.source) {
  1511. case TempErrorSource::hotend:
  1512. if(temp_error_state.assert) {
  1513. min_temp_error(temp_error_state.index);
  1514. } else {
  1515. // no recovery, just force the user to restart the printer
  1516. // which is a safer variant than just continuing printing
  1517. // The automaton also checks for hysteresis - the temperature must have reached a few degrees above the MINTEMP, before
  1518. // we shall signalize, that MINTEMP has been fixed
  1519. // Code notice: normally the alert_automaton instance would have been placed here
  1520. // as static alert_automaton_mintemp alert_automaton_hotend, but
  1521. alert_automaton_hotend.step(current_temperature[0], minttemp[0] + TEMP_HYSTERESIS);
  1522. }
  1523. break;
  1524. case TempErrorSource::bed:
  1525. if(temp_error_state.assert) {
  1526. bed_min_temp_error();
  1527. } else {
  1528. // no recovery, just force the user to restart the printer
  1529. // which is a safer variant than just continuing printing
  1530. alert_automaton_bed.step(current_temperature_bed, BED_MINTEMP + TEMP_HYSTERESIS);
  1531. }
  1532. break;
  1533. #ifdef AMBIENT_THERMISTOR
  1534. case TempErrorSource::ambient:
  1535. ambient_min_temp_error();
  1536. break;
  1537. #endif
  1538. }
  1539. break;
  1540. case TempErrorType::max:
  1541. switch((TempErrorSource)temp_error_state.source) {
  1542. case TempErrorSource::hotend:
  1543. max_temp_error(temp_error_state.index);
  1544. break;
  1545. case TempErrorSource::bed:
  1546. bed_max_temp_error();
  1547. break;
  1548. #ifdef AMBIENT_THERMISTOR
  1549. case TempErrorSource::ambient:
  1550. ambient_max_temp_error();
  1551. break;
  1552. #endif
  1553. }
  1554. break;
  1555. case TempErrorType::preheat:
  1556. case TempErrorType::runaway:
  1557. switch((TempErrorSource)temp_error_state.source) {
  1558. case TempErrorSource::hotend:
  1559. case TempErrorSource::bed:
  1560. temp_runaway_stop(
  1561. ((TempErrorType)temp_error_state.type == TempErrorType::preheat),
  1562. ((TempErrorSource)temp_error_state.source == TempErrorSource::bed));
  1563. break;
  1564. #ifdef AMBIENT_THERMISTOR
  1565. case TempErrorSource::ambient:
  1566. // not needed
  1567. break;
  1568. #endif
  1569. }
  1570. break;
  1571. #ifdef TEMP_MODEL
  1572. case TempErrorType::model:
  1573. if(temp_error_state.assert) {
  1574. if(IsStopped() == false) {
  1575. SERIAL_ECHOLNPGM("TM: error triggered!");
  1576. }
  1577. ThermalStop(true);
  1578. WRITE(BEEPER, HIGH);
  1579. } else {
  1580. temp_error_state.v = 0;
  1581. WRITE(BEEPER, LOW);
  1582. menu_unset_block(MENU_BLOCK_THERMAL_ERROR);
  1583. // hotend error was transitory and disappeared, re-enable bed
  1584. if (!target_temperature_bed)
  1585. target_temperature_bed = saved_bed_temperature;
  1586. SERIAL_ECHOLNPGM("TM: error cleared");
  1587. }
  1588. break;
  1589. #endif
  1590. }
  1591. }
  1592. #ifdef PIDTEMP
  1593. // Apply the scale factors to the PID values
  1594. float scalePID_i(float i)
  1595. {
  1596. return i*PID_dT;
  1597. }
  1598. float unscalePID_i(float i)
  1599. {
  1600. return i/PID_dT;
  1601. }
  1602. float scalePID_d(float d)
  1603. {
  1604. return d/PID_dT;
  1605. }
  1606. float unscalePID_d(float d)
  1607. {
  1608. return d*PID_dT;
  1609. }
  1610. #endif //PIDTEMP
  1611. #ifdef PINDA_THERMISTOR
  1612. //! @brief PINDA thermistor detected
  1613. //!
  1614. //! @retval true firmware should do temperature compensation and allow calibration
  1615. //! @retval false PINDA thermistor is not detected, disable temperature compensation and calibration
  1616. //! @retval true/false when forced via LCD menu Settings->HW Setup->SuperPINDA
  1617. //!
  1618. bool has_temperature_compensation()
  1619. {
  1620. #ifdef SUPERPINDA_SUPPORT
  1621. #ifdef PINDA_TEMP_COMP
  1622. uint8_t pinda_temp_compensation = eeprom_read_byte((uint8_t*)EEPROM_PINDA_TEMP_COMPENSATION);
  1623. if (pinda_temp_compensation == EEPROM_EMPTY_VALUE) //Unkown PINDA temp compenstation, so check it.
  1624. {
  1625. #endif //PINDA_TEMP_COMP
  1626. return (current_temperature_pinda >= PINDA_MINTEMP) ? true : false;
  1627. #ifdef PINDA_TEMP_COMP
  1628. }
  1629. else if (pinda_temp_compensation == 0) return true; //Overwritten via LCD menu SuperPINDA [No]
  1630. else return false; //Overwritten via LCD menu SuperPINDA [YES]
  1631. #endif //PINDA_TEMP_COMP
  1632. #else
  1633. return true;
  1634. #endif
  1635. }
  1636. #endif //PINDA_THERMISTOR
  1637. // RAII helper class to run a code block with temp_mgr_isr disabled
  1638. class TempMgrGuard
  1639. {
  1640. bool temp_mgr_state;
  1641. public:
  1642. TempMgrGuard() {
  1643. ATOMIC_BLOCK(ATOMIC_RESTORESTATE) {
  1644. temp_mgr_state = TEMP_MGR_INTERRUPT_STATE();
  1645. DISABLE_TEMP_MGR_INTERRUPT();
  1646. }
  1647. }
  1648. ~TempMgrGuard() throw() {
  1649. ATOMIC_BLOCK(ATOMIC_RESTORESTATE) {
  1650. if(temp_mgr_state) ENABLE_TEMP_MGR_INTERRUPT();
  1651. }
  1652. }
  1653. };
  1654. void temp_mgr_init()
  1655. {
  1656. // initialize the ADC and start a conversion
  1657. adc_init();
  1658. adc_start_cycle();
  1659. // initialize temperature timer
  1660. ATOMIC_BLOCK(ATOMIC_RESTORESTATE) {
  1661. // CTC
  1662. TCCRxB &= ~(1<<WGMx3);
  1663. TCCRxB |= (1<<WGMx2);
  1664. TCCRxA &= ~(1<<WGMx1);
  1665. TCCRxA &= ~(1<<WGMx0);
  1666. // output mode = 00 (disconnected)
  1667. TCCRxA &= ~(3<<COMxA0);
  1668. TCCRxA &= ~(3<<COMxB0);
  1669. // x/256 prescaler
  1670. TCCRxB |= (1<<CSx2);
  1671. TCCRxB &= ~(1<<CSx1);
  1672. TCCRxB &= ~(1<<CSx0);
  1673. // reset counter
  1674. TCNTx = 0;
  1675. OCRxA = TEMP_TIM_OCRA_OVF;
  1676. // clear pending interrupts, enable COMPA
  1677. TEMP_MGR_INT_FLAG_CLEAR();
  1678. ENABLE_TEMP_MGR_INTERRUPT();
  1679. }
  1680. }
  1681. static void pid_heater(uint8_t e, const float current, const int target)
  1682. {
  1683. float pid_input;
  1684. float pid_output;
  1685. #ifdef PIDTEMP
  1686. pid_input = current;
  1687. #ifndef PID_OPENLOOP
  1688. if(target == 0) {
  1689. pid_output = 0;
  1690. pid_reset[e] = true;
  1691. } else {
  1692. pid_error[e] = target - pid_input;
  1693. if(pid_reset[e]) {
  1694. iState_sum[e] = 0.0;
  1695. dTerm[e] = 0.0; // 'dState_last[e]' initial setting is not necessary (see end of if-statement)
  1696. pid_reset[e] = false;
  1697. }
  1698. #ifndef PonM
  1699. pTerm[e] = cs.Kp * pid_error[e];
  1700. iState_sum[e] += pid_error[e];
  1701. iState_sum[e] = constrain(iState_sum[e], iState_sum_min[e], iState_sum_max[e]);
  1702. iTerm[e] = cs.Ki * iState_sum[e];
  1703. // PID_K1 defined in Configuration.h in the PID settings
  1704. #define K2 (1.0-PID_K1)
  1705. dTerm[e] = (cs.Kd * (pid_input - dState_last[e]))*K2 + (PID_K1 * dTerm[e]); // e.g. digital filtration of derivative term changes
  1706. pid_output = pTerm[e] + iTerm[e] - dTerm[e]; // subtraction due to "Derivative on Measurement" method (i.e. derivative of input instead derivative of error is used)
  1707. if (pid_output > PID_MAX) {
  1708. if (pid_error[e] > 0 ) iState_sum[e] -= pid_error[e]; // conditional un-integration
  1709. pid_output=PID_MAX;
  1710. } else if (pid_output < 0) {
  1711. if (pid_error[e] < 0 ) iState_sum[e] -= pid_error[e]; // conditional un-integration
  1712. pid_output=0;
  1713. }
  1714. #else // PonM ("Proportional on Measurement" method)
  1715. iState_sum[e] += cs.Ki * pid_error[e];
  1716. iState_sum[e] -= cs.Kp * (pid_input - dState_last[e]);
  1717. iState_sum[e] = constrain(iState_sum[e], 0, PID_INTEGRAL_DRIVE_MAX);
  1718. dTerm[e] = cs.Kd * (pid_input - dState_last[e]);
  1719. pid_output = iState_sum[e] - dTerm[e]; // subtraction due to "Derivative on Measurement" method (i.e. derivative of input instead derivative of error is used)
  1720. pid_output = constrain(pid_output, 0, PID_MAX);
  1721. #endif // PonM
  1722. }
  1723. dState_last[e] = pid_input;
  1724. #else //PID_OPENLOOP
  1725. pid_output = constrain(target[e], 0, PID_MAX);
  1726. #endif //PID_OPENLOOP
  1727. #ifdef PID_DEBUG
  1728. SERIAL_ECHO_START;
  1729. SERIAL_ECHO(" PID_DEBUG ");
  1730. SERIAL_ECHO(e);
  1731. SERIAL_ECHO(": Input ");
  1732. SERIAL_ECHO(pid_input);
  1733. SERIAL_ECHO(" Output ");
  1734. SERIAL_ECHO(pid_output);
  1735. SERIAL_ECHO(" pTerm ");
  1736. SERIAL_ECHO(pTerm[e]);
  1737. SERIAL_ECHO(" iTerm ");
  1738. SERIAL_ECHO(iTerm[e]);
  1739. SERIAL_ECHO(" dTerm ");
  1740. SERIAL_ECHOLN(-dTerm[e]);
  1741. #endif //PID_DEBUG
  1742. #else /* PID off */
  1743. pid_output = 0;
  1744. if(current[e] < target[e]) {
  1745. pid_output = PID_MAX;
  1746. }
  1747. #endif
  1748. // Check if temperature is within the correct range
  1749. if((current < maxttemp[e]) && (target != 0))
  1750. soft_pwm[e] = (int)pid_output >> 1;
  1751. else
  1752. soft_pwm[e] = 0;
  1753. }
  1754. static void pid_bed(const float current, const int target)
  1755. {
  1756. float pid_input;
  1757. float pid_output;
  1758. #ifndef PIDTEMPBED
  1759. if(_millis() - previous_millis_bed_heater < BED_CHECK_INTERVAL)
  1760. return;
  1761. previous_millis_bed_heater = _millis();
  1762. #endif
  1763. #if TEMP_SENSOR_BED != 0
  1764. #ifdef PIDTEMPBED
  1765. pid_input = current;
  1766. #ifndef PID_OPENLOOP
  1767. pid_error_bed = target - pid_input;
  1768. pTerm_bed = cs.bedKp * pid_error_bed;
  1769. temp_iState_bed += pid_error_bed;
  1770. temp_iState_bed = constrain(temp_iState_bed, temp_iState_min_bed, temp_iState_max_bed);
  1771. iTerm_bed = cs.bedKi * temp_iState_bed;
  1772. //PID_K1 defined in Configuration.h in the PID settings
  1773. #define K2 (1.0-PID_K1)
  1774. dTerm_bed= (cs.bedKd * (pid_input - temp_dState_bed))*K2 + (PID_K1 * dTerm_bed);
  1775. temp_dState_bed = pid_input;
  1776. pid_output = pTerm_bed + iTerm_bed - dTerm_bed;
  1777. if (pid_output > MAX_BED_POWER) {
  1778. if (pid_error_bed > 0 ) temp_iState_bed -= pid_error_bed; // conditional un-integration
  1779. pid_output=MAX_BED_POWER;
  1780. } else if (pid_output < 0){
  1781. if (pid_error_bed < 0 ) temp_iState_bed -= pid_error_bed; // conditional un-integration
  1782. pid_output=0;
  1783. }
  1784. #else
  1785. pid_output = constrain(target, 0, MAX_BED_POWER);
  1786. #endif //PID_OPENLOOP
  1787. if(current < BED_MAXTEMP)
  1788. {
  1789. soft_pwm_bed = (int)pid_output >> 1;
  1790. timer02_set_pwm0(soft_pwm_bed << 1);
  1791. }
  1792. else
  1793. {
  1794. soft_pwm_bed = 0;
  1795. timer02_set_pwm0(soft_pwm_bed << 1);
  1796. }
  1797. #elif !defined(BED_LIMIT_SWITCHING)
  1798. // Check if temperature is within the correct range
  1799. if(current < BED_MAXTEMP)
  1800. {
  1801. if(current >= target)
  1802. {
  1803. soft_pwm_bed = 0;
  1804. timer02_set_pwm0(soft_pwm_bed << 1);
  1805. }
  1806. else
  1807. {
  1808. soft_pwm_bed = MAX_BED_POWER>>1;
  1809. timer02_set_pwm0(soft_pwm_bed << 1);
  1810. }
  1811. }
  1812. else
  1813. {
  1814. soft_pwm_bed = 0;
  1815. timer02_set_pwm0(soft_pwm_bed << 1);
  1816. WRITE(HEATER_BED_PIN,LOW);
  1817. }
  1818. #else //#ifdef BED_LIMIT_SWITCHING
  1819. // Check if temperature is within the correct band
  1820. if(current < BED_MAXTEMP)
  1821. {
  1822. if(current > target + BED_HYSTERESIS)
  1823. {
  1824. soft_pwm_bed = 0;
  1825. timer02_set_pwm0(soft_pwm_bed << 1);
  1826. }
  1827. else if(current <= target - BED_HYSTERESIS)
  1828. {
  1829. soft_pwm_bed = MAX_BED_POWER>>1;
  1830. timer02_set_pwm0(soft_pwm_bed << 1);
  1831. }
  1832. }
  1833. else
  1834. {
  1835. soft_pwm_bed = 0;
  1836. timer02_set_pwm0(soft_pwm_bed << 1);
  1837. WRITE(HEATER_BED_PIN,LOW);
  1838. }
  1839. #endif //BED_LIMIT_SWITCHING
  1840. if(target==0)
  1841. {
  1842. soft_pwm_bed = 0;
  1843. timer02_set_pwm0(soft_pwm_bed << 1);
  1844. }
  1845. #endif //TEMP_SENSOR_BED
  1846. }
  1847. // ISR-safe temperatures
  1848. static volatile bool adc_values_ready = false;
  1849. float current_temperature_isr[EXTRUDERS];
  1850. int target_temperature_isr[EXTRUDERS];
  1851. float current_temperature_bed_isr;
  1852. int target_temperature_bed_isr;
  1853. #ifdef PINDA_THERMISTOR
  1854. float current_temperature_pinda_isr;
  1855. #endif
  1856. #ifdef AMBIENT_THERMISTOR
  1857. float current_temperature_ambient_isr;
  1858. #endif
  1859. // ISR callback from adc when sampling finished
  1860. void adc_callback()
  1861. {
  1862. current_temperature_raw[0] = adc_values[ADC_PIN_IDX(TEMP_0_PIN)]; //heater
  1863. current_temperature_bed_raw = adc_values[ADC_PIN_IDX(TEMP_BED_PIN)];
  1864. #ifdef PINDA_THERMISTOR
  1865. current_temperature_raw_pinda = adc_values[ADC_PIN_IDX(TEMP_PINDA_PIN)];
  1866. #endif //PINDA_THERMISTOR
  1867. #ifdef AMBIENT_THERMISTOR
  1868. current_temperature_raw_ambient = adc_values[ADC_PIN_IDX(TEMP_AMBIENT_PIN)]; // 5->6
  1869. #endif //AMBIENT_THERMISTOR
  1870. #ifdef VOLT_PWR_PIN
  1871. current_voltage_raw_pwr = adc_values[ADC_PIN_IDX(VOLT_PWR_PIN)];
  1872. #endif
  1873. #ifdef VOLT_BED_PIN
  1874. current_voltage_raw_bed = adc_values[ADC_PIN_IDX(VOLT_BED_PIN)]; // 6->9
  1875. #endif
  1876. #ifdef IR_SENSOR_ANALOG
  1877. current_voltage_raw_IR = adc_values[ADC_PIN_IDX(VOLT_IR_PIN)];
  1878. #endif //IR_SENSOR_ANALOG
  1879. adc_values_ready = true;
  1880. }
  1881. static void setCurrentTemperaturesFromIsr()
  1882. {
  1883. for(uint8_t e=0;e<EXTRUDERS;e++)
  1884. current_temperature[e] = current_temperature_isr[e];
  1885. current_temperature_bed = current_temperature_bed_isr;
  1886. #ifdef PINDA_THERMISTOR
  1887. current_temperature_pinda = current_temperature_pinda_isr;
  1888. #endif
  1889. #ifdef AMBIENT_THERMISTOR
  1890. current_temperature_ambient = current_temperature_ambient_isr;
  1891. #endif
  1892. }
  1893. static void setIsrTargetTemperatures()
  1894. {
  1895. for(uint8_t e=0;e<EXTRUDERS;e++)
  1896. target_temperature_isr[e] = target_temperature[e];
  1897. target_temperature_bed_isr = target_temperature_bed;
  1898. }
  1899. /* Synchronize temperatures:
  1900. - fetch updated values from temp_mgr_isr to current values
  1901. - update target temperatures for temp_mgr_isr regulation *if* no temperature error is set
  1902. This function is blocking: check temp_meas_ready before calling! */
  1903. static void updateTemperatures()
  1904. {
  1905. TempMgrGuard temp_mgr_guard;
  1906. setCurrentTemperaturesFromIsr();
  1907. if(!temp_error_state.v) {
  1908. // refuse to update target temperatures in any error condition!
  1909. setIsrTargetTemperatures();
  1910. }
  1911. temp_meas_ready = false;
  1912. }
  1913. /* Convert raw values into actual temperatures for temp_mgr. The raw values are created in the ADC
  1914. interrupt context, while this function runs from temp_mgr_isr which *is* preemptible as
  1915. analog2temp is relatively slow */
  1916. static void setIsrTemperaturesFromRawValues()
  1917. {
  1918. for(uint8_t e=0;e<EXTRUDERS;e++)
  1919. current_temperature_isr[e] = analog2temp(current_temperature_raw[e], e);
  1920. current_temperature_bed_isr = analog2tempBed(current_temperature_bed_raw);
  1921. #ifdef PINDA_THERMISTOR
  1922. current_temperature_pinda_isr = analog2tempBed(current_temperature_raw_pinda);
  1923. #endif
  1924. #ifdef AMBIENT_THERMISTOR
  1925. current_temperature_ambient_isr = analog2tempAmbient(current_temperature_raw_ambient); //thermistor for ambient is NTCG104LH104JT1 (2000)
  1926. #endif
  1927. temp_meas_ready = true;
  1928. }
  1929. static void temp_mgr_pid()
  1930. {
  1931. for(uint8_t e = 0; e < EXTRUDERS; e++)
  1932. pid_heater(e, current_temperature_isr[e], target_temperature_isr[e]);
  1933. pid_bed(current_temperature_bed_isr, target_temperature_bed_isr);
  1934. }
  1935. static void check_temp_runaway()
  1936. {
  1937. #ifdef TEMP_RUNAWAY_EXTRUDER_HYSTERESIS
  1938. for(uint8_t e = 0; e < EXTRUDERS; e++)
  1939. temp_runaway_check(e+1, target_temperature_isr[e], current_temperature_isr[e], soft_pwm[e], false);
  1940. #endif
  1941. #ifdef TEMP_RUNAWAY_BED_HYSTERESIS
  1942. temp_runaway_check(0, target_temperature_bed_isr, current_temperature_bed_isr, soft_pwm_bed, true);
  1943. #endif
  1944. }
  1945. static void check_temp_raw();
  1946. static void temp_mgr_isr()
  1947. {
  1948. // update *_isr temperatures from raw values for PID regulation
  1949. setIsrTemperaturesFromRawValues();
  1950. // clear the error assertion flag before checking again
  1951. temp_error_state.assert = false;
  1952. check_temp_raw(); // check min/max temp using raw values
  1953. check_temp_runaway(); // classic temperature hysteresis check
  1954. #ifdef TEMP_MODEL
  1955. temp_model::check(); // model-based heater check
  1956. #ifdef TEMP_MODEL_DEBUG
  1957. temp_model::log_isr();
  1958. #endif
  1959. #endif
  1960. // PID regulation
  1961. if (pid_tuning_finished)
  1962. temp_mgr_pid();
  1963. }
  1964. ISR(TIMERx_COMPA_vect)
  1965. {
  1966. // immediately schedule a new conversion
  1967. if(adc_values_ready != true) return;
  1968. adc_values_ready = false;
  1969. adc_start_cycle();
  1970. // run temperature management with interrupts enabled to reduce latency
  1971. DISABLE_TEMP_MGR_INTERRUPT();
  1972. NONATOMIC_BLOCK(NONATOMIC_FORCEOFF) {
  1973. temp_mgr_isr();
  1974. }
  1975. ENABLE_TEMP_MGR_INTERRUPT();
  1976. }
  1977. void disable_heater()
  1978. {
  1979. setAllTargetHotends(0);
  1980. setTargetBed(0);
  1981. ATOMIC_BLOCK(ATOMIC_RESTORESTATE) {
  1982. // propagate all values down the chain
  1983. setIsrTargetTemperatures();
  1984. temp_mgr_pid();
  1985. // we can't call soft_pwm_core directly to toggle the pins as it would require removing the inline
  1986. // attribute, so disable each pin individually
  1987. #if defined(HEATER_0_PIN) && HEATER_0_PIN > -1 && EXTRUDERS > 0
  1988. WRITE(HEATER_0_PIN,LOW);
  1989. #endif
  1990. #if defined(HEATER_1_PIN) && HEATER_1_PIN > -1 && EXTRUDERS > 1
  1991. WRITE(HEATER_1_PIN,LOW);
  1992. #endif
  1993. #if defined(HEATER_2_PIN) && HEATER_2_PIN > -1 && EXTRUDERS > 2
  1994. WRITE(HEATER_2_PIN,LOW);
  1995. #endif
  1996. #if defined(HEATER_BED_PIN) && HEATER_BED_PIN > -1
  1997. // TODO: this doesn't take immediate effect!
  1998. timer02_set_pwm0(0);
  1999. bedPWMDisabled = 0;
  2000. #endif
  2001. }
  2002. }
  2003. static void check_min_temp_raw()
  2004. {
  2005. static bool bCheckingOnHeater = false; // state variable, which allows to short no-checking delay (is set, when temperature is (first time) over heaterMintemp)
  2006. static bool bCheckingOnBed = false; // state variable, which allows to short no-checking delay (is set, when temperature is (first time) over bedMintemp)
  2007. static ShortTimer oTimer4minTempHeater;
  2008. static ShortTimer oTimer4minTempBed;
  2009. #ifdef AMBIENT_THERMISTOR
  2010. #ifdef AMBIENT_MINTEMP
  2011. // we need to check ambient temperature
  2012. check_min_temp_ambient();
  2013. #endif
  2014. #if AMBIENT_RAW_LO_TEMP > AMBIENT_RAW_HI_TEMP
  2015. if(current_temperature_raw_ambient>(OVERSAMPLENR*MINTEMP_MINAMBIENT_RAW)) // thermistor is NTC type
  2016. #else
  2017. if(current_temperature_raw_ambient=<(OVERSAMPLENR*MINTEMP_MINAMBIENT_RAW))
  2018. #endif
  2019. {
  2020. // ambient temperature is low
  2021. #endif //AMBIENT_THERMISTOR
  2022. // *** 'common' part of code for MK2.5 & MK3
  2023. // * nozzle checking
  2024. if(target_temperature_isr[active_extruder]>minttemp[active_extruder]) {
  2025. // ~ nozzle heating is on
  2026. bCheckingOnHeater=bCheckingOnHeater||(current_temperature_isr[active_extruder]>(minttemp[active_extruder]+TEMP_HYSTERESIS)); // for eventually delay cutting
  2027. if(oTimer4minTempHeater.expired(HEATER_MINTEMP_DELAY)||(!oTimer4minTempHeater.running())||bCheckingOnHeater) {
  2028. bCheckingOnHeater=true; // not necessary
  2029. check_min_temp_heater0(); // delay is elapsed or temperature is/was over minTemp => periodical checking is active
  2030. }
  2031. }
  2032. else {
  2033. // ~ nozzle heating is off
  2034. oTimer4minTempHeater.start();
  2035. bCheckingOnHeater=false;
  2036. }
  2037. // * bed checking
  2038. if(target_temperature_bed_isr>BED_MINTEMP) {
  2039. // ~ bed heating is on
  2040. bCheckingOnBed=bCheckingOnBed||(current_temperature_bed_isr>(BED_MINTEMP+TEMP_HYSTERESIS)); // for eventually delay cutting
  2041. if(oTimer4minTempBed.expired(BED_MINTEMP_DELAY)||(!oTimer4minTempBed.running())||bCheckingOnBed) {
  2042. bCheckingOnBed=true; // not necessary
  2043. check_min_temp_bed(); // delay is elapsed or temperature is/was over minTemp => periodical checking is active
  2044. }
  2045. }
  2046. else {
  2047. // ~ bed heating is off
  2048. oTimer4minTempBed.start();
  2049. bCheckingOnBed=false;
  2050. }
  2051. // *** end of 'common' part
  2052. #ifdef AMBIENT_THERMISTOR
  2053. }
  2054. else {
  2055. // ambient temperature is standard
  2056. check_min_temp_heater0();
  2057. check_min_temp_bed();
  2058. }
  2059. #endif //AMBIENT_THERMISTOR
  2060. }
  2061. static void check_temp_raw()
  2062. {
  2063. // order is relevant: check_min_temp_raw requires max to be reliable due to
  2064. // ambient temperature being used for low handling temperatures
  2065. check_max_temp_raw();
  2066. check_min_temp_raw();
  2067. }
  2068. #ifdef TEMP_MODEL
  2069. namespace temp_model {
  2070. void model_data::reset(uint8_t heater_pwm _UNUSED, uint8_t fan_pwm _UNUSED,
  2071. float heater_temp _UNUSED, float ambient_temp _UNUSED)
  2072. {
  2073. // pre-compute invariant values
  2074. C_i = (TEMP_MGR_INTV / C);
  2075. warn_s = warn * TEMP_MGR_INTV;
  2076. err_s = err * TEMP_MGR_INTV;
  2077. // initial values
  2078. for(uint8_t i = 0; i != TEMP_MODEL_LAG_SIZE; ++i)
  2079. dT_lag_buf[i] = NAN;
  2080. dT_lag_idx = 0;
  2081. dT_err_prev = 0;
  2082. T_prev = NAN;
  2083. // clear the initialization flag
  2084. flag_bits.uninitialized = false;
  2085. }
  2086. static constexpr float iir_mul(const float a, const float b, const float f, const float nanv)
  2087. {
  2088. const float a_ = !isnan(a) ? a : nanv;
  2089. return (a_ * (1.f - f)) + (b * f);
  2090. }
  2091. void model_data::step(uint8_t heater_pwm, uint8_t fan_pwm, float heater_temp, float ambient_temp)
  2092. {
  2093. constexpr float soft_pwm_inv = 1. / ((1 << 7) - 1);
  2094. // input values
  2095. const float heater_scale = soft_pwm_inv * heater_pwm;
  2096. const float cur_heater_temp = heater_temp;
  2097. const float cur_ambient_temp = ambient_temp + Ta_corr;
  2098. const float cur_R = R[fan_pwm]; // resistance at current fan power (K/W)
  2099. float dP = P * heater_scale; // current power [W]
  2100. float dPl = (cur_heater_temp - cur_ambient_temp) / cur_R; // [W] leakage power
  2101. float dT = (dP - dPl) * C_i; // expected temperature difference (K)
  2102. // filter and lag dT
  2103. uint8_t dT_next_idx = (dT_lag_idx == (TEMP_MODEL_LAG_SIZE - 1) ? 0: dT_lag_idx + 1);
  2104. float dT_lag = dT_lag_buf[dT_next_idx];
  2105. float dT_lag_prev = dT_lag_buf[dT_lag_idx];
  2106. float dT_f = iir_mul(dT_lag_prev, dT, TEMP_MODEL_fS, dT);
  2107. dT_lag_buf[dT_next_idx] = dT_f;
  2108. dT_lag_idx = dT_next_idx;
  2109. // calculate and filter dT_err
  2110. float dT_err = (cur_heater_temp - T_prev) - dT_lag;
  2111. float dT_err_f = iir_mul(dT_err_prev, dT_err, TEMP_MODEL_fE, 0.);
  2112. T_prev = cur_heater_temp;
  2113. dT_err_prev = dT_err_f;
  2114. // check and trigger errors
  2115. flag_bits.error = (fabsf(dT_err_f) > err_s);
  2116. flag_bits.warning = (fabsf(dT_err_f) > warn_s);
  2117. }
  2118. // verify calibration status and trigger a model reset if valid
  2119. void setup()
  2120. {
  2121. if(!calibrated()) enabled = false;
  2122. data.flag_bits.uninitialized = true;
  2123. }
  2124. bool calibrated()
  2125. {
  2126. if(!(data.P >= 0)) return false;
  2127. if(!(data.C >= 0)) return false;
  2128. if(!(data.Ta_corr != NAN)) return false;
  2129. for(uint8_t i = 0; i != TEMP_MODEL_R_SIZE; ++i) {
  2130. if(!(temp_model::data.R[i] >= 0))
  2131. return false;
  2132. }
  2133. if(!(data.warn != NAN)) return false;
  2134. if(!(data.err != NAN)) return false;
  2135. return true;
  2136. }
  2137. void check()
  2138. {
  2139. if(!enabled) return;
  2140. uint8_t heater_pwm = soft_pwm[0];
  2141. uint8_t fan_pwm = soft_pwm_fan;
  2142. float heater_temp = current_temperature_isr[0];
  2143. float ambient_temp = current_temperature_ambient_isr;
  2144. // check if a reset is required to seed the model: this needs to be done with valid
  2145. // ADC values, so we can't do that directly in init()
  2146. if(data.flag_bits.uninitialized)
  2147. data.reset(heater_pwm, fan_pwm, heater_temp, ambient_temp);
  2148. // step the model
  2149. data.step(heater_pwm, fan_pwm, heater_temp, ambient_temp);
  2150. // handle errors
  2151. if(data.flag_bits.error)
  2152. set_temp_error(TempErrorSource::hotend, 0, TempErrorType::model);
  2153. // handle warning conditions as lower-priority but with greater feedback
  2154. warning_state.assert = data.flag_bits.warning;
  2155. if(warning_state.assert) {
  2156. warning_state.warning = true;
  2157. warning_state.dT_err = temp_model::data.dT_err_prev;
  2158. }
  2159. }
  2160. void handle_warning()
  2161. {
  2162. // update values
  2163. float warn = data.warn;
  2164. float dT_err;
  2165. {
  2166. TempMgrGuard temp_mgr_guard;
  2167. dT_err = warning_state.dT_err;
  2168. }
  2169. dT_err /= TEMP_MGR_INTV; // per-sample => K/s
  2170. printf_P(PSTR("TM: error |%f|>%f\n"), (double)dT_err, (double)warn);
  2171. static bool first = true;
  2172. if(warning_state.assert) {
  2173. if (first) {
  2174. if(warn_beep) {
  2175. lcd_setalertstatuspgm(_T(MSG_THERMAL_ANOMALY), LCD_STATUS_INFO);
  2176. WRITE(BEEPER, HIGH);
  2177. }
  2178. } else {
  2179. if(warn_beep) TOGGLE(BEEPER);
  2180. }
  2181. } else {
  2182. // warning cleared, reset state
  2183. warning_state.warning = false;
  2184. if(warn_beep) WRITE(BEEPER, LOW);
  2185. first = true;
  2186. }
  2187. }
  2188. #ifdef TEMP_MODEL_DEBUG
  2189. void log_usr()
  2190. {
  2191. if(!log_buf.enabled) return;
  2192. uint8_t counter = log_buf.entry.counter;
  2193. if (counter == log_buf.serial) return;
  2194. int8_t delta_ms;
  2195. uint8_t cur_pwm;
  2196. // avoid strict-aliasing warnings
  2197. union { float cur_temp; uint32_t cur_temp_b; };
  2198. union { float cur_amb; uint32_t cur_amb_b; };
  2199. {
  2200. TempMgrGuard temp_mgr_guard;
  2201. delta_ms = log_buf.entry.delta_ms;
  2202. counter = log_buf.entry.counter;
  2203. cur_pwm = log_buf.entry.cur_pwm;
  2204. cur_temp = log_buf.entry.cur_temp;
  2205. cur_amb = log_buf.entry.cur_amb;
  2206. }
  2207. uint8_t d = counter - log_buf.serial;
  2208. log_buf.serial = counter;
  2209. printf_P(PSTR("TML %d %d %x %lx %lx\n"), (unsigned)d - 1, (int)delta_ms + 1,
  2210. (int)cur_pwm, (unsigned long)cur_temp_b, (unsigned long)cur_amb_b);
  2211. }
  2212. void log_isr()
  2213. {
  2214. if(!log_buf.enabled) return;
  2215. uint32_t stamp = _millis();
  2216. uint8_t delta_ms = stamp - log_buf.entry.stamp - (uint32_t)(TEMP_MGR_INTV * 1000);
  2217. log_buf.entry.stamp = stamp;
  2218. ++log_buf.entry.counter;
  2219. log_buf.entry.delta_ms = delta_ms;
  2220. log_buf.entry.cur_pwm = soft_pwm[0];
  2221. log_buf.entry.cur_temp = current_temperature_isr[0];
  2222. log_buf.entry.cur_amb = current_temperature_ambient_isr;
  2223. }
  2224. #endif
  2225. } // namespace temp_model
  2226. static void temp_model_reset_enabled(bool enabled)
  2227. {
  2228. TempMgrGuard temp_mgr_guard;
  2229. temp_model::enabled = enabled;
  2230. temp_model::data.flag_bits.uninitialized = true;
  2231. }
  2232. void temp_model_set_enabled(bool enabled)
  2233. {
  2234. // set the enabled flag
  2235. {
  2236. TempMgrGuard temp_mgr_guard;
  2237. temp_model::enabled = enabled;
  2238. temp_model::setup();
  2239. }
  2240. // verify that the model has been enabled
  2241. if(enabled && !temp_model::enabled)
  2242. SERIAL_ECHOLNPGM("TM: invalid parameters, cannot enable");
  2243. }
  2244. void temp_model_set_warn_beep(bool enabled)
  2245. {
  2246. temp_model::warn_beep = enabled;
  2247. }
  2248. void temp_model_set_params(float C, float P, float Ta_corr, float warn, float err)
  2249. {
  2250. TempMgrGuard temp_mgr_guard;
  2251. if(!isnan(C) && C > 0) temp_model::data.C = C;
  2252. if(!isnan(P) && P > 0) temp_model::data.P = P;
  2253. if(!isnan(Ta_corr)) temp_model::data.Ta_corr = Ta_corr;
  2254. if(!isnan(err) && err > 0) temp_model::data.err = err;
  2255. if(!isnan(warn) && warn > 0) temp_model::data.warn = warn;
  2256. // ensure warn <= err
  2257. if (temp_model::data.warn > temp_model::data.err)
  2258. temp_model::data.warn = temp_model::data.err;
  2259. temp_model::setup();
  2260. }
  2261. void temp_model_set_resistance(uint8_t index, float R)
  2262. {
  2263. if(index >= TEMP_MODEL_R_SIZE || R <= 0)
  2264. return;
  2265. TempMgrGuard temp_mgr_guard;
  2266. temp_model::data.R[index] = R;
  2267. temp_model::setup();
  2268. }
  2269. void temp_model_report_settings()
  2270. {
  2271. SERIAL_ECHO_START;
  2272. SERIAL_ECHOLNPGM("Temperature Model settings:");
  2273. for(uint8_t i = 0; i != TEMP_MODEL_R_SIZE; ++i)
  2274. printf_P(PSTR("%S M310 I%u R%.2f\n"), echomagic, (unsigned)i, (double)temp_model::data.R[i]);
  2275. printf_P(PSTR("%S M310 P%.2f C%.2f S%u B%u E%.2f W%.2f T%.2f\n"),
  2276. echomagic, (double)temp_model::data.P, (double)temp_model::data.C,
  2277. (unsigned)temp_model::enabled, (unsigned)temp_model::warn_beep,
  2278. (double)temp_model::data.err, (double)temp_model::data.warn,
  2279. (double)temp_model::data.Ta_corr);
  2280. }
  2281. void temp_model_reset_settings()
  2282. {
  2283. TempMgrGuard temp_mgr_guard;
  2284. temp_model::data.P = TEMP_MODEL_P;
  2285. temp_model::data.C = TEMP_MODEL_C;
  2286. for(uint8_t i = 0; i != TEMP_MODEL_R_SIZE; ++i)
  2287. temp_model::data.R[i] = pgm_read_float(TEMP_MODEL_R_DEFAULT + i);
  2288. temp_model::data.Ta_corr = TEMP_MODEL_Ta_corr;
  2289. temp_model::data.warn = TEMP_MODEL_W;
  2290. temp_model::data.err = TEMP_MODEL_E;
  2291. temp_model::warn_beep = true;
  2292. temp_model::enabled = true;
  2293. }
  2294. void temp_model_load_settings()
  2295. {
  2296. static_assert(TEMP_MODEL_R_SIZE == 16); // ensure we don't desync with the eeprom table
  2297. TempMgrGuard temp_mgr_guard;
  2298. temp_model::enabled = eeprom_read_byte((uint8_t*)EEPROM_TEMP_MODEL_ENABLE);
  2299. temp_model::data.P = eeprom_read_float((float*)EEPROM_TEMP_MODEL_P);
  2300. temp_model::data.C = eeprom_read_float((float*)EEPROM_TEMP_MODEL_C);
  2301. for(uint8_t i = 0; i != TEMP_MODEL_R_SIZE; ++i)
  2302. temp_model::data.R[i] = eeprom_read_float((float*)EEPROM_TEMP_MODEL_R + i);
  2303. temp_model::data.Ta_corr = eeprom_read_float((float*)EEPROM_TEMP_MODEL_Ta_corr);
  2304. temp_model::data.warn = eeprom_read_float((float*)EEPROM_TEMP_MODEL_W);
  2305. temp_model::data.err = eeprom_read_float((float*)EEPROM_TEMP_MODEL_E);
  2306. if(!temp_model::calibrated()) {
  2307. SERIAL_ECHOLNPGM("TM: stored calibration invalid, resetting");
  2308. temp_model_reset_settings();
  2309. }
  2310. temp_model::setup();
  2311. }
  2312. void temp_model_save_settings()
  2313. {
  2314. eeprom_update_byte((uint8_t*)EEPROM_TEMP_MODEL_ENABLE, temp_model::enabled);
  2315. eeprom_update_float((float*)EEPROM_TEMP_MODEL_P, temp_model::data.P);
  2316. eeprom_update_float((float*)EEPROM_TEMP_MODEL_C, temp_model::data.C);
  2317. for(uint8_t i = 0; i != TEMP_MODEL_R_SIZE; ++i)
  2318. eeprom_update_float((float*)EEPROM_TEMP_MODEL_R + i, temp_model::data.R[i]);
  2319. eeprom_update_float((float*)EEPROM_TEMP_MODEL_Ta_corr, temp_model::data.Ta_corr);
  2320. eeprom_update_float((float*)EEPROM_TEMP_MODEL_W, temp_model::data.warn);
  2321. eeprom_update_float((float*)EEPROM_TEMP_MODEL_E, temp_model::data.err);
  2322. }
  2323. namespace temp_model_cal {
  2324. // set current fan speed for both front/backend
  2325. static __attribute__((noinline)) void set_fan_speed(uint8_t fan_speed)
  2326. {
  2327. fanSpeed = fan_speed;
  2328. #ifdef FAN_SOFT_PWM
  2329. fanSpeedSoftPwm = fan_speed;
  2330. #endif
  2331. }
  2332. static void waiting_handler()
  2333. {
  2334. manage_heater();
  2335. host_keepalive();
  2336. host_autoreport();
  2337. checkFans();
  2338. lcd_update(0);
  2339. }
  2340. static void wait(unsigned ms)
  2341. {
  2342. unsigned long mark = _millis() + ms;
  2343. while(_millis() < mark) {
  2344. if(temp_error_state.v) break;
  2345. waiting_handler();
  2346. }
  2347. }
  2348. static void __attribute__((noinline)) wait_temp()
  2349. {
  2350. while(current_temperature[0] < (target_temperature[0] - TEMP_HYSTERESIS)) {
  2351. if(temp_error_state.v) break;
  2352. waiting_handler();
  2353. }
  2354. }
  2355. static void cooldown(float temp)
  2356. {
  2357. uint8_t old_speed = fanSpeed;
  2358. set_fan_speed(255);
  2359. while(current_temperature[0] >= temp) {
  2360. if(temp_error_state.v) break;
  2361. float ambient = current_temperature_ambient + temp_model::data.Ta_corr;
  2362. if(current_temperature[0] < (ambient + TEMP_HYSTERESIS)) {
  2363. // do not get stuck waiting very close to ambient temperature
  2364. break;
  2365. }
  2366. waiting_handler();
  2367. }
  2368. set_fan_speed(old_speed);
  2369. }
  2370. static uint16_t record(uint16_t samples = REC_BUFFER_SIZE) {
  2371. TempMgrGuard temp_mgr_guard;
  2372. uint16_t pos = 0;
  2373. while(pos < samples) {
  2374. if(!TEMP_MGR_INT_FLAG_STATE()) {
  2375. // temperatures not ready yet, just manage heaters while waiting to reduce jitter
  2376. manage_heater();
  2377. continue;
  2378. }
  2379. TEMP_MGR_INT_FLAG_CLEAR();
  2380. // manually repeat what the regular isr would do
  2381. if(adc_values_ready != true) continue;
  2382. adc_values_ready = false;
  2383. adc_start_cycle();
  2384. temp_mgr_isr();
  2385. // stop recording for an hard error condition
  2386. if(temp_error_state.v)
  2387. return 0;
  2388. // record a new entry
  2389. rec_entry& entry = rec_buffer[pos];
  2390. entry.temp = current_temperature_isr[0];
  2391. entry.pwm = soft_pwm[0];
  2392. ++pos;
  2393. // it's now safer to give regular serial/lcd updates a shot
  2394. waiting_handler();
  2395. }
  2396. return pos;
  2397. }
  2398. static float cost_fn(uint16_t samples, float* const var, float v, uint8_t fan_pwm, float ambient)
  2399. {
  2400. *var = v;
  2401. temp_model::data.reset(rec_buffer[0].pwm, fan_pwm, rec_buffer[0].temp, ambient);
  2402. float err = 0;
  2403. uint16_t cnt = 0;
  2404. for(uint16_t i = 1; i < samples; ++i) {
  2405. temp_model::data.step(rec_buffer[i].pwm, fan_pwm, rec_buffer[i].temp, ambient);
  2406. float err_v = temp_model::data.dT_err_prev;
  2407. if(!isnan(err_v)) {
  2408. err += err_v * err_v;
  2409. ++cnt;
  2410. }
  2411. }
  2412. return cnt ? (err / cnt) : NAN;
  2413. }
  2414. constexpr float GOLDEN_RATIO = 0.6180339887498949;
  2415. static void update_section(float points[2], const float bounds[2])
  2416. {
  2417. float d = GOLDEN_RATIO * (bounds[1] - bounds[0]);
  2418. points[0] = bounds[0] + d;
  2419. points[1] = bounds[1] - d;
  2420. }
  2421. static float estimate(uint16_t samples,
  2422. float* const var, float min, float max,
  2423. float thr, uint16_t max_itr,
  2424. uint8_t fan_pwm, float ambient)
  2425. {
  2426. // during estimation we alter the model values without an extra copy to conserve memory
  2427. // so we cannot keep the main checker active until a value has been found
  2428. bool was_enabled = temp_model::enabled;
  2429. temp_model_reset_enabled(false);
  2430. float orig = *var;
  2431. float e = NAN;
  2432. float points[2];
  2433. float bounds[2] = {min, max};
  2434. update_section(points, bounds);
  2435. for(uint8_t it = 0; it != max_itr; ++it) {
  2436. float c1 = cost_fn(samples, var, points[0], fan_pwm, ambient);
  2437. float c2 = cost_fn(samples, var, points[1], fan_pwm, ambient);
  2438. bool dir = (c2 < c1);
  2439. bounds[dir] = points[!dir];
  2440. update_section(points, bounds);
  2441. float x = points[!dir];
  2442. e = (1-GOLDEN_RATIO) * fabsf((bounds[0]-bounds[1]) / x);
  2443. printf_P(PSTR("TM iter:%u v:%.2f e:%.3f\n"), it, x, e);
  2444. if(e < thr) {
  2445. if(x == min || x == max) {
  2446. // real value likely outside of the search boundaries
  2447. break;
  2448. }
  2449. *var = x;
  2450. temp_model_reset_enabled(was_enabled);
  2451. return e;
  2452. }
  2453. }
  2454. SERIAL_ECHOLNPGM("TM estimation did not converge");
  2455. *var = orig;
  2456. temp_model_reset_enabled(was_enabled);
  2457. return NAN;
  2458. }
  2459. static bool autotune(int16_t cal_temp)
  2460. {
  2461. uint16_t samples;
  2462. float e;
  2463. char tm_message[LCD_WIDTH+1];
  2464. // bootstrap C/R values without fan
  2465. set_fan_speed(0);
  2466. for(uint8_t i = 0; i != 2; ++i) {
  2467. const char* PROGMEM verb = (i == 0? PSTR("initial"): PSTR("refine"));
  2468. target_temperature[0] = 0;
  2469. if(current_temperature[0] >= TEMP_MODEL_CAL_Tl) {
  2470. sprintf_P(tm_message, PSTR("TM: cool down <%dC"), TEMP_MODEL_CAL_Tl);
  2471. lcd_setstatus_serial(tm_message);
  2472. cooldown(TEMP_MODEL_CAL_Tl);
  2473. wait(10000);
  2474. }
  2475. sprintf_P(tm_message, PSTR("TM: %S C est."), verb);
  2476. lcd_setstatus_serial(tm_message);
  2477. target_temperature[0] = cal_temp;
  2478. samples = record();
  2479. if(temp_error_state.v || !samples)
  2480. return true;
  2481. // we need a high R value for the initial C guess
  2482. if(isnan(temp_model::data.R[0]))
  2483. temp_model::data.R[0] = TEMP_MODEL_Rh;
  2484. e = estimate(samples, &temp_model::data.C,
  2485. TEMP_MODEL_Cl, TEMP_MODEL_Ch, TEMP_MODEL_C_thr, TEMP_MODEL_C_itr,
  2486. 0, current_temperature_ambient);
  2487. if(isnan(e))
  2488. return true;
  2489. wait_temp();
  2490. if(i) break; // we don't need to refine R
  2491. wait(30000); // settle PID regulation
  2492. sprintf_P(tm_message, PSTR("TM: %S R %dC"), verb, cal_temp);
  2493. lcd_setstatus_serial(tm_message);
  2494. samples = record();
  2495. if(temp_error_state.v || !samples)
  2496. return true;
  2497. e = estimate(samples, &temp_model::data.R[0],
  2498. TEMP_MODEL_Rl, TEMP_MODEL_Rh, TEMP_MODEL_R_thr, TEMP_MODEL_R_itr,
  2499. 0, current_temperature_ambient);
  2500. if(isnan(e))
  2501. return true;
  2502. }
  2503. // Estimate fan losses at regular intervals, starting from full speed to avoid low-speed
  2504. // kickstart issues, although this requires us to wait more for the PID stabilization.
  2505. // Normally exhibits logarithmic behavior with the stock fan+shroud, so the shorter interval
  2506. // at lower speeds is helpful to increase the resolution of the interpolation.
  2507. set_fan_speed(255);
  2508. wait(30000);
  2509. for(int8_t i = TEMP_MODEL_R_SIZE - 1; i > 0; i -= TEMP_MODEL_CAL_R_STEP) {
  2510. // always disable the checker while estimating fan resistance as the difference
  2511. // (esp with 3rd-party blowers) can be massive
  2512. temp_model::data.R[i] = NAN;
  2513. uint8_t speed = 256 / TEMP_MODEL_R_SIZE * (i + 1) - 1;
  2514. set_fan_speed(speed);
  2515. wait(10000);
  2516. sprintf_P(tm_message, PSTR("TM: R[%u] estimat."), (unsigned)i);
  2517. lcd_setstatus_serial(tm_message);
  2518. samples = record();
  2519. if(temp_error_state.v || !samples)
  2520. return true;
  2521. // a fixed fan pwm (the norminal value) is used here, as soft_pwm_fan will be modified
  2522. // during fan measurements and we'd like to include that skew during normal operation.
  2523. e = estimate(samples, &temp_model::data.R[i],
  2524. TEMP_MODEL_Rl, temp_model::data.R[0], TEMP_MODEL_R_thr, TEMP_MODEL_R_itr,
  2525. i, current_temperature_ambient);
  2526. if(isnan(e))
  2527. return true;
  2528. }
  2529. // interpolate remaining steps to speed-up calibration
  2530. // TODO: verify that the sampled values are monotically increasing?
  2531. int8_t next = TEMP_MODEL_R_SIZE - 1;
  2532. for(uint8_t i = TEMP_MODEL_R_SIZE - 2; i != 0; --i) {
  2533. if(!((TEMP_MODEL_R_SIZE - i - 1) % TEMP_MODEL_CAL_R_STEP)) {
  2534. next = i;
  2535. continue;
  2536. }
  2537. int8_t prev = next - TEMP_MODEL_CAL_R_STEP;
  2538. if(prev < 0) prev = 0;
  2539. float f = (float)(i - prev) / TEMP_MODEL_CAL_R_STEP;
  2540. float d = (temp_model::data.R[next] - temp_model::data.R[prev]);
  2541. temp_model::data.R[i] = temp_model::data.R[prev] + d * f;
  2542. }
  2543. return false;
  2544. }
  2545. } // namespace temp_model_cal
  2546. static bool temp_model_autotune_err = true;
  2547. void temp_model_autotune(int16_t temp, bool selftest)
  2548. {
  2549. float orig_C, orig_R[TEMP_MODEL_R_SIZE];
  2550. bool orig_enabled;
  2551. static_assert(sizeof(orig_R) == sizeof(temp_model::data.R));
  2552. // fail-safe error state
  2553. temp_model_autotune_err = true;
  2554. char tm_message[LCD_WIDTH+1];
  2555. if(moves_planned() || printer_active()) {
  2556. sprintf_P(tm_message, PSTR("TM: Cal. NOT IDLE"));
  2557. lcd_setstatus_serial(tm_message);
  2558. return;
  2559. }
  2560. // lockout the printer during calibration
  2561. KEEPALIVE_STATE(IN_PROCESS);
  2562. menu_set_block(MENU_BLOCK_TEMP_MODEL_AUTOTUNE);
  2563. lcd_return_to_status();
  2564. // save the original model data and set the model checking state during self-calibration
  2565. orig_C = temp_model::data.C;
  2566. memcpy(orig_R, temp_model::data.R, sizeof(temp_model::data.R));
  2567. orig_enabled = temp_model::enabled;
  2568. temp_model_reset_enabled(selftest);
  2569. // autotune
  2570. SERIAL_ECHOLNPGM("TM: calibration start");
  2571. temp_model_autotune_err = temp_model_cal::autotune(temp > 0 ? temp : TEMP_MODEL_CAL_Th);
  2572. // always reset temperature
  2573. disable_heater();
  2574. if(temp_model_autotune_err) {
  2575. sprintf_P(tm_message, PSTR("TM: calibr. failed!"));
  2576. lcd_setstatus_serial(tm_message);
  2577. if(temp_error_state.v)
  2578. temp_model_cal::set_fan_speed(255);
  2579. // show calibrated values before overwriting them
  2580. temp_model_report_settings();
  2581. // restore original state
  2582. temp_model::data.C = orig_C;
  2583. memcpy(temp_model::data.R, orig_R, sizeof(temp_model::data.R));
  2584. temp_model_set_enabled(orig_enabled);
  2585. } else {
  2586. lcd_setstatuspgm(MSG_WELCOME);
  2587. temp_model_cal::set_fan_speed(0);
  2588. temp_model_set_enabled(orig_enabled);
  2589. temp_model_report_settings();
  2590. }
  2591. lcd_consume_click();
  2592. menu_unset_block(MENU_BLOCK_TEMP_MODEL_AUTOTUNE);
  2593. }
  2594. bool temp_model_autotune_result()
  2595. {
  2596. return !temp_model_autotune_err;
  2597. }
  2598. #ifdef TEMP_MODEL_DEBUG
  2599. void temp_model_log_enable(bool enable)
  2600. {
  2601. if(enable) {
  2602. TempMgrGuard temp_mgr_guard;
  2603. temp_model::log_buf.entry.stamp = _millis();
  2604. }
  2605. temp_model::log_buf.enabled = enable;
  2606. }
  2607. #endif
  2608. #endif