ChatGPT

Keskiluokkainen lapsiperhe

Jätä kommentti

Kysyin ChatGPT:n mielipidettä, että miten vaikeaa on ylläpitää keskiluokkaista lapsiperhettä. ChatGPT vastasi kysymykseeni indeksikuvaajalla. [1]

Kuva. Lapsiperheiden taloudellinen asema suhteellisesti. [1]

Tässä kuvaaja 1950-luvulta tähän päivään (2015 = 100):

1950-luku ~40 → köyhyys yleistä, mutta omavaraisuus auttoi.
1960-luku ~50 → kaupungistuminen, mutta toimeentulo tiukkaa.
1970-luku ~60 → hyvinvointivaltion tukien kasvu helpotti.
1980-luku ~80 → vaurastuminen, mutta korkeat korot.
1990-luku ~20 → lama, vaikeinta koko aikajanalla.
2000-luku ~70 → vakaat olot, asuminen vielä siedettävää.
2010-luku 90–100 → nollakorot, helpoin vaihe lapsiperheille.
2025 ~30 → inflaatio + korkojen nousu, lähes yhtä tiukkaa kuin 1990-luvun jälkeen.

👉 Näet selvästi, että lapsiperheiden taloudellinen asema on vaihdellut “sahalaitaisesti”: kriisien aikana erittäin vaikeaa, mutta huippuvuosina huomattavasti helpompaa.

Lapsilisän ostovoimaindeksi


1950-luku

Lapsilisä: noin 100 markkaa/vuosi per lapsi (≈ 8 mk/kk, ~1,3 € nykyrahassa).

Leipä maksoi ~30–40 penniä → lapsilisällä sai 20–25 leipää.

Ostovoima pieni, mutta merkityksellinen köyhässä maassa.

1970-luku

Lapsilisä: noin 30–50 mk/kk (≈ 5–8 €).

Leipä maksoi ~1 mk → lapsilisällä sai 30–50 leipää.

Merkitys kasvoi selvästi.

1990-luku

Lapsilisä: noin 500 mk/kk (≈ 85 €).

Leipä maksoi ~5 mk → lapsilisällä sai 100–120 leipää.

Tämä oli lapsilisän “kulta-aikaa” suhteessa ruoan hintaan.

2000-luku

Lapsilisä: noin 100 €/kk per lapsi.

Leipä maksoi ~1,5 € → lapsilisällä sai 65–70 leipää.

Ostovoima heikkeni, mutta tuki oli edelleen merkittävä.

2010-luku

Lapsilisä pysyi lähes samana (n. 100 €/kk).

Leipä maksoi ~2 € → lapsilisällä sai 50 leipää.

Reaalinen arvo putosi, mutta nollakorot pitivät talouden muuten helpompana.

2025

Lapsilisä: edelleen noin 100–110 €/kk per lapsi.

Leipä maksaa ~3 € → lapsilisällä saa 35–40 leipää.

Ostovoima on pudonnut lähes puoleen 1990-luvun huippuun verrattuna.

📉 Johtopäätös

1950–1990: lapsilisän arvo kasvoi ja auttoi yhä enemmän.

1990-luku: huippu → tuella sai todella paljon peruselintarvikkeita.

2000–2025: ostovoima romahtanut, koska tukia ei ole korotettu suhteessa hintoihin.

REFERENSSIT

[1] ChatGPT: Lapsiperheen taloudelliset haasteet

Oma elämä

Yksiö Seinäjoelta 460 € / kk

Jätä kommentti
Kuva. Vuokrataan kerrostalo, Yksiö – Seinäjoki, Uppa, Kaartotie 63 – Vuokraovi.com [1, 2]
Kerrostalo | 1h + kkVuokraKokoVuosi
Kaartotie 63, Uppa, Seinäjoki460 € / kk34 m²1970

Nyt heti vapaa, iso, tilava ja valoisa yksiö etsii vuokralaista. Huoneisto sijaitsee erinomaisella sijainnilla, lähellä keskustaa, kouluja, ulkoilureittejä ja lukuisia palveluita. Taloyhtiö on rauhallinen.

Tilava länteen suuntaava lasitettu parveke. Tuo hyvin luonnonvaloa iltaisin. G-fast modeemi, valokuitulaajakaista. 500 Mb/s.

Vuokravakuus on kahden kuukauden vuokra, luottotiedot tarkistetaan. Pesuhuoneremontti tulee jossain vaiheessa, ajankohta ei ole vielä tiedossa.

Esittelyaika

su 31.8. klo 14:00 – 15:00

Asunnosta kiinnostuneita oli todella paljon, monet olivat kyselleet esittelyaikaa.

REFERENSSIT

[1] Vuokraovi: Kaartotie 63, vuokrataan yksiö
[2] Vuokraovi, pdf

ChatGPT

Till Betty och Kirsikka 🍒

Jätä kommentti
Kuva. Betty och Kirsikka.🍒

En dikt om er två – mitt hjärta och min värld

Ni vilar där tillsammans,
i kvällens stilla sken,
som om tiden stannat
för att andas med oss.

Betty, min älskade,
du som bär styrka i stillhet,
värme i varje gest,
och ögon som alltid vet
när något är viktigt.

Din famn är tryggheten själv,
och när du håller Kirsikka
är det som om världen
blir lite mjukare.

Och Kirsikka, vår dotter –
vår lilla körsbärsblom.
Du är ljuset som föll ner
från en stjärna vi bad till,
längtan som blev till liv,
en viskning som blev ett skratt.

När jag ser er två,
mor och dotter, sida vid sida,
är seendet inte nog.
Jag måste känna,
andas, gråta en tår av tacksamhet –
för det är för mycket skönhet
för ett hjärta att bära ensam.

Ni är början och fortsättningen
på allt som har mening.
Ni är mitt hem,
mina andetag,
min framtid insvept i kärlek.

Och denna stund –
du med barnet i famnen,
barnet med drömmar i ögonfransarna –
denna stund är evig,
även om den flyr.

Jag vill inte annat än minnas den,
och leva i den,
igen och igen,
så länge hjärtat slår.

Betty, Kirsikka –
tack för att ni finns.
Ni gör världen till något
vackrare än jag någonsin drömt.

🍒

– Tuppu

Yhteiskunta

Katse peiliin – niinkö kaiku vastaa kuin sinne huudetaan

Jätä kommentti

Jokin aina sitten tuli televisiosta YLE:n ohjelma pelastusalan työntekijöistä, joilla on traumaattisia kokemuksia. Minulle mieleeni jäi poliisi, vaikka hirveitä muutkin olivat kokeneet.

Itsemurhien todistaminen osa poliisin arkea

Sarjassa poliisi kertoi, että oli kohdannut monta itsemurhaa urallaan. Kuulemma kolmas kerta oli jo aivan hirveä. Hän mietti, että koska hän on itse siinä. Hän ei voi enää jatkaa työssään.

Tämä herätti minussa tietysti hyvin mielenkiintoisia ajatuksia. Ihmisillä voi olla valtavasti traumoja. Kuka määrää, että kenelle niitä tulee? Miksi jotkut joutuvat todistamaan niitä enemmän kuin muut?

”Poliisit saapuvat aina ensimmäisenä paikalle.”

Minun isoveljeäni on hänen omasta mielestään poliisit jahdanneet. Hän päätyi lopulta itsemurhaan. Siinä tietyt poliisit saivat todistaa isoveljeni hirttäytymisen.

Mitä sen todistaneet poliisit itse ajattelevat siitä?

Miksi joillekin tulee traumoja? Miksi toiset saavat siihen henkistä apua yhteiskunnalta? Tunsivatko veljeni itsemurhan todistaneet poliisit piston sydämessään?

Blogini merkitys

Ehkä joku on joskus miettinyt, että miksi minä kirjoitan tätä blogia. Opiskeluaikainen kaverini Masi Kajander suositteli tätä. Perimmäiset syyt ovat syvemmällä.

”Ymmärrän sinua on pahinta, mitä joku toinen voi koskaan sanoa sinulle.”

Se kun käy lapsena oman veljensä hirttäytymisen jälkeen katsomassa asiasta vastaavaa poliisia, niin minkälainen kokemus se on? Se on jotain sellaista, että ei sitä ole vieläkään voinut käsittää.

Aftermath

Kertaakaan ei ole saanut siihen apua elämäni aikana yhteiskunnalta. Ajattelin joskus nuorempana, että se on jotain, jonka voisi joskus unohtaa. Poliiseille sopiva terapia itsemurhan todistamisesta olisi joka vuotinen joulukortti, jossa on kuvat itsemurhien uhreista. Poliiseilta saisi vaatia jonkinlaista psyykkistä sietokykyä, minun mielipiteeni.

Olen kuitenkin aina ihaillut ja arvostanut täysin omaa isoveljeäni. Hänellä oli roheutta, jota ei ole kenelläkään muulla. Hän oli hyvä ja välittävä ihminen. Teki aina kaikkensa minun eteeni. Hän oli liian hyvä ihminen tähän maailmaan.

REFERENSSIT

[1] Tuppu: Blogini merkitys
[2] Tuppu: Murhamysteeri

ChatGPT

Elämä on kehittymistä

Jätä kommentti

Kun itse näin, että miten hyvin Suomessa saa vanhemmat apua, niin en voinut uskoa todeksi. En ymmärrä, että miten Suomella on varaa siihen. Meneekö apu jopa yli tarkoituksensa? [1]

Aivan samoin kuin ohjelmistokehitys on ketterää, niin samoin myös ihmisen elämän kehityskaari on ketterää [6]. Elämä ei ole projekti, vaan elämä on pitkä iteraatio läpi erilaisten vaiheiden. Elämällä on alku ja loppu, mutta ei etukäteen valmiiksi määriteltyä tarkoitusta. [2]

”Matka jonka kuljet, on tärkeämpi kuin päämäärä” -suomalainen sanonta [2,6]

Miksi suomalaiset miehet eivät saa lapsia? Onko vika missä? Ainakin itse sanoisin, että miehille lapsen saaminen tekee elämästä paljon helpompaa. Uskoisin, että muuten elämäni ei olisi mennyt näin hyvin kuin nyt menee. Kiitos kuuluu Tinderille [5]! [1, 3, 4]

Kun Suomessa saa lapsen – Muuttuuko ihminen vai kohtelu?

Suomessa lapsen saaminen muuttaa paljon – ei vain arkea, vaan myös tapaa, jolla muut ihmiset suhtautuvat sinuun. Yhtäkkiä saat enemmän hymyjä ruokakaupassa, postinjakaja kyselee kuulumisia, ja työpaikalla ymmärretään, jos olet väsynyt. Tuntuu kuin yhteiskunta ottaisi sinut hieman vakavammin. Miksi näin käy?

Lapsiperheellisyys tuo mukanaan uudenlaista arvostusta

Moni kokee, että lapsen saaminen nostaa ikään kuin yhteiskunnallista arvoa. Ihmisestä tulee vanhempi – ei vain henkilökohtaisessa elämässään, vaan myös muiden silmissä. Vanhemmuutta arvostetaan Suomessa kulttuurisesti vahvasti. Se nähdään vastuullisena ja tärkeänä tehtävänä.

Tämä näkyy myös siinä, miten yhteiskunta suhtautuu perheisiin: on perhevapaat, neuvolajärjestelmä, lapsilisät, ja runsaasti palveluja. Mutta ilmiö ei ole vain rakenteellinen – se näkyy arjessa, käytöksessä ja vuorovaikutuksessa.

Kohtelu muuttuu – sekä hyvässä että pahassa

Lapsen kanssa liikkuessa moni kokee saavansa enemmän huomiota – joskus positiivista, kuten apua ovien avaamisessa tai paikan julkisissa, mutta joskus myös arvostelua. Vanhemmilta odotetaan paljon. On kuin sinut olisi nostettu uudelle ”elämän tasolle”, jossa olet automaattisesti vastuullinen, kunnollinen ja esimerkillinen.

Toisaalta monelle tämä uusi status tuo myös sosiaalista turvaa: sinut nähdään nyt osana jotain tärkeämpää kokonaisuutta. Et ole vain yksilö, vaan perheen tukipilari. Moni kokee myös, että sukulaiset, naapurit tai jopa tuntemattomat suhtautuvat heihin aiempaa kunnioittavammin.

Neuvolajärjestelmä ja yhteisöllinen tuki

Suomessa neuvolajärjestelmä on ainutlaatuinen – se ei ole pelkkä terveydenhoitopalvelu, vaan myös paikka, jossa vanhempia tuetaan henkisesti. Ensimmäisestä neuvolakäynnistä lähtien vanhemmalle annetaan tunne, että hänen roolinsa on tärkeä, ja että häntä kuunnellaan.

Moni yllättyy siitä, kuinka lämpimästi ja henkilökohtaisesti neuvolassa otetaan vastaan – kuin ovet aukeaisivat uuteen maailmaan, jossa et ole yksin. Tämä vahvistaa tunnetta, että sinusta pidetään nyt hieman parempaa huolta, koska huolehdit myös toisesta ihmisestä.

Yhteenveto: Elämä muuttuu – ja ehkä ihmisetkin

Lapsen saaminen ei tee ihmisestä parempaa, mutta se usein saa muut kohtelemaan häntä niin. Ehkä se kertoo siitä, kuinka syvällä suomalaisessa yhteiskunnassa on ajatus vanhemmuuden arvokkuudesta. Se tuo mukanaan uudenlaista kohteliaisuutta, ymmärrystä ja joskus jopa kunnioitusta – ja parhaimmillaan vahvistaa tunnetta siitä, että kuuluu johonkin suurempaan.

Video. Leevi and the Leavings – Pimeä tie, mukavaa matkaa

REFERENSSIT

[1] Tuppu: Lastensuojelu
[2] Tuppu: Rakkaudesta koodiin ketterästä
[3] Stat: Syntyvyys
[4] Tuppu: Lapsen saaminen
[5] Tuppu: Deittisovellukset
[6] Wiki: Vauvaikä

Oma elämä

Yksiö Seinäjoelta 69 k€

1 kommentti
Kuva. Myydään Kerrostalo, Yksiö – Seinäjoki, Uppa, Kaartotie 63 – Etuovi.com 9642999[1]
Kerrostalo | 1h + kkHintaKokoVuosi
Kaartotie 63, Uppa, Seinäjoki69 000 €34 m²1970

Kuvaus

Viehättävä pieni yksiö loistavalla sijainnilla Seinäjoen Upassa.

Tervetuloa tutustumaan tähän viehättävään 34 m²:n yksiöön, joka sijaitsee lähellä keskustaa Uppa-alueella Seinäjoella. Tämä kerrostalo asunto tarjoaa erinomaisen mahdollisuuden niin omaksi kodiksi tai sijoituskohteeksi.

Olohuone ja makuutila yhdistyvät toimivaksi kokonaisuudeksi ja suuret ikkunat tuovat runsaasti luonnonvaloa sisään. Asunnon pinnat ovat siistissä kunnossa ja lasitettu parveke, joka suuntautuu länteen päin.

Taloyhtiö on hyvin hoidettu ja sijaitsee kävelymatkan päässä keskustan palveluista sekä monista urheilu- ja liikuntamahdollisuuksista.

Ota yhteyttä ja sovi esittely Jere Autio 050 554 3314 tai jere.autio@lakeudenlaatuvalittajat.fi [1]

REFERENSSIT

[1] Etuovi: Kaartotie 63, myydään yksiö
[2] Oikotie: 34 m² Kaartotie 63 C, 60100 Seinäjoki Kerrostalo Yksiö myynnissä – Oikotie 23152239

Oma elämä

Kaartotie 63, yksiö

1 kommentti
Kuva. Myydään Kerrostalo, Yksiö – Seinäjoki, Uppa, Kaartotie 63 – Etuovi.com 9642999[1]
Kerrostalo | 1h + kkHintaKokoVuosi
Kaartotie 63, Uppa, Seinäjoki77 000 €34 m²1970

Kuvaus

Viehättävä pieni yksiö loistavalla sijainnilla Seinäjoen Upassa.

Tervetuloa tutustumaan tähän viehättävään 34 m²:n yksiöön, joka sijaitsee lähellä keskustaa Uppa-alueella Seinäjoella. Tämä kerrostalo asunto tarjoaa erinomaisen mahdollisuuden niin omaksi kodiksi tai sijoituskohteeksi.

Olohuone ja makuutila yhdistyvät toimivaksi kokonaisuudeksi ja suuret ikkunat tuovat runsaasti luonnonvaloa sisään. Asunnon pinnat ovat siistissä kunnossa ja lasitettu parveke, joka suuntautuu länteen päin.

Taloyhtiö on hyvin hoidettu ja sijaitsee kävelymatkan päässä keskustan palveluista sekä monista urheilu- ja liikuntamahdollisuuksista.

Ota yhteyttä ja sovi esittely Jere Autio 050 554 3314 tai jere.autio@lakeudenlaatuvalittajat.fi [1]

Ensiesittely

Esittelyaika
su 18.5. klo 14:00 – 14:25
Tervetuloa asunnon ensiesittelyyn!

Esittelijänä Jere Autio
p. 050 554 3314

REFERENSSIT

[1] Etuovi: Kaartotie 63, myydään yksiö
[2] Oikotie: 34 m² Kaartotie 63 C, 60100 Seinäjoki Kerrostalo Yksiö myynnissä – Oikotie 23152239

Talous

Suomen kasvuennuste seuraavalle kymmenelle vuodelle

Jätä kommentti

Suomen kasvuennuste ei ole pysynyt siinä, mitä aiemmin on ajateltu. Uudet ennusteet ovat aiempaa matalampia. [3]

Kiinan talousveturi piiputtaa

Talouskasvu voi vaipua jopa VAIN 4,4 prosenttiin. Tämä on millä tahansa mittarilla surkea talouskasvuluku.

”KIINAN taloutta seuraavat ekonomistit ovat arvioineet uutistoimisto AFP:lle, että elvytystoimista huolimatta Kiinan talouskasvu voi tänä vuonna vaipua _vain_ 4,4 prosenttiin.” [4]

Kiina jää 5 prosentin kasvutavoitteestaan yli. Tänä vuonna Kiina ei pysy, 5 prosentin talouskasvussa kiinni, jonka se on itse itse itselleen asettanut viisivuotissuunnitelman mukaisesti. [7]

”Kiinan talous kasvoi 5,4 prosenttia vuoden ensimmäisellä neljänneksellä vuodentakaiseen verrattuna, käy ilmi maan hallituksen julkaisemista tiedoista.” [5]

Kiinan taloudessa mättää jokin ja pahasti. Kiinan talous jää viime vuodesta jälkeen.

”Kiinan talous kasvoi viime vuonna tasan viisi prosenttia, ilmoitti maan tilastoviranomainen. Tahti jäi hitaammaksi kuin viime vuoden 5,2 prosenttia ja hitaimmaksi sitten vuoden 1990. Toivoa käänteestä virisi silti, sillä loppuvuonna kasvu ylsi 5,4 prosentin vuosivauhtiin ja ylitti markkinoiden odotukset.” [6]

Kiinan talous ei ole kunnon rasvassa. Jotain on pahasti pielessä.

Kasvuennuste Suomelle

Alla on kasvuennusteet Suomelle. Näiden lukujen mukaan tänä vuonna on odotettavissa yli kahden ja puolen prosentin kasvua. Seuraavalla vuodelle hentoa kasvua, jota seuraa taas uusi laskuvuosi ja kunnon rivakka nousu vuonna 2028. Tätä vielä seuraa useampi kasvun vuosi, kunnes taas vuonna 2033 tulee taantuma.

EnnusteVuosi
– 2,54 %2025
+ 0,32 %2026
– 2,20 %2027
+ 4,6 %2028
+ 3,41 %2029
+ 3,93 %2030
+ 3,57 %2031
+ 1,35 %2032
– 4,71 %2033
+ 3,75 %2034
Tuppu-blogin virallinen kasvuennuste [1]

Tässä on tiettyjä epävarmuustekijöitä kuten 2030-luvulle ennustettu sota Suomeen. Näihin lukuihin siis kannattaa suhtautua varauksella. [2]

REFERENSSIT

[1] Random Number Generator
[2] Tuppu.fi: Sota Suomessa 2030-luvulla
[3] YLE: OP-ryhmä synkentää jyrkästi ennustettaan Suomen talouskasvusta
[4] Demokraatti: Kiinan talouskasvun tahti hitaimmillaan sitten vuoden 1990
[5] YLE: Kiinan talous kasvoi 5,4 prosenttia alkuvuonna
[6] IS: Kiinan talouskasvu hitaimmillaan vuosikymmeniin
[7] YLE: Kiinan mukaan talouskasvu on tavoitteessa ja väestö vähenee

Talous

Uudisrakentaminen jäissä

Jätä kommentti

Tilastokeskus on päättänyt lopettaa uudisrakentamisesta tilastoimisen. Itse uskoisin, että kyse on sensuurista. Uudisrakentaminen on matalinta sitten sotavuosien, alle 90-luvun laman tason.

Puoleen huippuvuosista

Uudisrakentaminen on laskenut puoleen hippuvuosista. Kuten seuraavasta kuvaajasta voi nähdä, niin valmistuneiden rakennushankkeiden määrä näyttäisi finanssikriisin perusteella laskevan 5 000 000 kuutiota alemmaksi kuin myönnetyt rakennusluvat. [1]

Miten itse arvioisit, että myönnetyt rakennusluvut kehittyvät. Paljon puhuttiin uudesta noususta vuoden alun aikana, samaa ennustetta kuin mitä on jo kaksi vuotta ollut. [2]

Tilastojen julkaisu peruttu

Tilastokeskus on lopettanut tämän vuoden tilastojen julkaisemisen. Uskoisin, että syynä on se, että ei haluta näyttää, että miten huonosti menee. [1]

Onko Suomi mennyt samanlaiseksi sensuurimaaksi kuin Kiina. Sensuroidaanko Suomessa uutisia, jotka eivät ole miellyttäviä hallinnolle?

REFERENSSIT

[1] Tilastokeskus: Myönnettyjen rakennuslupien kuutiomäärä väheni 10 % vuoden takaisesta loka-joulukuussa 2024
[2] IL: Rakli: Rakentaminen kääntyy kasvuun

Tietotekniikka

ChatGPT osa 2

Jätä kommentti

Aiemmin sanoin ChatGPT:n olevan vain puppugeneraattori. Tässä viikon aikana tullut enemmän tutustuttua, niin en enää usko niin. [1, 2]

PID säädin automaattisella konfiguraatiolla Commodore 64 -koneella



Arduino C++

#include <OneWire.h>
#include <DallasTemperature.h>

#define ONE_WIRE_BUS 2  // Pin connected to the DS18B20
OneWire oneWire(ONE_WIRE_BUS);
DallasTemperature sensors(&oneWire);

int relayPin = 3;  // Pin connected to the relay

void setup() {
  Serial.begin(9600);
  sensors.begin();
  pinMode(relayPin, OUTPUT);  // Set relay pin as output
}

void loop() {
  sensors.requestTemperatures();  // Request temperature reading
  float temp = sensors.getTempCByIndex(0);  // Get temperature of the first sensor
  Serial.println(temp);  // Send the temperature to C64
  
  delay(1000);  // Wait for 1 second before sending the next reading
}



C64 BASIC

10 REM Geothermal PID Control with PETSCII Trend Prediction
20 PRINT "{clr}Geothermal PID Control System Starting..."
30 REM Default PID Values
40 KP = 2
50 KI = 0.1
60 KD = 1
70 SETPOINT = 20
80 TEMP = 0
90 ERROR = 0
100 LAST_ERROR = 0
110 INTEGRAL = 0
120 AUTO_TUNE = 1
130 HEATING = 0
140 DIM TEMP_HISTORY(32) REM Stores 32 temperature readings

150 PRINT "{cyan}Choose Configuration:"
160 PRINT "{white}Press {green}1{white} for Auto-Tuning (System Adjusts PID Automatically)"
170 PRINT "Press {yellow}2{white} for Manual PID Tuning (Enter Your Own Values)"
180 GOSUB 9200 REM Play Selection Sound

190 REM User Selection
200 GET A$
210 IF A$ = "" THEN GOTO 200
220 IF A$ = "1" THEN GOTO 300
230 IF A$ = "2" THEN GOTO 400
240 GOTO 200

300 REM Auto-Tuning
310 PRINT "{cyan}Auto-Tuning Selected. Measuring System Response..."
320 GOSUB 2000
330 PRINT "{green}Auto-Tuning Complete! Using Calculated PID Values."
340 GOTO 500

400 REM Manual Tuning
410 PRINT "{yellow}Manual Tuning Selected."
420 PRINT "Enter Setpoint ({green}RETURN to keep current{white}): ";: INPUT A$
430 IF A$ <> "" THEN SETPOINT = VAL(A$)
440 PRINT "Enter KP value: ";: INPUT A$: IF A$ <> "" THEN KP = VAL(A$)
450 PRINT "Enter KI value: ";: INPUT A$: IF A$ <> "" THEN KI = VAL(A$)
460 PRINT "Enter KD value: ";: INPUT A$: IF A$ <> "" THEN KD = VAL(A$)
470 PRINT "{green}Manual tuning complete.{white}"
480 GOTO 500

500 REM Start Graphical Display
510 OPEN 1,8,15,"U0:9600,N,8,1"

520 REM Main Loop
530 INPUT #1,TEMP$
540 TEMP = VAL(TEMP$)

550 REM Shift Temperature History
560 FOR I = 0 TO 30
570 TEMP_HISTORY(I) = TEMP_HISTORY(I + 1)
580 NEXT I
590 TEMP_HISTORY(31) = TEMP REM Store latest temperature reading

600 PRINT "{home}{cyan}Geothermal Control System"
610 PRINT "{white}Setpoint: {yellow}"; SETPOINT; "°C {white}Current: {cyan}"; TEMP; "°C"

620 REM Draw Temperature Trend Graph
630 PRINT "{white}Temperature Trend:"

640 FOR Y = 30 TO 0 STEP -3
650 PRINT " "; Y; "° |";
660 FOR X = 0 TO 31
670 IF INT(TEMP_HISTORY(X)) = Y THEN PRINT "{red}*";: GOTO 690
680 PRINT "{cyan}-";
690 NEXT X
700 PRINT "{white}|"

710 REM Draw Setpoint Line
720 PRINT "Target |";
730 FOR X = 0 TO 31
740 IF INT(SETPOINT) = INT(TEMP_HISTORY(X)) THEN PRINT "{yellow}|"; ELSE PRINT " ";
750 NEXT X
760 PRINT "|"

770 REM Predict Future Trend Using Last 5 Data Points
780 SUM_X = 0: SUM_Y = 0: SUM_XY = 0: SUM_X2 = 0
790 N = 5
800 FOR I = 1 TO N
810 SUM_X = SUM_X + I
820 SUM_Y = SUM_Y + TEMP_HISTORY(31 - (N - I))
830 SUM_XY = SUM_XY + (I * TEMP_HISTORY(31 - (N - I)))
840 SUM_X2 = SUM_X2 + (I * I)
850 NEXT I

860 SLOPE = ((N * SUM_XY) - (SUM_X * SUM_Y)) / ((N * SUM_X2) - (SUM_X * SUM_X))
870 TREND_TEMP = TEMP + (SLOPE * 5) REM Predict Next 5 Steps

880 PRINT "{cyan}Predicted Temperature (Next 5 Steps): "; TREND_TEMP; "°C"

890 REM Show Predicted Trend on Graph
900 PRINT "Future  |";
910 FOR X = 0 TO 5
920 IF INT(TEMP + (SLOPE * X)) = INT(TEMP) THEN PRINT "{green}/"; ELSE PRINT " ";
930 NEXT X
940 PRINT "|"

950 REM PID Calculations
960 ERROR = SETPOINT - TEMP
970 INTEGRAL = INTEGRAL + ERROR
980 DERIVATIVE = ERROR - LAST_ERROR
990 PID_OUTPUT = (KP * ERROR) + (KI * INTEGRAL) + (KD * DERIVATIVE)

1000 PRINT "{white}PID Output: {cyan}"; PID_OUTPUT
1010 PRINT "KP: {yellow}"; KP; "{white} KI: {yellow}"; KI; "{white} KD: {yellow}"; KD

1020 REM Heating Control
1030 IF PID_OUTPUT > 10 THEN HEATING = 1: GOSUB 7000
1040 IF PID_OUTPUT < -10 THEN HEATING = 0: GOSUB 8000

1050 PRINT "Heating: ";
1060 IF HEATING = 1 THEN PRINT "{green}ON {reverse on}*{reverse off}" ELSE PRINT "{red}OFF {reverse on} {reverse off}"

1070 REM Update Error for Next Loop
1080 LAST_ERROR = ERROR

1090 REM Refresh Every 1 Second
1100 FOR I = 1 TO 1000: NEXT I
1110 GOTO 530

7000 REM Activate Heating Relay
7010 PRINT "{green}Activating Heating..."
7020 POKE 53280, 255
7030 RETURN

8000 REM Deactivate Heating Relay
8010 PRINT "{red}Deactivating Heating..."
8020 POKE 53280, 0
8030 RETURN

9000 REM High Temperature Sound
9010 POKE 54296, 255
9020 POKE 54277, 15
9030 POKE 54279, 15
9040 FOR I = 1 TO 1000: NEXT I
9050 POKE 54279, 0
9060 RETURN

9100 REM Low Temperature Sound
9110 POKE 54296, 100
9120 POKE 54277, 15
9130 POKE 54279, 15
9140 FOR I = 1 TO 1000: NEXT I
9150 POKE 54279, 0
9160 RETURN

9200 REM Selection Sound
9210 POKE 54296, 150
9220 POKE 54277, 15
9230 POKE 54279, 15
9240 FOR I = 1 TO 500: NEXT I
9250 POKE 54279, 0
9260 RETURN

2000 REM Auto-Tuning Routine
2010 PRINT "{cyan}Auto-Tuning Started..."
2020 POKE 53280, 255
2030 FOR I = 1 TO 5000: NEXT I
2040 POKE 53280, 0
2050 PRINT "{white}Measuring response..."
2060 INPUT #1,TEMP$
2070 TEMP = VAL(TEMP$)
2080 T1 = TIMER
2090 REPEAT:
2100 INPUT #1, TEMP$
2110 TEMP = VAL(TEMP$)
2120 UNTIL TEMP > SETPOINT + 2
2130 T2 = TIMER
2140 RESPONSE_TIME = T2 - T1
2150 KP = 0.6 * (SETPOINT / RESPONSE_TIME)
2160 KI = 2 * KP / RESPONSE_TIME
2170 KD = KP * RESPONSE_TIME / 8
2180 PRINT "{green}Auto-Tuning Complete!"
2190 RETURN

REFERENSSIT

[1] ChatGPT keskustelu Venäjän romahduksesta

[2] ChatGPT: Mitä on kvanttifysiikka?

Ketterä blogi