Så här ser Roes ut i vinterskrud i januari 2017.

Under hösten har taket bytts på Roes. Mycket behövligt då det gamla gröna aluminiumtaket sattes upp under 50- eller 60-talet. Under aluminiumplåtarna satt dessutom det gamla spåntaket kvar.

 Nu är allt bytt. Nytt undertak med luftspalt, takpapp och ovanpå det plåt som ser ut som takpannor.  Snörrasskydd satte vi också upp.

Fantastiskt resultat. En gigantiskt stor skillnad.

Nu lär huset stå i många år till utan att vi behöver bekymra oss för taket.

Läs mer om Roes här.

Höstens största förvandling är att vi håller på att anlägga 2 000 m² gräsmatta i Körlinge. Ca 250 ton anläggningsjord är utkörd och bildar ett 10-15 cm tjockt täcke ovanpå den gamla jorden. Till en början tänkte jag göra allt själv, men insåg mina begränsningar i både tid, kompetens och egen fysisk förmåga. Vi anlitade därför Mälardalens Borr och Mark AB som först finplanerade tomten medelst grävskopa och som sedan lade ut jorden. En vecka tog det och resultatet blev jättebra.

 

Jorden kom från Åkersberga LBC. Lastbilschauffören fick en stor utmaning att backa runt nästan hela husets baksida på lerigt och blött underlag. På sina ställen var det precis på gränsen till möjligt. Men chauffören var dock ingen nybörjare så det löste sig galant även om hjulspåren blev djupa.

När jorden var lagd över hela tomten gödslade vi och därefter hyrde jag en jordpackare för att kunna packa den relativt lösa jorden. En okonventionell lösning då man normalt brukar använda vält men det hade tagit veckor att få jorden tillräckligt ihoptryckt med en vält. Jordpackaren löste detta galant, resultatet blev riktigt bra.

Slutligen har vi nu sått gräsfrö och krattat alltihopa. Vi har säkert lagt på mer än dubbla rekommenderade mängden frö – allt för att få ett riktigt tätt gräs från början.

Nu är det väntan på att fröna ska gro. Eftersom det är höst hjälper nattfukten oss på traven då markytan är helt blöt varje morgon. 10 dygn ska det tydligen ta för fröna att gro bara temperaturen i marken är högre än 10 grader. Vädret är just nu sommar så marktemperaturen lär ju inte bli ett problem.

Har vi flyt kommer gräsfröna gro och hinna etablera sig innan minusgraderna kommer i oktober/november. Därmed kommer gräsmattan att kunna ta ordentlig fart nästa vår, när värmen anländer. Och då blir den förhoppningsvis riktigt grön och fin.

Läs mer om Roes här.

 

Panelbytet fortsätter även i år. Förra året byttes panelen på södra gaveln. Detta år var det dags för den östra långsidan. En stor utmaning detta år var solen som stekte på bra. Solen låg också på från tidig morgon till sen kväll. Värmen var däremot hanterbar även om vi bröt någon gång på grund av att det var för varmt.

En stor fördel detta år var att vi hade stor hjälp av Wihlgårdarna Mattias och Maria där Mattias är Carinas kusin. Att de hjälpte oss under hela bytet är vi oerhört tacksamma för.

Det är enkelt att underskatta mängden arbete som krävs för att byta fasadpanel. Det ser ju rät lätt ut. Men först ska byggnadsställningen byggas och stuprören monteras ned.  Därefter ska den gamla panelen rivas. Detta är det enklaste och går snabbt.

Sedan ska virke införskaffas, både reglar och panel. Och sedan ska nya reglar spikas upp som en förberedelse inför framtida isolering från insidan. Vindpapp ska också upp och utanpå vindpappen spikas en tunn regel för att få en luftspalt mellan vindpappen och ytterpanelen.

Parallellt med detta kapas och målas panelen. Ny målad panel ska spikas upp och därefter målas gång nummer två på plats. Efter målning ska målad locklist spikas dit och slutligen nya vita fönsterfoder och återmontering av stuprören innan ställningen monteras ned.

En lärdom detta år är att man ska ta tid på sig för att slippa stressa, vilket vi gjorde då vi hade hemresan att förhålla oss till.
Det är ju trots allt semester och inte ett arbetsläger vilket det delvis kändes som. Börja tidigare är lösningen. Att Mattias och Maria stod ut med arbetsledningen är inget annat än imponerande.

Slutresultatet talar för sig själv. Vi är mer än nöjda. Nu är två av fem sidor fixade. Denna sida är nog den jobbigaste, just på grund av att solen steker en från två håll när man jobbar nära väggen som speglar tillbaka solens strålar.

Detta år satsade vi på att bygga in tomten med stenvast eller stentun som det heter här på öjn. 65 meter ny tillkommande vast blev det. Stenen kommer från stenar som en bonde i socken hittat i åkern under årets vårbruk.

Hela projektet delades in i tre etapper. De första är på baksidan, på var sin sida om öppningen i den bakre vasten. Den sista och kortaste etappen var att ersätta den rostiga och tråkiga Gunnebostängslet på framsidan mot stora vägen.

Detta är ett rätt skönt kroppsarbete,  visst är det tungt men det gäller bara att klura ut hur man flyttar en tung sten utan att anstränga sig mer än nödvändigt. Spett och en pirra är två verktyg som verkligen underlättat.

Resultatet är vi verkligen nöjda med. Det blev över förväntan. Riktigt roligt.

Förra året installerade jag en nytt system för att avfukta krypgrunden då det gamla systemet inte fungerade speciellt bra. Sedan dess har jag utvecklat en styrsystem för att styra avfuktaren med hjälp av “mögelindex” i syfte att minska elförbrukningen då avfuktaren drar ca 1300W när den är igång.

Mögelindex

Mögelindex är ett mått på hur stor risken för en mögelskada är. Normalt brukar man ange 75% relativ fuktighet som ett slags gränsvärde, men det är allmänt känt att det tar lång tid för mögel att börja växa vid 75%. På sidan http://www.penthon.com/faq/vad-innebar-mogelindex/ beskrivs mögelindex, vilket i denna tillämpning anger den lägsta fukthalten för att undvika tillväxt.  Denna styrning tar heller inte hänsyn till tiden, utan jobbar hela tiden mot sämsta fallet.

Fuktstyrningen använder linjen i bilden ovan med en ytterligare marginal om 5% för att vara på den säkra sidan.

Förutsättningar

Styrningen bygger på Domoticz som körs på en Raspberry PI med stöd för Razberry (zwave) och onewire. Till avfuktningsaggregatet använder jag en zwave-plugg som både styr aggregatet av och på samt mäter dess effektförbrukning. Till onewire ansluts tre stycken temperatursensorer (DS18B20) och tre stycken kombinerade temperatur och fuktgivare utspridda i krypgrunden (DS2438).

LUA-skript för onewire

Jag har valt att inte använda den inbyggda funktionen för onewire i Domoticz då jag fick problem med spikar i temperatur och fuktmätningen från DS2438. Vidare så har jag också infört en onewirehubb pga allt för långa kabellängder.

LUA-skriptet “script_time_owfs.lua” körs varje minut i Domoticz och lägger till alla värden i sk dummie-devices i Domoticz. Dummie-devices är inte kopplade till någon hårdvara, vilket gör att skriptet kan filtrera bort spikarna och sedan stoppa in värdena för temperatur och fuktighet.

Skriptet konfigurerar även vid behov onewire-hubben så att alla fyra portar fungerar.

Det bör även nämnas att jag kompilerat owfs senaste version då jag är osäker på om “apt-get install owfs” installerar en owfs-version med stöd för hubben.

Länk till script_time_owfs.lua.

print("-----OWFS TIME-----")
-- OWFS path
OWFS_PATH = "/mnt/1wire/"
OWFS_TEMP_HUM_DEVICES = {	['26.160592010000'] = 'Krypgrund_SO',
									['26.740592010000'] = 'Krypgrund_SV',
									['26.802692010000'] = 'Krypgrund_NO',
									['26.1851E2010000'] = 'Ute' }

OWFS_TEMP_DEVICES = {	['28.1C3D99030000'] = "Avfuktare_Tilluft_Temp2",
								['28.87917A060000'] = "Avfuktare_Avluft_Temp2",
								['28.A9807B060000'] = "Avfuktare_Processluft_Temp2",
								['28.DC2E7A060000'] = "Avfuktare_Uteluft_Temp2" }

-- Onewire hub file
ONEWIRE_HUB_CONFIG_FILE       = "/mnt/1wire/uncached/EF.117120150000/hub/branch.BYTE"
ONEWIRE_HUB_PORT_CONFIG_VALUE = "15"
-- Cache file dir
OWFS_CACHEPATH = '/tmp'

-- Set how many readings in buffer
OWFS_BUFFERSIZE = 10

-- FUNCTIONS START --

--integer converts a float into an integer
function integer(x)
    return x<0 and math.ceil(x) or math.floor(x)
end

 -- deviceToTime returns a device time string in a format which can be used by the os.difftime function
function deviceToTime(time)
   return os.time { year  = string.sub(time, 1, 4),
                    month = string.sub(time, 6, 7),
                    day   = string.sub(time, 9, 10),
                    hour  = string.sub(time, 12, 13),
                    min   = string.sub(time, 15, 16),
                    sec   = string.sub(time, 18, 19) }
end

local function ReadFile(path)
    local file = io.open(path, "rb") -- r read mode and b binary mode
    if not file then
      return nil
    end
    local content = file:read "*a" -- *a or *all reads the whole file
    file:close()
    return content
end

local function WriteFile(path, content)
    local file = io.open(path, "wb") -- w write mode and b binary mode
    if not file then
      return nil
    end
    file:write(content)
    file:close()
end

local function ReadOWFS(device, filename, UseCache)
	if (UseCache == false) then
		path = OWFS_PATH.."uncached/"
	else
		path = OWFS_PATH
	end

   value = ReadFile(string.format("%s/%s/%s", path, device, filename))
   if (value ~= nil) then
         return value
   else
		-- Check if hub is configured with uncorrect value
		fileContent = ReadFile(ONEWIRE_HUB_CONFIG_FILE)
		if (fileContent ~= ONEWIRE_HUB_PORT_CONFIG_VALUE) then
			WriteFile(ONEWIRE_HUB_CONFIG_FILE, ONEWIRE_HUB_PORT_CONFIG_VALUE)
			print("-------------------")
			print("Onewire hub reconfigured")
		end
	end
	return nil
end

-- calcDeHumidLevel calucates the RF level for a certain temperature
-- If the RF is higher then returned value, dehumidification shall be done
-- A safety margin of five percent is added
function calcDeHumidLevel(temp)
		local humidityThreshold
      if (temp < 0) then humidityThreshold = 100 elseif (temp > 22) then
         humidityThreshold = 79 - 5
      else
         humidityThreshold = integer(-0.0015 * temp ^ 3+0.1193 * temp ^ 2 - 2.9878 * temp + 102.96) - 5

			if (humidityThreshold > 100) then
				humidityThreshold = 100
			elseif (humidityThreshold < 0) then humidityThreshold = 0 end end return humidityThreshold end -- secsToClock return a string representing seconds as HH:MM:SS function secsToClock(seconds) if ((seconds == 0) or (seconds == nil) ) then return "00:00:00" else days = integer(seconds / (60 * 60 * 24)) hours = integer((seconds - days * 60 * 60 * 24) / (60 * 60)) mins = integer((seconds - days * 60 * 60 * 24 - hours * 60 * 60) / 60) secs = seconds - days * 60 * 60 * 24 - hours * 60 * 60 - mins * 60; if (days > 99) then
         return string.format("%03d:%02d:%02d:%02d (DDD:HH:MM:SS)", days, hours, mins, secs)
      elseif (days > 0) then
         return string.format("%02d:%02d:%02d:%02d (DD:HH:MM:SS)", days, hours, mins, secs)
      else
         return string.format("%02d:%02d:%02d (HH:MM:SS)", hours, mins, secs)
      end
   end
end

-- Implode a string into a table using delimiter
function ImplodeTable(delimiter, list)
  local len = #list
  if len == 0 then
    return ""
  end
  local string = list[1]
  for i = 2, len do
    string = string .. delimiter .. list[i]
  end
  return string
end

-- Explode a table content into a string, separate fields with a delimiter
function ExplodeTable(delimiter, text, numElements)
   local list = {}; local pos = 1
   local el = 0
   while (el < numElements) do
      el = el + 1
      local first, last = string.find(text, delimiter, pos)
      if (first) then
         table.insert(list, string.sub(text, pos, first-1))
         pos = last+1
      else
         table.insert(list, string.sub(text, pos))
      break
      end
   end
   return list
end

-- Get the mean value of a table
function CalcMeanOnTable(t)
   local sum = 0
   local count= 0
   for k,v in pairs(t) do
      if (type(v) ~= 'number') then
         v = tonumber(v)
      end
      if (type(v) == 'number') then
         sum = sum + v
         count = count + 1
      end
  end
  return (sum/count)
end

-- Get the standard deviation of a table
function CalcStandardDeviationOnTable(t)
   local m
   local vm
   local sum = 0
   local count = 0
   local result

   m = CalcMeanOnTable(t)

   for k,v in pairs(t) do
      if (type(v) ~= 'number') then
         v = tonumber(v)
      end
      if (type(v) == 'number') then
         vm = v - m
         sum = sum + (vm * vm)
         count = count + 1
      end
   end

   return math.sqrt(sum / (count-1))
end


-- Calulates values from OWFS taking care of spikes in OWFS values.
-- Using an file buffer and calculation of mean and standard deviation.
-- If the value to be inserted deviates more than the standard deviation from mean value,
-- the standard deviation from the mean value from the buffer is returned instead of the actual value.
-- The actual value is stored in buffer

function getValue(device, value)
   local cache, arr, mean, deviation, allowedDeviation, newValue, elementsInBuffer

   -- Read history from cached file content
   cache = ReadFile(string.format("%s/%s", OWFS_CACHEPATH, device))

   -- If no file found
   if (cache == nil) then
      cache = ";"
   end

   -- Explode the file content into array elements
   arr = ExplodeTable(";", cache, OWFS_BUFFERSIZE)

   -- Calculate
   deviation = tonumber(CalcStandardDeviationOnTable(arr))
   mean      = tonumber(CalcMeanOnTable(arr))

   -- The allowed deviation shall not be too small
   if (deviation < 0.75) then allowedDeviation = 0.75 else allowedDeviation = deviation end -- Limit the changes in the buffer if (value > (mean + allowedDeviation)) then
      newValue = mean + allowedDeviation
   elseif (value < (mean - allowedDeviation)) then newValue = mean - allowedDeviation else newValue = value end -- Insert calulated value last in buffer table.insert(arr, newValue) elementsInBuffer = # arr -- Remove values in front of buffer if buffer size is too big if ((elementsInBuffer) > OWFS_BUFFERSIZE) then
      table.remove(arr,1)
      elementsInBuffer = elementsInBuffer - 1
   end

   -- Write the array into file
   WriteFile(string.format("%s/%s", OWFS_CACHEPATH, device), ImplodeTable(";", arr))

   return elementsInBuffer, deviation, mean, tonumber(CalcMeanOnTable(arr))
end

-- END OF FUNCTIONS --

commandArray = {}

i = 0
for OWFS_device, name in pairs(OWFS_TEMP_HUM_DEVICES) do

   -- Read temp and humidity from OWFS
   OWFS_temp = ReadOWFS(OWFS_device, "temperature", false)
   OWFS_hum  = ReadOWFS(OWFS_device, "humidity", false)

   if ((OWFS_temp ~= nil) and (OWFS_hum ~= nil)) then

      OWFS_temp = tonumber(OWFS_temp)
      OWFS_hum  = tonumber(OWFS_hum)

      -- Correct OWFS value
      bufferSize, deviationTemp, meanTemp, tempValue = getValue(string.format("%s_%s", name, "temp"), OWFS_temp)

      print(string.format("%s:temp Bufsize = %3d, Deviation = %-3.2f, Mean = %-3.2f, OWFS =  %-3.2f, Used = %-3.2f, Diff = %-3.2f", name, bufferSize, deviationTemp, meanTemp, OWFS_temp, tempValue, math.abs(OWFS_temp - tempValue)))

      -- Correct OWFS value
      bufferSize, deviationHum, meanHum, humValue = getValue(string.format("%s_%s", name, "hum"), OWFS_hum)

      print(string.format("%s:humi Bufsize = %3d, Deviation = %-3.2f, Mean = %-3.2f, OWFS =  %-3.2f, Used = %-3.2f, Diff = %-3.2f", name, bufferSize, deviationHum, meanHum, OWFS_hum, humValue, math.abs(OWFS_hum - humValue)))

      -- Calculate the wet level
      startDehumidify = calcDeHumidLevel(tempValue)
      if (humValue > startDehumidify) then
         wet = 3
      elseif (humValue > startDehumidify * 0.8) then
         wet = 0
      else
         wet = 2
      end

      -- Insert values into Domoticz device
		if (otherdevices_idx[name] ~= nil) then
			commandArray[i] = { ['UpdateDevice'] = string.format("%s|0|%3.2f;%3.2f;%d", otherdevices_idx[name], tempValue, humValue, wet) }
			i = i + 1
		else
			print(string.format("Cannot find id number for device %s", name))
		end
   else
      print(string.format("No OWFS readings from device %s, %s: %s:%s", name, OWFS_device, OWFS_temp, OWFS_hum))
   end
end
for OWFS_device, name in pairs(OWFS_TEMP_DEVICES) do

   -- Read temp and humidity from OWFS
   OWFS_temp = ReadOWFS(OWFS_device, "temperature", true)

   if (OWFS_temp ~= nil) then

      OWFS_temp = tonumber(OWFS_temp)
      print(string.format("%s: temp = %3.2f", name, OWFS_temp))

      -- Insert values into Domoticz device
		if (otherdevices_idx[name] ~= nil) then
			commandArray[i] = { ['UpdateDevice'] = string.format("%s|0|%3.2f", otherdevices_idx[name], OWFS_temp) }
			i = i + 1
		else
			print(string.format("Cannot find id number for device %s", name))
		end
   else
      print(string.format("No OWFS readings from device %s, %s: %s:%s", name, OWFS_device, OWFS_temp, OWFS_hum))
   end
end

return commandArray

LUA-skript för fuktstyrning

LUA-skriptet för fuktstyrning består av två skript.
Länk till script_device_dehumid.lua

-- Dehumidifier device switch name in Domoticz
DEHUMID_DEVICE_SWITCH = 'SWITCH_Avfuktare_Switch'
-- User variable
DEHUMID_ISCANCELED    = 'Dehumidifier_IsCanceled'
commandArray = {}

if (devicechanged[DEHUMID_DEVICE_SWITCH] ~= nil) then
   dehumidifierState = devicechanged[DEHUMID_DEVICE_SWITCH]

   if (uservariables[DEHUMID_ISCANCELED] ~= nil) then
      dehumidifierIsCanceled = (uservariables[DEHUMID_ISCANCELED] == "1" and true or false)
   else
      dehumidifierIsCanceled = nil
      print("Warning! Cannot read user variable "..DEHUMID_ISCANCELED)
   end

   print("Dehumidifier state is "..dehumidifierState)
   print("User variable "..DEHUMID_ISCANCELED.." state is "..(dehumidifierIsCanceled == true and "true" or "false"))

   if ((dehumidifierIsCanceled == true) and (dehumidifierState == "On")) then
         dehumidifierIsCanceled = false
         commandArray['Variable:'..DEHUMID_ISCANCELED] = (dehumidifierIsCanceled == true and "1" or "0")
   end

   print("Dehumidifier is set to "..dehumidifierState)
   print("User variable "..DEHUMID_ISCANCELED.." is set to "..(dehumidifierIsCanceled == true and "true" or "false"))
end
return commandArray

script_device_dehumid.lua startar och stoppar avfuktaren och har koll på om avfuktaren är stoppad pga eventuella fel, dvs om den är “cancelerad”.

Skriptet som är själva motorn i konceptet heter script_time_dehumid.lua och körs varje minut. Länk till script_time_dehumid.lua.

print("-------------------")
-- Name of Domoticz devices for both RF and temperatur measurements
-- The devices must be of an combined type of both humidity and temperature
HUMANDTEMP_DEVICES = {'Krypgrund_SV', 'Krypgrund_SO', 'Krypgrund_NO' }

-- Outdoor air temperature measured before the dehumidifier
DEVICE_OUTDOOR_TEMP    = 'Avfuktare_Uteluft_Temp2'

-- Name of Domoticz device for both outdoor RF and outdoor temperature
HUMANDTEMP_OUTDOOR_DEVICE = 'Ute'

-- Processed wet air temperature measured after the dehumidifier
DEVICE_PROCESSAIR_TEMP = 'Avfuktare_Processluft_Temp2'

-- Inlet dry air temperature measured after the dehumidifier
DEVICE_INLETAIR_TEMP   = 'Avfuktare_Tilluft_Temp2'

-- If the air temperature increase is greater than this limit,
-- the dehumidifier will stop until it is manullay started in Domoticz
PROCESSAIR_TEMP_MAXINC = 35
INLETAIR_TEMP_MAXINC = 30

-- Max device oldest update in seconds
HUMID_DEVICE_TIMEOUT = 5*60

-- Dehumidifier minimum runtime in seconds
MIN_RUNTIME = 20*60

-- Dehumidifier minimum runtime in seconds
MAX_RUNTIME = 2*60*60

-- Dehumidifier minimum stoptime in seconds
MIN_STOPTIME = 60*15

-- Dehumidifier device switch name in Domoticz
DEHUMID_DEVICE_SWITCH = 'SWITCH_Avfuktare_Switch'

-- User variable, an integer used as an boolean (either 0 or 1)
DEHUMID_ISCANCELED = 'Dehumidifier_IsCanceled'

-- Max humidity hyesteris in percent
MAX_HUMID_HYSTERESIS = 12

-- Min humidity hyesteris in percent
MIN_HUMID_HYSTERESIS = - 2

-- Humidity hyesteris time konstant
HUMID_HYSTERESIS_KONSTANT = 20

--Name of Domoticz power meter device.
--Set to '' if no watt measure device exist
DEHUMID_POWER_DEVICE = 'SWITCH_Avfuktare_Power'

-- If runtime exceeds this value in seconds, the script checks if dehumidifier is running
NO_POWERTEST_TIME = 5*60

-- FUNCTIONS START --
--integer converts a float into an integer
function integer(x)
    return x<0 and math.ceil(x) or math.floor(x)
end

 -- deviceToTime returns a device time string in a format which can be used by the os.difftime function
function deviceToTime(time)
   return os.time { year  = string.sub(time, 1, 4),
                    month = string.sub(time, 6, 7),
                    day   = string.sub(time, 9, 10),
                    hour  = string.sub(time, 12, 13),
                    min   = string.sub(time, 15, 16),
                    sec   = string.sub(time, 18, 19) }
end

-- calcDeHumidLevel calucates the RF level for a certain temperature
-- If the RF is higher then returned value, dehumidification shall be done
-- A safety margin of five percent is added
function calcDeHumidLevel(temp)
		local humidityThreshold
      if (temp < 0) then humidityThreshold = 100 elseif (temp > 22) then
         humidityThreshold = 79 - 5
      else
         humidityThreshold = integer(-0.0015 * temp ^ 3+0.1193 * temp ^ 2 - 2.9878 * temp + 102.96) - 5

			if (humidityThreshold > 100) then
				humidityThreshold = 100
			elseif (humidityThreshold < 0) then humidityThreshold = 0 end end return humidityThreshold end -- secsToClock return a string representing seconds as (DD:)HH:MM:SS function secsToClock(seconds) if ((seconds == 0) or (seconds == nil) ) then return "00:00:00" else days = integer(seconds / (60 * 60 * 24)) hours = integer((seconds - days * 60 * 60 * 24) / (60 * 60)) mins = integer((seconds - days * 60 * 60 * 24 - hours * 60 * 60) / 60) secs = seconds - days * 60 * 60 * 24 - hours * 60 * 60 - mins * 60; if (days > 99) then
         return string.format("%03d:%02d:%02d:%02d (DDD:HH:MM:SS)", days, hours, mins, secs)
      elseif (days > 0) then
         return string.format("%02d:%02d:%02d:%02d (DD:HH:MM:SS)", days, hours, mins, secs)
      else
         return string.format("%02d:%02d:%02d (HH:MM:SS)", hours, mins, secs)
      end
   end
end

-- Print informaiton about humitiy and temperatur and other values
function printHumidity(device, currentTemperature, currentHumidity, humidityThreshold)
   delta = humidityThreshold - currentHumidity
	-- Fetch outdoor sensor humidity
   outDoorHum = getHumidityFromDevice(HUMANDTEMP_OUTDOOR_DEVICE)

	if (outDoorHum ~= nil) then
		-- OTD = OuTdoor Differense
		print(string.format("Device %s: %04.1fC, %2d%%, Th = %02d%% (%d%%), OTD = %02d%%, ThOTD = %02d%%", device, currentTemperature, currentHumidity, humidityThreshold, delta, outDoorHum-currentHumidity, outDoorHum-humidityThreshold))
	else
		print(string.format("Device %s: %04.1fC, %2d%%, Th = %02d%% (%d%%)", device, currentTemperature, currentHumidity, humidityThreshold, delta))
	end
end

-- Get humidifier switch state
function getDehumidifierSwitchState()
   if (otherdevices[DEHUMID_DEVICE_SWITCH] ~= nil) then
      return otherdevices[DEHUMID_DEVICE_SWITCH]
   else
      print("Warning! Cannot read from otherdevices['"..DEHUMID_DEVICE_SWITCH.."']")
      return "Unknown"
   end
end

-- Get dehumidifiers run time
function getRunTime()
   if (getDehumidifierSwitchState() == "On") then
      return os.difftime(os.time(), getDeviceLastUpdated(DEHUMID_DEVICE_SWITCH))
   else
      return 0
   end
end

-- Get the dehumidifer stop time
function getStopTime()
   if (getDehumidifierSwitchState() == "Off") then
      return os.difftime(os.time(), getDeviceLastUpdated(DEHUMID_DEVICE_SWITCH))
   else
      return 0
   end
end

-- Get the last time a device was updated in Domoticz
function getDeviceLastUpdated(device)
   if (otherdevices_lastupdate[device] ~= nil) then
      return deviceToTime(otherdevices_lastupdate[device])
   else
      return 0
   end
end

-- Get temperature value from a temperature device in Domoticz
function getTempFromDevice(device)
   if (otherdevices_temperature[device] ~= nil) then
      return tonumber(otherdevices_temperature[device])
   else
      print("Warning! Cannot read temp device "..device)
		return nil
   end
end

-- Get humidity value from a humidity device in Domoticz
function getHumidityFromDevice(device)
   if (otherdevices_humidity[device] ~= nil) then
      return tonumber(otherdevices_humidity[device])
   else
      print("Warning! Cannot read humid device "..device)
      return nil
   end
end

-- Get the dehumidifer power in getDehumidifierWatts()
function getDehumidifierWatts()
   if ((DEHUMID_POWER_DEVICE ~= '') and (otherdevices_svalues[DEHUMID_POWER_DEVICE] ~= nil)) then
      return integer(tonumber(otherdevices_svalues[DEHUMID_POWER_DEVICE]))
   else
      print("Warning! Cannot read power from device "..DEHUMID_POWER_DEVICE)
      return nil
   end
end
-- ca dehumidifier state as true or false
function setDehumidifierState(state)
	if ((state == true) or (state == false)) then
		commandArray['Variable:'..DEHUMID_ISCANCELED] = (state == true and "1" or "0")
	else
		print("Error in param to setDehumidifierState, unknown state")
	end
end

-- Check if dehumidfier is canceled
function isDehumidifierCanceled()
	if (commandArray['Variable:'..DEHUMID_ISCANCELED] ~= nil) then
	   return (commandArray['Variable:'..DEHUMID_ISCANCELED] == "1" and true or false)
	elseif (uservariables[DEHUMID_ISCANCELED] ~= nil) then
      return (uservariables[DEHUMID_ISCANCELED] == "1" and true or false)
   else
      print("Warning! Cannot read user variable "..DEHUMID_ISCANCELED)
      return nil
   end
end

-- Calculate the hysteris between dehumidfication start and stop
-- Hystersis is decreasing as a function of runtime
function calcHysteresis(temp)
	return (MAX_HUMID_HYSTERESIS - MIN_HUMID_HYSTERESIS) / ((getRunTime() / 60) * (1 / HUMID_HYSTERESIS_KONSTANT) + 1) + MIN_HUMID_HYSTERESIS
end

-- END OF FUNCTIONS --

commandArray = {}
now = os.time()

-- Check if dehumidifer switch is off
if (getDehumidifierSwitchState() == "Off") then

	-- Do checks if dehumidifier is not canceled
   if (isDehumidifierCanceled() == false) then

		--Check all humid devices
      local start = false
      for key,device in pairs(HUMANDTEMP_DEVICES) do

         temp = getTempFromDevice(device)
         hum  = getHumidityFromDevice(device)

         -- Only use working devices which has not old values
         if ((temp ~= nil) and (hum ~= nil) and (os.difftime(now, getDeviceLastUpdated(device)) < HUMID_DEVICE_TIMEOUT)) then startDehumidify = calcDeHumidLevel(temp) if (hum >= startDehumidify) then
               start = true
            end

            printHumidity(device, temp, hum, startDehumidify)

			else
            print("Has no updates for device "..device)
            print("Last seen "..device.." "..secsToClock(getDeviceLastUpdated(device)))
         end
      end

		-- Start if at least one device has triggered a start
      if (start == true) then

         -- Only start if MIN_STOPTIME has been reached
         if (os.difftime(now, getDeviceLastUpdated(DEHUMID_DEVICE_SWITCH)) > MIN_STOPTIME) then
            print("Starting dehumidification")
            commandArray[DEHUMID_DEVICE_SWITCH] = "On"
            return commandArray
         else
            print("Dehumidifier has not yet reached minimun stoptime which is "..secsToClock(MIN_RUNTIME)..". Time left is "..secsToClock(MIN_STOPTIME-getStopTime()))
         end
      else
			-- No devices has reached start dehumid level.
			-- Let's instead do some checks to see if humidifier is really stopped
         if (getDehumidifierWatts() ~= nil) then
            -- If device reports power after dehumidifier has been stopped, it is apperently not stopped.
            if ((getDehumidifierWatts() > 10) and  (getStopTime() > NO_POWERTEST_TIME)) then
               print("Dehumidifier shouldn't be running")
               print("Stopping Dehumidifier")
               commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
               return commandArray
            else
               print("Dehumidifier is not running")
               print("Dehumidifier stoptime is "..secsToClock(getStopTime()))
            end
         end
      end
	-- Do some checks if dehumidifier is canceled (and dehumidifier switch is off)
   elseif (isDehumidifierCanceled() == true) then
      if (getDehumidifierWatts() ~= nil)  then
         -- If device reports power when it is canceled it is not stopped
         if ((getDehumidifierWatts() > 10)) then
            print("Dehumidifier is canceled and switch is turned off, but it is still running")
            print("Stopping Dehumidifier")
            commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
            return commandArray
         else
            print("Dehumidifier is canceled and cannot be automatically started.")
            print("Dehumidifier stop time is "..secsToClock(getStopTime()))
         end
      end
   end
-- Check if dehumidifer switch is on
elseif (getDehumidifierSwitchState() == "On") then

	-- Do checks if dehumidifier is not canceled
   if (isDehumidifierCanceled() == false) then

      outdoorTemp = getTempFromDevice(DEVICE_OUTDOOR_TEMP)
      processAirTemp = getTempFromDevice(DEVICE_PROCESSAIR_TEMP)
      inletAirTemp = getTempFromDevice(DEVICE_INLETAIR_TEMP)

		-- First lets do some checks to see if all temperature is within boundaries
		-- If not, stop dehumidifier!
		if (outdoorTemp == nil) then
         commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
         print(string.format("Temperature device %s is not available. Last value was set %s", DEVICE_OUTDOOR_TEMP, os.date("%Y-%m-%d %H:%M:%S", getDeviceLastUpdated(DEVICE_OUTDOOR_TEMP))))
			print("Canceling dehumidification. Dehumidifier must be manually started")
         setDehumidifierState(true)
         return commandArray
      elseif (processAirTemp == nil) then
         commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
         print(string.format("Temperature device %s is not available. Last value was set %s", DEVICE_PROCESSAIR_TEMP,  os.date("%Y-%m-%d %H:%M:%S", getDeviceLastUpdated(DEVICE_PROCESSAIR_TEMP))))
			print("Canceling dehumidification. Dehumidifier must be manually started")
         setDehumidifierState(true)
			return commandArray
      elseif (inletAirTemp == nil) then
         commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
         print(string.format("Temperature device %s is not available. Last value was set %s", DEVICE_INLETAIR_TEMP,  os.date("%Y-%m-%d %H:%M:%S", getDeviceLastUpdated(DEVICE_INLETAIR_TEMP))))
			print("Canceling dehumidification. Dehumidifier must be manually started")
			setDehumidifierState(true)
			return commandArray
      elseif ((processAirTemp - outdoorTemp) > PROCESSAIR_TEMP_MAXINC) then
         commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
         print(string.format("Temperature delta, %2f, over dehumdifiers process air is greater than threshold %2f. Stopping dehumdifier for safety reasons", processAirTemp - outdoorTemp, PROCESSAIR_TEMP_MAXINC))
			print("Canceling dehumidification. Dehumidifier must be manually started")
			setDehumidifierState(true)
         return commandArray
      elseif ((inletAirTemp - outdoorTemp) > INLETAIR_TEMP_MAXINC) then
         commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
         print(string.format("Temperature delta, %2f, over dehumdifiers inlet  air is greater than the threshold %2f. Stopping dehumdifier for safety reasons", inletAirTemp - outdoorTemp, INLETAIR_TEMP_MAXINC))
			print("Canceling dehumidification. Dehumidifier must be manually started")
			setDehumidifierState(true)
         return commandArray
      end

		-- Check if runtime exceeds maximum runtime
		if (getRunTime() > MAX_RUNTIME) then
         commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
         print(string.format("Dehumidifier runtime %s exceed maximun runtime of %s. Stopping dehumidification.", secsToClock(getRunTime()), secsToClock(MAX_RUNTIME)))
         return commandArray
		end

      --Check all humid devices
      local stop = true
		local hysteresis = calcHysteresis()
	   print(string.format("Dehumid hysteris for runtime %s is %-3.2f", secsToClock(getRunTime()), hysteresis))

      for key,device in pairs(HUMANDTEMP_DEVICES) do
         temp = getTempFromDevice(device)
         hum  = getHumidityFromDevice(device)

         -- Only use working devices which has not old values
         if ((temp ~= nil) and (hum ~= nil) and (os.difftime(now, deviceToTime(otherdevices_lastupdate[device])) < HUMID_DEVICE_TIMEOUT)) then stopDehumidify = calcDeHumidLevel(temp) - hysteresis if (hum > stopDehumidify) then
					stop = false
				end

				printHumidity(device, temp, hum, stopDehumidify)

			else
            print("Has no updates for device "..device)
            print("Last seen "..device.." "..secsToClock(getDeviceLastUpdated(device)))
         end
      end

		-- Stop if at least one humid device has triggered a stop
      if (stop == true) then
         -- check if MIN_RUNTIME has been reached
         if (getRunTime() > MIN_RUNTIME) then
            print("Stopping dehumidification")
            commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
            return commandArray
         else
            print("Dehumidifier has not yet reached minimun runtime which is "..secsToClock(MIN_RUNTIME)..". Time left is "..secsToClock(MIN_RUNTIME-getRunTime()))
         end

		-- No devices has reached stop dehumid level.
		-- Let's instead do some checks to see if humidifier is really running
      elseif (getDehumidifierWatts() ~= nil) then
      -- If device reports no power NO_POWERTEST_TIME after dehumidifier has been started, it is apperently not running
         if ((getRunTime() > NO_POWERTEST_TIME) and (getDehumidifierWatts() < 10)) then print("Dehumidifier should be running but isn't") print("Restarting dehumidifier") commandArray[DEHUMID_DEVICE_SWITCH] = "On" -- All is working as it supposed to do elseif (getDehumidifierWatts() > 10) then
			   print(string.format("Dehumidifier is running. Dehumidifier power consumption is %d W", getDehumidifierWatts()))
            print("Dehumidifier runtime is "..secsToClock(getRunTime()))
         end
      end
	-- Do some checks if dehumidifier is canceled (and dehumidifier switch is on)
   elseif (isDehumidifierCanceled() == true) then
      print("Dehumidifier is canceled and switch is turned on")
      print("Stopping Dehumidifier")
      commandArray[DEHUMID_DEVICE_SWITCH] = "Off"
      return commandArray
   end
end
-- The possibility to the script to reach down here is very low. But if it is, lets return safely
return commandArray

Beräkning av fuktgräns mha mögelindex

Funktionen calcDeHumidLevel använder temperatur som inparameter för att beräkna den nedre fuktgränsen när det finns risk för mögeltillväxt.

-- calcDeHumidLevel calucates the RF level for a certain temperature
-- If the RF is higher then returned value, dehumidification shall be done
-- A safety margin of five percent is added
function calcDeHumidLevel(temp)
		local humidityThreshold
      if (temp < 0) then humidityThreshold = 100 elseif (temp > 22) then
         humidityThreshold = 79 - 5
      else
         humidityThreshold = integer(-0.0015 * temp ^ 3+0.1193 * temp ^ 2 - 2.9878 * temp + 102.96) - 5

			if (humidityThreshold > 100) then
				humidityThreshold = 100
			elseif (humidityThreshold < 0) then
				humidityThreshold = 0
			end

		end

		return humidityThreshold
end

Ekvationen är framtagen i Excel och går att analysera i bifogad Mogelindex.xlsx. Lua-koden gör en del kontroller. Bland annat är risken för mögel noll om det är minusgrader. Likaså kan inte den relativa fukthalten överstiga 100%.
En optimering görs då temperaturen överstiger 22 grader, då returneras ett statiskt värde. Detta eftersom ekvationen efter 22 grader inte riktigt följer mögelindex.
Marginalen på 5% är också tydligt synlig i funktionen.

Beräkning av Hysteres

Skriptet använder funktionen calcHysteris för att beräkna hysteresen mellan start och stopp.

-- Calculate the hysteris between dehumidfication start and stop
-- Hystersis is decreasing as a function av runtime
function calcHysteresis(temp)
	return (MAX_HUMID_HYSTERESIS - MIN_HUMID_HYSTERESIS) / ((getRunTime() / 60) * (1 / HUMID_HYSTERESIS_KONSTANT) + 1) + MIN_HUMID_HYSTERESIS
end

Principen är att minska hysteresen allt eftersom gångtiden ökar. Syftet är att låta avfuktaren kunna stoppa om gångtiden blir lång. I värsta fall kan avfuktaren gå i all oändlighet. Med denna funktion minskar den risken, den elimineras dock inte.

Hur hysteresen minskar med tiden bestäms av tre konstanter, MAX_HUMID_HYSTERESIS, MIN_HUMID_HYSTERESIS och HUMID_HYSTERESIS_KONSTANT. Hur dessa påverkar hysteresen går att analysera i bifogad Hysteres.xlsx.

Anledningen till att jag införde denna princip är att jag har en otät krypgrund (som ska tätas) och ibland blir det väldigt långa gångtider på avfuktaren. Den sista procenten tar ibland väldigt lång tid. På detta sätt undviks detta, värdet är ju ändå under fuktgränsen.

Ändringslogg

Datum	Anteckningar
2016-06-30	Första versionen publicerad
2016-07-02	Ändrade beräkningen av hysteres till en funktion som minskar hysteresen som en funktion av gångtiden. Syftet är att avfuktaren ska få en rimlig chans att kunna stoppa om dels hysteresen är stor och dels gångtiden är lång.
2016-07-03	Optimerade beräkningen av hysteres och setDehumidifierState. Förtydligade loggutskrift från OWFS_time.lua. Lagt till maximum runtime

Fjärdingsman Clas August Björkman – skjuten i tjänsten
Clas August Björkman föddes den 19 oktober 1868 i Snaggestastugan i Forssa socken i Södermanland. Han var son till Erik Gustaf Andersson och hans fru Anna Gustafsdotter. År 1891 gifter han sig med Hedvig Sofia Pettersson och de får sedermera 4 barn, det nästa äldsta barnet Eleonora Sofia är min pappas mormor.
Clas August var fjärdingsman och han sköts till döds i tjänsten den 21 juli 1922. Gärningsmannen var en psykiskt sjuk man som hade fått permission från S:t Annas sjukhus i Nyköping och han hade hotat en granne med en revolver. När polisen kom till platsen  (Clas August och t.f poliskommissarie Marklund), så skrek mannen att de skulle ge sig av eller så skulle han skjuta. Clas August och hans kollega stannade kvar var på mannen sköt Clas August i bröstet med ett hagelskott. Clas August transporterades till sjukhus men var död vid ankomsten.
Hela historien finns att läsa på Svenska Polismäns Minnesportal.

Clas August Björkman föddes den 19 oktober 1868 i Snaggestastugan i Forssa socken i Södermanland. Han var son till Erik Gustaf Andersson och hans fru Anna Gustafsdotter. År 1891 gifter han sig med Hedvig Sofia Pettersson och de får sedermera 4 barn, det nästa äldsta barnet Eleonora Sofia är min pappas mormor.
Clas August var fjärdingsman och han sköts till döds i tjänsten den 21 juli 1922. Gärningsmannen var en psykiskt sjuk man som hade fått permission från S:t Annas sjukhus i Nyköping och han hade hotat en granne med en revolver. När polisen kom till platsen (Clas August och t.f poliskommissarie Marklund), så skrek mannen att de skulle ge sig av eller så skulle han skjuta. Clas August och hans kollega stannade kvar var på mannen sköt Clas August i bröstet med ett hagelskott. Clas August transporterades till sjukhus men var död vid ankomsten.
Hela historien finns att läsa på Svenska Polismäns Minnesportal.

Förra sommaren hittade jag en annons på Blocket där en person sålde två Munters M120. Grannen och jag köpte var sin och sedan dess har de stått och samlat damm tills i höstas då vi bestämde oss för att genomföra vår plan som var att byta ut de två skokartongsliknande avfuktare som hustillverkaren ställt i krypgrunden.

Munters M120 är en s.k. adsorptionsavfuktare. Det är konstruerad med två kretslopp. I det enda kretsloppet suger den in luft från krypgrunden (processluft) och avfuktar den. Den torra avfuktade och varma luften (torrluft) blåses ut i krypgrunden via ett system av spirorör. Huset är L-format och torr luft blåses ut i de två utsticken medan själva avfuktaren står i basen där aggregatet suger in den luft som ska avfuktas.

I det andra kretsloppet suger aggregatet in uteluft (regenereringsluft) som värm upp och tar upp fukten. Den våta och varma luften (våtluft), passerar genom en hemmabyggd värmeväxlare och far sedan ut ur krypgrunden.

Arbetet tog en hel del tid då det var många moment. Dessutom kom vi på att vi skulle återvinna den värme som avfuktaren producerar. Detta åstadkom vi genom en hemmabyggd värmeväxlare bestående av 150 VP-rör som den fuktiga och varma luften passerar igenom innan den lämnar krypgrunden.

Att skapa denna värmeväxlare var en utmaning. Först försökte vi limma skarvmuffar mot baffeln (se bilden ovan) men limmet bet aldrig i skarvmuffens plast och därför lossade  skarvmuffen givetvis. Vi hittade då 20 mm skarvmuffar med skruvgänga som vi beställde från elbutik.se. Lösningen fungerar nu perfekt.

Själva växlaren består av ihopskarvade VP-rör som är upphängda i ett antal träreglar. Att få VP-rörens skarvar vattentäta var och är fortfarande en utmaning. Där återstår en del arbete medelst tätmassa. Vi kom också på att vi skulle ha borrat hålen genom reglarna lite större än VP-rören så att man enkelt kan skjuta rören fram och tillbaka. Att ha många reglar är också en fördel för att undvika att rören hänger mellan reglarna, vilket våra har en tendens att göra. Det bör vara ca 1 meter mellan varje regel.

Den varma och blöta luften kondenserar inuti VP-rören. Därmed måste växlaren luta och där den slutar måste vattnet kunna rinna ut. Det löste vi enligt bilden ovan. På nippeln anslöt vi en plastslang som mynnar under plasten.

Den våta luften håller en temperatur på ca 31 grader direkt efter aggregatet. Innan den lämnar krypgrunden har temperaturen sjunkit till en dryg grad över temperaturen i själva krypgrunden. Med tanke på att aggregatet drar 1300 watt där merparten är värme så är det helt klart godkänt.

Dimensionering

Att dimensionera rätt var något vi funderade mycket på. Om det blir för hårt luftmotstånd genom VP-rören kommer aggregatet att blir för varmt och överhettningsskyddet löser ut. Nu blev det inte så, vi hade tillräckligt många rör för att flödet skulle bli tillräckligt högt.

Fuktstyrning

Till en början skaffade vi en mycket enkelt fuktstyrning där vi satt en fuktgränsen på 60% RH. Vi upptäckte då att den gick rätt ofta, vilket givetvis medför en kostnad då aggregatet drar 1300 watt. Vi hade från början en plan på att bygga en mer intelligent fuktstyrning mha fuktsensorer ansluta via onewire till en Raspberry PI som styr själva aggregatet. Mer om detta i en senare bloggpost.

Resultatet

Vi har bytt ut den befintliga lösningen och hoppas på så sätt minska elkostnaden för avfuktningen i krypgrund. Resultatet blev bra, dock är det lite kvar att göra.  Främst att få skarvarna mellan VP-rören vattentäta och kanske även kondensisolera det varma röret som ansluter våtluften från aggregatet till första baffeln.

Framtiden får utvisa om detta bär sig, både praktiskt och ekonomiskt. Investeringskostnaden är inte oansenlig, förutom aggregatet har vi köpt följande mtrl:

• 15 meter 100 mm spirorör, från Soliduct
• Diverse T-tör, nipplar, flödesjusterare och till-luftventiler för spirorören, från Soliduct
• 150 st VP rör 20 mm från Biltema
• 240 skarvmuffar för 20 mm VP-rör, från Biltema
• 60 st 20 mm skarvmuffar med skruvgänga, från elbutik.se
• Diverse reglar, från närmaste brädgård
• Tätmassa, från Biltema
• 100 mm aluminiumslang och slangklämmor, från soliduct

Soldaterna

Västerbottens regemente

 

 

 

 

Motto: “De hava aldrig svikit eller för egen del tappat”
Mottot kommer från uttalande som Gustav III gjorde om regementet under 1788 års fälttåg

Förare Anders Larsson Lind 1669-1708
Anders Larsson Lind föddes ca 1669. Han gifter sig med Dorotea Nilsdotter Häggström från Piteå och de får sedermera 4 barn varav det yngsta, Kristina Katarina Regina Lind, född 1708, är min anmoder i nästa led.
Anders värvas som pipare (flöjtblåsare) i Skellefteå kompani den 15 februari 1689 och han stannade kvar som pipare till den 29 december 1699. Samma dag blev han korpral på Rote 77 Lutter, Myckle, Västerbotten. År 1705 blir han furir och 1707 förare (förare var en underofficer som ingick i kompaniets stab. Föraren skulle biträda fänriken samt svara för trossen och de sjuka vid staben, för uppröjning av marschväg och för utseende av lägerplatser).
Anders stupar den 31 augusti 1708 i slaget vid Malatitze i Vitryssland och han är då ca 39 år gammal. Slaget var en del av det Stora Nordiska kriget som pågick mellan år 1700-1721. Anders ingick i Karl XII berömda karolinerarmé.
Under det Stora Nordiska Kriget utplånades Skellefteå kompani två gånger, dels i Poltava 1709 och sedan igen i Estland 1710.

Korpral Fredrik Sundström Stålbröst 1779-1865
Fredrik Sundström föddes den 11 mars 1779 i Robertsfors, Bygdeå socken, Västerbotten. Han var son till sockenskrivaren och bokhållaren Johan Sundström och hans fru Magdalena Jönsdotter. Fredrik gifter sig 1802 med Cristina Nilsdotter och de får sedermera 4 barn varav sonen Nils Petter är min anfader i nästa led. Året efter giftermålet insätts Fredrik i Lövånger kompani och bosätter sig vid Rote 83 Gammelbyn i Burträsk. Vid inskrivningen är han 5 fot och 9 tum lång (ca 175 cm) och han tilldelas soldatnamnet Stålbröst. Fredrik kommer under sina 39 år i tjänst delta i både Finska kriget 1808-1809 samt Fälttåget mot Norge 1814-1815.

Korpralen hade hand om ett korpralskap, vanligen 24 man. Han ansvarade för närvaron och ordningen i sitt korpralskap. Korpralen tog även ut folk till kommenderingar och arbete.

Finska kriget 1808-1809
Under Finska kriget ingick Fredrik i Västerbottens regementes Södra bataljon. Han deltog i slaget vid Vasa den 25 juni 1808, slaget vid Alavo den
17 augusti 1808, slaget vid Ruona den 1 september 1808 och slaget vid Oravais den 14 september 1808. Slaget vid Oravais var det blodigaste slaget under kriget och Sverige förlorade 1 200 man i stupade, skadade och krigsfångar.
Regementets Norra och Södra bataljoner förenas i norra Finland och efter stilleståndet i Olkijoki den 19 november 1808, då de svenska styrkorna tvingades utrymma Finland, kunde regementet återvända hem till rotarna.
Enligt villkoren av general Gripenbergs kapitulation i Kalix den 25 mars 1809 skulle även Västerbottens regemente överlämnas åt ryssarna (för denna kapitulation kom Gripenberg att ställas inför krigsrätt för förräderi).
Detta verkställdes endast av den norra bataljonen under major Schildts befäl. Den södra, där Fredrik ingick, vägrade uppfylla villkoret.
Tillsammans med finska trupper sändes södra bataljonen i början av maj under överstelöjtnant Furumarks befäl från Umeå till Skellefteå för att söka rädda svenska förråd från att falla i händerna på ryssarna. De lyckades få iväg det mesta men blev den 15 maj själva kringrända av ryska trupper på isen och tvingades ge upp. Fredrik hamnar i rysk fångenskap och är krigsfånge mellan maj och september 1809. I samband med detta beslutade arméledningen att utrymma Västerbotten och dra återstående trupper ned till Ångermanland. Därmed inleddes en drygt tre månader lång ockupation av Västerbotten.
Efter freden i Fredrikshamn den 17 september 1809 fick de tillfångatagna västerbottningarna komma hem.

Norska fälttåget 1814:
Under norsk-svenska kriget 1814 deltog Fredrik i striderna vid Skotterud 1814, Slaget vid Lier den 2 augusti 1814 samt slaget vid Matrand/Medskog den 5 augusti 1814.
Regementet drogs samman i Värmland och ingick i den 10:e brigaden under generalmajor Gahn af Colquhoun. Brigaden intog ställningar i Morast i slutet av juli 1814 och gick samtidigt med den övriga armén den 1 augusti in i Norge och trängde fram till Kongsvinger.
Norrmännen hade en stark försvarsställning vid Lier söder om Kongsvinger och efter en 5 timmars strid den 2 augusti drog sig brigaden tillbaka till Malmer. Den 3 augusti fortsatte återtåget till Medskog. Den 5 augusti gick norrmännen till anfall där och västerbottningarna tog ställning vid bron över Wrangälven. När de svenska styrkorna retirerade utgjorde en bataljon ur Västerbottens regemente barriärgarde.
Vid Skotterud blev de svenska styrkorna omringade av 3 000 norrmän. Efter att försvarat sig ett tag beslöt Gahn att slå sig ut. Detta verkställdes av överste Knorring vid Västerbottens regemente. I spetsen gick västerbottningarnas 3:e bataljon och lyckades med ett bajonettanfall bana väg genom norrmännens linje. Strax efteråt följde resten av de övriga svenska trupperna. En stor del av trossen tvingades man lämna kvar vid utbrytningen. Striderna i Medskog och Skotterud medförde cirka 350 man i döda, sårade och fångna svenskar varav större delen hörde till Västerbottens regemente.
Efter striden i Midskog upphörde stridshandlingarna och den 14 augusti 1814 slöts freden och konventionen i Moss. Den 2 november anbefalldes uppbrott mot hemorten och den 28 december kom man till Umeå.

Efter dessa krig tjänstgjorde Fredrik i rotet, kompaniet och regementet ända till 1839, han var då 60 år gammal med 39 år i tjänst. Han erhöll interimsavsked med genmälet: “Bevistat affärerna vid Oravais, Vasa, Olava och Rona i Finland 1808 samt affärerna vid Brännberget, Skotterud, Lir och Medskog i Norge 1814. Tjänat utmärkt väl. Anmälan till underhåll”.
Den 10 mars 1865 dör Fredrik, 86 år gammal, och han bor då fortfarande i Gammelbyn, Burträsk, Västerbotten.

Källor:
Lövånger Bygdeå Burträsk soldater 1695-1835 av Lennart Andersson, Umeå universitet
Sidan ”Svenska regementen under indelningsverkets dagar” av Hans Högman
Wikipedia
Arkiv Digital husförhörslängder för Bygdeå och Burträsk socknar

 

Furir Nils Petter Frisk Sundström 1815-
Nils Petter Fredriksson Frisk Sundström föddes den 24 november 1815 i Gammelbyn, Burträsk, Västerbotten och var son till Fredrik Stålbröst och Cristina Nilsdotter. Nils Petter insätts, 20 år gammal, i Lövånger-Burträsk kompani 1835 och bosätter sig vid Rote 74 Lappvattnet i Burträsk, vid inskrivningen är han 5 fot och 11 tum lång (180 cm). Han gifter sig 1842 med Catharina Maria Olofsdotter och de får sedermera 5 barn varav sonen Nils Ludwig är min anfader i nästa led.
Nils Petter var fältjägare och gavs soldatnamnet Frisk. När han senare i karriären blir furir vid Skellefteå kompani så tar han tillbaka släktnamnet Sundström. Han blir så småningom sergeant.

Källor:
Burträsk husförhörslängd 1825-1835, AI:8a, sid 53 samt Burträsk husförhörslängd 1836-1846, AI:9a, sid 61.
Lövånger Bygdeå Burträsk soldater 1695-1835 av Lennart Andersson, Umeå universitet

 

Livregementets grenadjärer – Södermanlands kompani

Motto: : Artibus et armis recuperatur gloria (Vetande och vapen skänker ära).

Grenadjär Lars Larsson Modig 1783-1849
Lars Larsson Modig föddes den 1 november 1783 i Svenstorpet, Flen, Södermanland. Han var son till Lars Ersson och Karin Jansdotter. Lars gifter sig 1806 med Catharina Eriksdotter och de får sedermera 7 barn varav det yngsta, Fredrika, är min anmoder i nästa led.

Lars antogs till Livregementsbrigadens grenadjärkår, som 1815 bytte namn till Livregementets greandjärer, år 1807 och han var då 24 år gammal. Grenadjärerna var ett slags elitsoldater som tillhörde infanteriet och var de var soldater som utbildats i att kasta handgranater. Cirka tolv man i varje kompani var grenadjärer och de uttogs bland det starkaste och bästa fotfolket. Under 1700-talet skulle de vara ca 180 cm långa (Lars Larsson Modig var 5 fot och 10 tum, dvs cirka 178 cm) samt ståtliga, de hade dessutom speciella uniformshattar.

Under sin tid i tjänst så deltar Lars, liksom min västerbottniske anfader Fredrik Sundström Stålbröst, i både Finska kriget och Fälttåget mot Norge.
Lars träder ur tjänst den 26 juni 1834 efter 27 år i tjänst med genmälet: ”Lars Modig begär och erhåller avsked den 26 juni 1834 med anmälan till underhåll. Bevistat 1808, 1813 och 1814 års fälttåg. Tjänt väl. Är numera sjuklig och mindre arbetsför.”

Källor:
Generalmönsterrulla Livregementets Grenadjärkår 1837-1844, 225 Ver:a, bild 2280.
Wikipedia

 

Södermanlands regemente

Motto: Regimus neque hostis (Det är vi som bestämmer. Inte fienden.)

Soldat Anders Petter Persson Norrby 1828-1910
Anders Petter Persson föddes den 18 mars 1828 i Näset, Helgesta, Södermanland. Han var son till stataren Petter Jönsson och hans fru Anna Margareta Ericsdotter. Anders gifter sig med Ulrica Olsdotter och de får sedermera 6 barn varav det fjärde, Carl Oscar, är min anfader i nästa led.
Anders Petter antogs, 20 år gammal, vid Nyköpings kompani, rote Fyrby den 9 oktober 1848 och enligt handlingarna är han 172 centimeter lång. Han får soldatnamnet Norrby. Anders stannar vid rote Fyrby fram till den 17 juli 1855 då han flyttar till rote Blacksta. Den 18 juni 1879, efter 31 år i tjänst, begär Anders avsked.
Utdrag ur Krigsarkivet Södermanlands regemente: ”Begär och får avsked enligt läkarintyg. Anmälan till underhåll genast. Tjänt utmärkt väl.”
Anders Petter Persson Norrby dör, 82 år gammal, den 1 juli 1910 och han bor då i Sofiero, Hällby, Södermanland och det är Anders Petter som för in namnet Norrby i släkten.