Sparrow-Atemtrainer
(oder
ein seltsamer 99-mal-Blinker)
von Heinz D.
Haftungsausschluss:
-------------------
Sie können das Gerät auf eigene Verantwortung nutzen, jedoch keine Haftung daraus ableiten!
Warnung:
--------
Das
Gerät beeinflusst Atmung, Herzschlag und Gehirnwellen und ist NUR für
Erwachsene. Falls es Kindern in die Hände fällt, erklären Sie nicht,
was Sie damit machen. Kinder können sich an dem Blinken erfreuen. Das
Gerät ist nur für völlig gesunde Personen. Machen Sie die ersten
Versuche trotzdem nicht allein. Wie bei Videospielen, können Epilepsie
oder Gleichgewichts-Störungen ausgelöst werden. Schließen Sie dann
sofort die Augen, atmen normal weiter und benutzen das Gerät nicht
mehr.
Vorgeschichte:
Ich habe versucht verschiedene Entspannungstechniken zu lernen. Joga,
Hypnose, Biofeedback usw. sind nicht überall und manchmal nicht allein
durchführbar. Erst ein Atemtrainer hat mir die Entspannung gebracht,
die sonst nur durch einen kurzen Schlaf möglich war. Ich habe mir
damals ein gleichartiges Gerät gebaut. Heute ist das mit einem
Sparrow/T13 schnell erledigt.
Die Idee und die Forschung
dahinter ist einfach und einleuchtend. Herzschlag und Atmung stehen in
einem Verhältnis ~4:1 zueinander. Die Gehirnwellen folgen der Atmung
(verzögert) im Verhältnis ~24:1.
Diese
Werte sind nur ungefähr, nur für gesunde 35jährige Erwachsene und nur
lose mit einander gekoppelt, nicht fest, wie bei einem Getriebe.
Altersbedingt können erhebliche Abweichungen entstehen.
Realisierung
und Anleitung: Nach dem Einschalten/Taste-S1 werden Sie mit 20 ganzen
Atemzügen pro min 'abgeholt' (= 1,5s+1,5s), Einatmen bei grün, Ausatmen
bei rot. Dann wird die Atmung kurz auf 60/min erhöht, um dann langsam
auf 10/min abgesenkt zu werden. Das Gerät schaltet sich dann aus und
Sie sollten die Augen schließen und noch ein wenig verweilen. Das Ganze
dauert ~6min und ist fast überall durchführbar. Nutzen Sie die
langsamen Phasen um tiefer ein- und auszuatmen. Mir hat es schon oft
geholfen.
Da WAIT nur Konstanten zulässt, muss der Timer0
sowohl PWM für den (optionalen) Ton erzeugen, als auch per
Interrupt die Zeitbasis bereitstellen. An B.1 wird ein kurzer Ton zu
Beginn jeden Atemzyklus ausgegeben. Falls Sie die Augen schließen
wollen, können Sie hier einen Piezo anschließen.
Noch eine Warnung:
------------------
Falls
Sie sich unwohl fühlen, dann brechen Sie sofort ab und warten nicht,
bis möglicherweise eine Verbesserung eintritt. Das Gerät ist wie ein
Medikament aufzubewahren und gehört nicht in Kinderhände. Wenden Sie
das Gerät nur bei gesunden, wachen Erwachsenen und nur tagsüber an.
Nachbau:
Da eine 3V-Knopfzelle eine Weile hält, können Sie eine Led weglassen
und alles mit einem S1-Taster einschrumpfen, für unterwegs.
P.S.
Im Netz finden sich zum Thema Brainwave, Puls und Atmung weitere
Hinweise, jedoch selten eine ganzheitliche Betrachtung über die
Zusammenhänge.
Download: Sparrow-Atemtrainer.zip
(Aus Sicherheitsgründen gibt es keine fertige App, man muss sich aktiv selbst um den Upload kümmern)
' Sparrow-Atemtrainer
'
' Haftungsausschluss:
' -------------------
' Sie können das Gerät auf eigene Verantwortung nutzen, jedoch keine Haftung daraus ableiten!
'
' Warnung: Das Gerät beeinflusst Atmung, Herzschlag und Gehirnwellen und ist NUR für Erwachsene.
'-------------------------------------------------------------------------------
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack
=
16
'8
$swstack =
16
'4
$framesize =
16
'4
Stop Watchdog : Stop Ac : Stop
Adc
'Sprit sparen
Green Alias Portb.1 : Red Alias Portb.3
Mcucr
=
&B00110001
'sleep enable, powerdown enable, pin change enable
Pcmsk =
1
'für PCINT0
Gimsk =
32
'PCIE
'Zeitbasis + PWM
Config Timer0 = Pwm , Compare_b_pwm =
Clear_up , Prescale = 1 :
'1,2MHz/511/1 ~2348,34Hz ~425,833us
On Ovf0 Tim0_isr : Enable Timer0 : Enable Interrupts : Start Timer0
Const
60_pro_min =
1174
'0,5s+0,5s
Const 20_pro_min =
3522
'1,5s+1,5s
Const 10_pro_min =
8218
'3,5s+3,5s
Const Stufe = 96
Const _stufe =
-96
'~gesamtzeit ~35000/n
Declare Sub Ausgabe
Dim Delayms As Word
Dim I As Word
Do
Ddrb = &B01010 : Portb =
&B00001
'aux, red, S2, green, S1 : pullup
For I = 20_pro_min To 60_pro_min Step _stufe : Ausgabe : Next I 'Anstieg
For I = 60_pro_min To 10_pro_min Step Stufe : Ausgabe : Next I 'Abfall
Ddrb = 0
:
'alles aus
Portb =
1
'pullup für S1
sleep
'ab ins Bett
nop
'wach geworden ?
Loop
'-------------------------------------------------------------------------------
Tim0_isr:
Delayms = Delayms + 1
Return
Sub Ausgabe:
Pwm0b =
128
'Ton ein, Green = 1
Red = 0
Do : If Delayms = 20 Then Pwm0b =
255
'Ton aus, green = 1
Loop Until I = Delayms : Delayms = 0
Pwm0b =
0
'Green = 0
Red = 1
Do : Loop Until I = Delayms : Delayms = 0
End Sub
'-------------------------------------------------------------------------------
