From 775e5b965b52117c23843b595cfb8eacb4a976e3 Mon Sep 17 00:00:00 2001 From: Nathael Pajani Date: Tue, 27 Sep 2016 23:58:34 +0200 Subject: [PATCH] Code for support of alpha version of Scialys module --- alpha/Makefile | 12 ++ alpha/README | 24 +++ alpha/main.c | 462 +++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 498 insertions(+) create mode 100644 alpha/Makefile create mode 100644 alpha/README create mode 100644 alpha/main.c diff --git a/alpha/Makefile b/alpha/Makefile new file mode 100644 index 0000000..ed84b76 --- /dev/null +++ b/alpha/Makefile @@ -0,0 +1,12 @@ +# Makefile for apps + +MODULE = $(shell basename $(shell cd .. && pwd && cd -)) +NAME = $(shell basename $(CURDIR)) + +.PHONY: $(NAME).bin +$(NAME).bin: + @make -C ../../.. --no-print-directory NAME=$(NAME) MODULE=$(MODULE) apps/$(MODULE)/$(NAME)/$@ + +clean mrproper: + @make -C ../../.. --no-print-directory $@ + diff --git a/alpha/README b/alpha/README new file mode 100644 index 0000000..b101ec5 --- /dev/null +++ b/alpha/README @@ -0,0 +1,24 @@ +DMX module for solar-panel power generation tracking and fair use. + +Copyright 2015 Nathael Pajani + + +/* **************************************************************************** + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + * + *************************************************************************** */ + +First prototype version of the Scialys module. +Used for validation of feasability + diff --git a/alpha/main.c b/alpha/main.c new file mode 100644 index 0000000..65cc9d5 --- /dev/null +++ b/alpha/main.c @@ -0,0 +1,462 @@ +/**************************************************************************** + * apps/scialys/alpha/main.c + * + * DMX module for solar-panel power generation tracking and fair use. + * + * Copyright 2015-2016 Nathael Pajani + * + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + * + *************************************************************************** */ + + +/* DMX informations : + * https://en.wikipedia.org/wiki/DMX512 + * + * DMX uses an RS485 line with a few glitches (the break and start pulse). + * The DMX module uses an ADM2482 isolated RS485 bridge from analog devices. + */ + +#include "core/system.h" +#include "core/pio.h" +#include "core/systick.h" +#include "lib/stdio.h" +#include "drivers/serial.h" +#include "drivers/gpio.h" +#include "extdrv/status_led.h" +#include "drivers/adc.h" +#include "drivers/ssp.h" + +#include "extdrv/max31855_thermocouple.h" + + +#define MODULE_VERSION 0x02 +#define MODULE_NAME "DMX Module" + + +#define SELECTED_FREQ FREQ_SEL_48MHz + +/* Period of the decrementer handler from the systick interrupt */ +#define DEC_PERIOD 100 + +/* If temperature falls bellow FORCE_HEATER_TEMP value, we enter forced heater mode, until + * TARGET_FORCED_HEATER_TEMP is reached. + * When in forced heater mode, the heated is controlled to heat at FORCED_MODE_VALUE which + * is between 0 and 255. + */ +#define FORCE_HEATER_TEMP 40 +#define TARGET_FORCED_HEATER_TEMP 45 +#define NO_FORCED_HEATING_ON_SUNNY_DAYS 750 +#define FORCED_MODE_VALUE 190 /* A fraction of 255 */ +uint32_t forced_heater_mode = 0; +uint32_t forced_heater_delay = 0; +uint32_t forced_heater_time = 0; + +#define FORCED_HEATER_DELAY (7 * 3600 * 1000 / DEC_PERIOD) /* Delay before automatic forced heating */ +#define FORCED_HEATER_DURATION (3 * 3600 * 1000 / DEC_PERIOD) /* Duration of automatic forced heating */ + +#define MANUAL_ACTIVATION_DURATION (3600 * 1000 / DEC_PERIOD) /* One hour */ + +uint32_t never_force = 0; + +/***************************************************************************** */ +/* Pins configuration */ +/* pins blocks are passed to set_pins() for pins configuration. + * Unused pin blocks can be removed safely with the corresponding set_pins() call + * All pins blocks may be safelly merged in a single block for single set_pins() call.. + */ +const struct pio_config common_pins[] = { + /* UART 0 */ + { LPC_UART0_RX_PIO_0_1, LPC_IO_DIGITAL }, + { LPC_UART0_TX_PIO_0_2, LPC_IO_DIGITAL }, + { LPC_UART0_RTS_PIO_0_0, LPC_IO_DIGITAL }, + /* UART 1 */ + { LPC_UART1_RX_PIO_0_8, LPC_IO_DIGITAL }, + { LPC_UART1_TX_PIO_0_9, LPC_IO_DIGITAL }, + /* SPI */ + { LPC_SSP0_SCLK_PIO_0_14, LPC_IO_DIGITAL }, + { LPC_SSP0_MOSI_PIO_0_17, LPC_IO_DIGITAL }, + { LPC_SSP0_MISO_PIO_0_16, LPC_IO_DIGITAL }, + /* GPIO */ + { LPC_GPIO_0_12, LPC_IO_DIGITAL }, + { LPC_GPIO_0_25, LPC_IO_DIGITAL }, + { LPC_GPIO_0_26, LPC_IO_DIGITAL }, + { LPC_GPIO_0_28, LPC_IO_DIGITAL }, + { LPC_GPIO_0_29, LPC_IO_DIGITAL }, + ARRAY_LAST_PIO, +}; + +const struct pio_config adc_pins[] = { + { LPC_ADC_AD1_PIO_0_31, LPC_IO_ANALOG }, /* ADC1 */ + { LPC_ADC_AD2_PIO_1_0, LPC_IO_ANALOG }, /* ADC2 */ + ARRAY_LAST_PIO, +}; + +const struct pio status_led_green = LPC_GPIO_0_28; +const struct pio status_led_red = LPC_GPIO_0_29; + +const struct pio button = LPC_GPIO_0_12; /* ISP button */ +const struct pio ejp_in_pin = LPC_GPIO_0_25; +#define DAY_IS_EJP 0 /* Input is pulled low when EJP is ON */ +int ejp_in = 0; + +/* Thermocouple reading */ +const struct max31855_sensor_config thermo = { + .ssp_bus_num = 0, + .chip_select = LPC_GPIO_0_26, +}; + +/* DMX signals */ +/* DMX signals are on LPC_GPIO_0_0 for Frame enable pin (RS485 enable) and LPC_GPIO_0_2 for + * Frame Tx pin (RS485 Tx). + */ +const struct pio frame_tx_pin = LPC_GPIO_0_2; +const struct pio frame_en_pin = LPC_GPIO_0_0; + + + +/***************************************************************************** */ +static volatile int got_wdt_int = 0; +void wdt_callback(void) +{ + got_wdt_int = 1; +} + +const struct wdt_config wdconf = { + .clk_sel = WDT_CLK_IRC, + .intr_mode_only = 0, + .callback = wdt_callback, + .locks = 0, + .nb_clk = 0x0FFFFFF, /* 0x3FF to 0x03FFFFFF */ + .wdt_window = 0, + .wdt_warn = 0x3FF, +}; + +void system_init() +{ + /* Configure the Watchdog */ + watchdog_config(&wdconf); + system_set_default_power_state(); + clock_config(SELECTED_FREQ); + set_pins(common_pins); + set_pins(adc_pins); + gpio_on(); + status_led_config(&status_led_green, &status_led_red); + /* System tick timer MUST be configured and running in order to use the sleeping + * functions */ + systick_timer_on(1); /* 1ms */ + systick_start(); +} + +/* Define our fault handler. This one is not mandatory, the dummy fault handler + * will be used when it's not overridden here. + * Note : The default one does a simple infinite loop. If the watchdog is deactivated + * the system will hang. + */ +void fault_info(const char* name, uint32_t len) +{ + uprintf(UART0, name); + while (1); +} + + +/* Put any data received from RS485 UART in rs485_rx_buff + */ +void rs485_rx(uint8_t c) +{ +} + +void cmd_rx(uint8_t c) +{ +} + +void dmx_send_frame(uint8_t start_code, uint8_t* slots, uint16_t nb_slots) +{ + uint16_t sent = 0; + + /* Configure pins for Start of frame transmission */ + config_gpio(&frame_tx_pin, LPC_IO_MODE_PULL_UP, GPIO_DIR_OUT, 0); + config_gpio(&frame_en_pin, LPC_IO_MODE_PULL_UP, GPIO_DIR_OUT, 1); + /* Send break : 92us minimum + * Pins default state chosen to generate the break condition */ + usleep(100); + /* Send Mark-After-Break (MAB) of 12us minimum */ + gpio_set(frame_tx_pin); + usleep(12); + + /* Configure back for RS485. + * This is done using direct access to the registers as this step is time critical + */ + /* Make sure IO_Config is clocked */ + io_config_clk_on(); + LPC_IO_CONTROL->pio0_0 = (LPC_IO_FUNC_ALT(2) | LPC_IO_DIGITAL); + LPC_IO_CONTROL->pio0_2 = (LPC_IO_FUNC_ALT(2) | LPC_IO_DIGITAL); + + + /* Send start code */ + serial_send_quickbyte(0, start_code); + + /* And send slots data */ + while (sent < nb_slots) { + int tmp = serial_write(0, (char*)(slots + sent), (nb_slots - sent)); + if (tmp == -1) { + break; + } + sent += tmp; + } + + /* Config done, power off IO_CONFIG block */ + io_config_clk_off(); +} + + +uint32_t manual_activation_request = 0; +void manual_activation(uint32_t gpio) { + manual_activation_request = MANUAL_ACTIVATION_DURATION; +} +void handle_dec_request(uint32_t curent_tick) { + if (manual_activation_request > 0) { + manual_activation_request--; + } + if (forced_heater_mode == 1) { + if (forced_heater_delay > 0) { + forced_heater_delay--; + } + if (forced_heater_time > 0) { + forced_heater_time--; + } + } +} + + +/* DMX */ +#define DMX_NB_SLOTS 4 +#define NB_VAL 20 + + +enum modes { + heat = 'C', + ejp = 'E', + no_heat_prod = 'P', + forced = 'F', + temp_OK = 'T', + manual = 'M', + idle_heat = 'L', + full_heat = 'F', +}; + +/***************************************************************************** */ +int main(void) +{ + uint16_t isnail_solar_values[NB_VAL]; + uint16_t isnail_home_values[NB_VAL]; + uint8_t slots[DMX_NB_SLOTS + 1]; + uint8_t idx = 0; + uint32_t loop = 0; + char mode = heat; /* Debug info */ + + system_init(); + status_led(red_only); + uart_set_config(0, (LPC_UART_8BIT | LPC_UART_NO_PAR | LPC_UART_2STOP)); + uart_on(UART0, 250000, rs485_rx); /* FIXME : configure for 250 kbits/s and 8N2 */ + uart_on(UART1, 115200, cmd_rx); + ssp_master_on(thermo.ssp_bus_num, LPC_SSP_FRAME_SPI, 8, 4*1000*1000); + adc_on(NULL); + + /* RS485 config */ + if (1) { + uint32_t rs485_ctrl = LPC_RS485_ENABLE; + //rs485_ctrl |= LPC_RS485_DIR_PIN_RTS | LPC_RS485_AUTO_DIR_EN | LPC_RS485_DIR_CTRL_INV; + rs485_ctrl |= LPC_RS485_DIR_PIN_RTS | LPC_RS485_AUTO_DIR_EN | LPC_RS485_DIR_CTRL_INV; + uart_set_mode_rs485(0, rs485_ctrl, 0, 1); + } + + /* Thermocouple configuration */ + max31855_sensor_config(&thermo); + uprintf(UART1, "Thermocouple config OK\n"); + + /* Activate on Rising edge (button release) */ + set_gpio_callback(manual_activation, &button, EDGE_RISING); + + /* Start ADC sampling */ + adc_start_burst_conversion(ADC_MCH(1) | ADC_MCH(2), LPC_ADC_SEQ(0)); + + /* Configure Input GPIO for EJP mode detection */ + config_gpio(&ejp_in_pin, 0, GPIO_DIR_IN, 0); + + status_led(green_only); + memset(slots, 0, (DMX_NB_SLOTS + 1)); + + msleep(50); + /* Read parameters from memory */ + if (1) { + never_force = 0; + forced_heater_delay = FORCED_HEATER_DELAY; + forced_heater_time = FORCED_HEATER_DURATION; + } + + while (1) { + static uint8_t dmx_val = 0; + uint32_t moyenne_solar = 0; + uint32_t moyenne_home = 0; + uint16_t isnail_val_solar = 0; + uint16_t isnail_val_home = 0; + int centi_degrees = 0; + + mode = heat; + /* Always track power consumption and production */ + adc_get_value(&isnail_val_solar, LPC_ADC(1)); + adc_get_value(&isnail_val_home, LPC_ADC(2)); + /* Convert to mA value */ + isnail_val_solar = ((isnail_val_solar * 32) * 2); /* 3.2mV / digit, 50mV -> 1A */ + isnail_val_home = ((isnail_val_home * 32) * 2); /* 3.2mV / digit, 50mV -> 1A */ + /* Store value */ + isnail_solar_values[idx] = isnail_val_solar; + isnail_home_values[idx++] = isnail_val_home; + if (idx == NB_VAL) { + idx = 0; + } + /* Compute average value when we sampled enough values */ + if ((idx == 0) || (idx == (NB_VAL / 2))) { + int i = 0; + for (i = 0; i < NB_VAL; i++) { + moyenne_solar += isnail_solar_values[i]; + moyenne_home += isnail_home_values[i]; + } + moyenne_solar = moyenne_solar / NB_VAL; + moyenne_home = moyenne_home / NB_VAL; + } else { + /* Sleep for a litle more than a period (20ms at 50Hz) */ + msleep(23); + continue; + } + + /* Feed the dog */ + if ((moyenne_solar != 0) && (moyenne_home != 0)) { + watchdog_feed(); + } + + /* Get thermocouple value */ + if (1) { + int ret = 0; + ret = max31855_sensor_read(&thermo, NULL, ¢i_degrees); + if (ret != 0) { + uprintf(UART1, "Temp read error : %d\n", ret); + } + } + if (centi_degrees < (FORCE_HEATER_TEMP * 100)) { + if (forced_heater_mode == 0) { + uprintf(UART1, "Entering forced mode\n"); + forced_heater_mode = 1; + } + status_led(red_on); + mode = forced; + } else if ((centi_degrees > (TARGET_FORCED_HEATER_TEMP * 100)) && (forced_heater_mode == 1)) { + status_led(red_off); + forced_heater_mode = 0; + dmx_val = 0; + uprintf(UART1, "Forced mode exit\n"); + mode = temp_OK; + } + + /* Do not force if there is some sun, it may be enough to heat again */ + if (moyenne_solar > NO_FORCED_HEATING_ON_SUNNY_DAYS) { + forced_heater_mode = 0; + mode = no_heat_prod; + forced_heater_delay = FORCED_HEATER_DELAY; + } + + /* Do not force heating if this is an EJP day */ + ejp_in = gpio_read(ejp_in_pin); + if (ejp_in == DAY_IS_EJP) { + forced_heater_mode = 0; + mode = ejp; + } + + if (never_force == 1) { + forced_heater_mode = 0; + } + + /* Did the user request a forced heating ? */ + if (manual_activation_request > 1) { + forced_heater_mode = 1; + mode = manual; + if (manual_activation_request == MANUAL_ACTIVATION_DURATION) { + uprintf(UART1, "Entering manual forced mode for %d ticks\n", manual_activation_request); + /* Add a systick callback to handle time counting */ + add_systick_callback(handle_dec_request, DEC_PERIOD); + } + if (manual_activation_request < 10) { + uprintf(UART1, "Leaving manual forced mode\n"); + manual_activation_request = 0; + remove_systick_callback(handle_dec_request); + } + } + + + /* Which is the current mode ? */ + if (forced_heater_mode == 1) { + /* Forced heating mode */ + if ((forced_heater_delay == 0) && (forced_heater_time > 0)) { + dmx_val = FORCED_MODE_VALUE; + } + if (forced_heater_time == 0) { + forced_heater_delay = FORCED_HEATER_DELAY; + forced_heater_time = FORCED_HEATER_DURATION; + } + } else if (moyenne_solar < moyenne_home) { + /* Low production mode */ + if (dmx_val > 25) { + dmx_val -= 25; + } else { + dmx_val = 0; + mode = idle_heat; + } + status_led(green_off); + } else { + /* High production mode */ + if (dmx_val < 245) { + dmx_val += 10; + } else { + dmx_val = 255; + mode = full_heat; + } + status_led(green_on); + } + + /* Send DMX frame */ + slots[0] = dmx_val; + if (slots[0] > 255) { + slots[0] = 255; + } + dmx_send_frame(0x00, slots, 1); + /* Display */ + if (1) { + int abs_centi = centi_degrees; + uprintf(UART1, "%c:%d - Is: %d,%04d - Ih: %d,%04d\n", mode, loop++, + (moyenne_solar / 1000), (moyenne_solar % 1000), + (moyenne_home / 1000), (moyenne_home % 1000)); + if (centi_degrees < 0) { + abs_centi = -centi_degrees; + } + uprintf(UART1, "Temp : % 4d.%02d\n", (centi_degrees / 100), (abs_centi % 100)); + uprintf(UART1, "DMX: %d\n\n", slots[0]); + } + } + return 0; +} + + + -- 2.43.0