mbsePi-apps: comparison thermferm/simulator.c

-:24749c296a50
+:f5d85af156ab
 * You should have received a copy of the GNU General Public License
 * along with ThermFerm; see the file COPYING.  If not, write to the Free
 * Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
 *****************************************************************************/
+extern int		debug;
 #include "thermferm.h"
+#include "statetbl.h"
 #include "delay.h"
 #include "xutil.h"
 #include "websocket.h"
 #include "simulator.h"
 extern sys_config	Config;
 extern const char	DEVPRESENT[4][6];
 int			my_simulator_shutdown = 0;
-int			SIMcooling = 0;
-int			SIMheating = 0;
-int			SIMfan = 0;
+static int simulate(void);
-int			SIMlight = 0;
 /*
 * Return json data for one simulator
 */
 void *my_simulator_loop(void *threadid)
 {
+my_simulator_state = 1;
+syslog(LOG_NOTICE, "Thread my_simulator_loop started");
+/*
+* Run the state machine
+*/
+simulate();
+syslog(LOG_NOTICE, "Thread my_simulator_loop stopped");
+my_simulator_state = 0;
+return 0;
+}
+SM_DECL(simulate, (char *)"simulator")
+SM_STATES
+Init,
+Waiting,
+Run,
+Websocket
+SM_NAMES
+(char *)"Init",
+(char *)"Waiting",
+(char *)"run",
+(char *)"Websocket"
+SM_EDECL
 simulator_list	*simulator;
 time_t		now, last = (time_t)0;
 int			seconds = 0;
 double		k_room_air, sqm_room_air, thick_room_air, air_heat_transfer;
 double		air_change, vhc_air = 0.00121;
+double		air_temp, beer_temp, chiller_temp;
-my_simulator_state = 1;
+bool		changed = false;
-syslog(LOG_NOTICE, "Thread my_simulator_loop started");
+SM_START(Init)
+SM_STATE(Init)
 for (simulator = Config.simulators; simulator; simulator = simulator->next) {
 	/*
 	 * Heater and cooler have the air temperature
 	 */
 	simulator->s_heat_temp = simulator->s_cool_temp = simulator->room_temperature;
 }
+SM_PROCEED(Waiting);
-for (;;) {
-	if (my_simulator_shutdown)
+SM_STATE(Waiting)
-	    break;
+if (my_simulator_shutdown) {
-	now = time(NULL);
+	SM_SUCCESS;
-	if (now != last) {
+}
-	    last = now;
+now = time(NULL);
+if (now != last) {
+	last = now;
+	seconds++;
+	SM_PROCEED(Run);
+}
+mDelay(50L);
+SM_STATE(Run)
+changed = false;
+for (simulator = Config.simulators; simulator; simulator = simulator->next) {
+	if (my_simulator_shutdown) {
+	    SM_SUCCESS;
+	}
+	/*
+	 * Copy to duplicates
+	 */
+	air_temp = simulator->air_temperature;
+	beer_temp = simulator->beer_temperature;
+	chiller_temp = simulator->chiller_temperature;
+	/*
+	 * First, calculate temperature difference between the room and the air in the
+	 * fridge. We use the volume air to roughly calculate the total area between
+	 * the in and outside. Calculate the effect and shift the air temperature towards
+	 * the room temperature.
+	 */
+	sqm_room_air = (cbrtl(simulator->volume_air) * cbrtl(simulator->volume_air) * 6) / 100; /* square meters all fridge sides */
+	thick_room_air = 0.04;	/* 4 cm walls   */
+	k_room_air = 0.03;	/* Polystrene   */
+	air_heat_transfer=(k_room_air * sqm_room_air * (simulator->room_temperature - air_temp)) / thick_room_air;
+	air_change = (air_heat_transfer / (vhc_air * ((simulator->volume_air - simulator->volume_beer) * 1000))) / 60.0;
+	air_temp += air_change;
+	/*
+	 * If heating, calculate temperature of the heating plate. If heating is off but
+	 * the plate is warmer then the air, calculate the cooling down temperature.
+	 * Finally, calculate the new air and plate temperature.
+	 */
+	if (simulator->heater_present == DEVPRESENT_YES && simulator->heater_power >= 50) {
+	    if (simulator->s_heat_temp < simulator->heater_temp) {
+		simulator->s_heat_temp += 0.05;
+		if (simulator->s_heat_temp > simulator->air_temperature)
+		    air_temp += ((simulator->s_heat_temp - air_temp) / 100.0);
+	    }
+	} else {
 	    /*
-	     * Each second
+	     * Follow the air temperature
 	     */
-	    seconds++;
+	    simulator->s_heat_temp -= (simulator->s_heat_temp - air_temp) / 25.0;
+	}
-	    for (simulator = Config.simulators; simulator; simulator = simulator->next) {
-		if (my_simulator_shutdown)
+	/*
-	    	    break;
+	 * If cooling, calculate temperature of the cooling plate. If cooling is off but
+	 * the plate is colder then the air, calculate the warming up temperature.
-		/*
+	 * Finsally, calculate the new air and plate temperature.
-	    	 * First, calculate temperature difference between the room and the air in the
+	 */
-	    	 * fridge. We use the volume air to roughly calculate the total area between
+	if (simulator->cooler_present == DEVPRESENT_YES && simulator->cooler_power >= 50) {
-	    	 * the in and outside. Calculate the effect and shift the air temperature towards
+	    if (simulator->s_cool_temp > simulator->cooler_temp) {
-	    	 * the room temperature.
+		simulator->s_cool_temp -= 0.05;
-	    	 */
+		if (simulator->s_cool_temp < air_temp)
-		sqm_room_air = (cbrtl(simulator->volume_air) * cbrtl(simulator->volume_air) * 6) / 100;	/* square meters all fridge sides */
+		    air_temp -= ((air_temp - simulator->s_cool_temp) / 100.0);
-		thick_room_air = 0.04;	/* 4 cm walls	*/
-		k_room_air = 0.03;		/* Polystrene	*/
-		air_heat_transfer=(k_room_air * sqm_room_air * (simulator->room_temperature - simulator->air_temperature)) / thick_room_air;
-		air_change = (air_heat_transfer / (vhc_air * ((simulator->volume_air - simulator->volume_beer) * 1000))) / 60.0;
-		simulator->air_temperature += air_change;
-	    	/*
-	    	 * If heating, calculate temperature of the heating plate. If heating is off but
-	    	 * the plate is warmer then the air, calculate the cooling down temperature.
-	    	 * Finally, calculate the new air and plate temperature.
-	    	 */
-		if (SIMheating) {
-		    if (simulator->s_heat_temp < simulator->heater_temp) {
-			simulator->s_heat_temp += 0.05;
-			if (simulator->s_heat_temp > simulator->air_temperature)
-			    simulator->air_temperature += ((simulator->s_heat_temp - simulator->air_temperature) / 100.0);
-		    }
-		} else {
-		    /*
-		     * Follow the air temperature
-		     */
-		    simulator->s_heat_temp -= (simulator->s_heat_temp - simulator->air_temperature) / 25.0;
-		}
-	    	/*
-	    	 * If cooling, calculate temperature of the cooling plate. If cooling is off but
-	    	 * the plate is colder then the air, calculate the warming up temperature.
-	    	 * Finsally, calculate the new air and plate temperature.
-	    	 */
-		if (SIMcooling) {
-		    if (simulator->s_cool_temp > simulator->cooler_temp) {
-			simulator->s_cool_temp -= 0.05;
-			if (simulator->s_cool_temp < simulator->air_temperature)
-			    simulator->air_temperature -= ((simulator->air_temperature - simulator->s_cool_temp) / 100.0);
-		    }
-		} else {
-		    simulator->s_cool_temp -= (simulator->s_cool_temp - simulator->air_temperature) / 25.0;
-		}
-		/*
-	    	 * Calculate final temperature of the beer and the air.
-	    	 */
-		// Cheap trick, just follow slowly the air temp.
-		simulator->beer_temperature += ((simulator->air_temperature - simulator->beer_temperature) / 500.0);
-		simulator->air_temperature += ((simulator->beer_temperature - simulator->air_temperature) / 2500.0);
-		simulator->chiller_temperature = simulator->cooler_temp;	// Libk these
 	    }
-	    mDelay(100L);
+	} else {
-	}
+	    simulator->s_cool_temp -= (simulator->s_cool_temp - air_temp) / 25.0;
-	mDelay(50L);
+	}
-}
+	/*
-syslog(LOG_NOTICE, "Thread my_simulator_loop stopped");
+	 * Calculate final temperature of the beer and the air.
-my_simulator_state = 0;
+	 */
-return 0;
+	// Cheap trick, just follow slowly the air temp.
-}
+	beer_temp += ((air_temp - beer_temp) / 500.0);
+	air_temp += ((beer_temp - air_temp) / 2500.0);
+	chiller_temp = simulator->cooler_temp;        // Link these
+	/*
+	 * Finally update simulated sensors with the new values.
+	 * The devices_loop will pickup the values and sets the resolution.
+	 */
+	if (air_temp != simulator->air_temperature) {
+//	    syslog(LOG_NOTICE, "SIM %d:     air %f to %f", simulator->simno, simulator->air_temperature, air_temp);
+	    simulator->air_temperature = air_temp;
+	    changed = true;
+	}
+	if (beer_temp != simulator->beer_temperature) {
+//	    syslog(LOG_NOTICE, "SIM %d:    beer %f to %f", simulator->simno, simulator->beer_temperature, beer_temp);
+simulator->beer_temperature = beer_temp;
+changed = true;
+	}
+	if (chiller_temp != simulator->chiller_temperature) {
+//	    syslog(LOG_NOTICE, "SIM %d: chiller %f to %f", simulator->simno, simulator->chiller_temperature, chiller_temp);
+	    simulator->chiller_temperature = chiller_temp;
+	    changed = true;
+	}
+}
+SM_PROCEED(Websocket);
+SM_STATE(Websocket)
+if (my_simulator_shutdown) {
+	SM_SUCCESS;
+}
+if (changed) {
+	simulator_ws();
+	changed = false;
+}
+SM_PROCEED(Waiting);
+SM_END
+SM_RETURN
 #endif

Mercurial > mbsePi-apps / file comparison

comparison: thermferm/simulator.c

thermferm/simulator.c