A Looking Glass Into the Unconscious

"Aha, a looking glass into the unconscious!" - Carl Jung. You can easily get it and get even more!

Oct 15, 2020

•

682 views

•

2 respects

electrodermal activity

unconscious

self-development

Components and supplies

Resistor 221 ohm

Resistor 22.1k ohm

LED (generic)

Resistor 100 ohm

Speaker: 0.25W, 8 ohms

Apps and platforms

Arduino IDE

Project description

Code

Code for "A looking glass to unconscious"

arduino

1/*
2#include "pitches.h"
3int melody[] = { NOTE_C4, NOTE_G3, NOTE_G3,  NOTE_A3, NOTE_G3, 0, NOTE_B3, NOTE_C4};
4int noteDurations[] = {4, 8, 8, 4, 4,  4, 4, 4};
5*/
6
7const int  buttonPin = 13;    // the pin that the pushbutton  is attached to
8
9// Variables will change:
10int buttonPushCounter = 0;   //  counter for the number of button presses
11int buttonState = 0;         // current  state of the button
12int lastButtonState = 0;     // previous state of the button
13
14unsigned  long laiks;
15int punkts[210];
16float sum1=0;
17float sum2=0;
18float sk1=0;
19float  sk2=0;
20float kods=0;
21int skaitstot=0;
22int iepriepr=0;
23int iepr=0;
24float  pulss=0;
25float skrr=0;
26float sumrr=0;
27int n=0;
28int notikums=0;
29int  lampuskaits=0;
30int rr[20];
31int setpoint=750;
32int skaitsvirs=0;
33int skaitszem=0;
34float  vidrr=0;
35float videjaispulss=0;
36float skaits1=0;
37float summa1=0;
38float  videjais1=0;
39float jaaa=0;
40unsigned long laiks1;
41float summa;
42float  skaits;
43float tagad=0;
44float tagad1=0;
45int cikls=0;
46int spont=0;
47int  iepr1=0;
48int iepr2=0;
49int iepr3=0;
50int iepr4=0;
51int iepr5=0;
52int  iepr6=0;
53int iepr7=0;
54int iepr8=0;
55int iepr9=0;
56int iepr10=9;
57int  skana=0;
58
59int spontskaits=0;
60float kgrdemo=0;
61int tagadsek=0;
62int  kgriepr=0;
63int kgrtagad=0;
64int kgrdelta=0;
65
66int kots=0;
67int atslega=0;
68int  kotsmots=55;
69
70
71#include "pitches.h"
72int melody[] = { NOTE_C4, NOTE_G3,  NOTE_G3, NOTE_A3, NOTE_G3, 0, NOTE_B3, NOTE_C4};
73int noteDurations[] = {4, 8,  8, 4, 4, 4, 4, 4};
74
75unsigned long laiks0;
76float videjais;
77float agr=0;
78float  starp=0;
79float koef=0;
80int bloks=0;
81
82void setup() 
83{
84  pinMode(12,  OUTPUT);
85  pinMode(11, OUTPUT);
86  pinMode(10, OUTPUT);
87  pinMode(9, OUTPUT);
88  pinMode(8, OUTPUT);
89  pinMode(7, OUTPUT);
90  pinMode(6, OUTPUT);
91  pinMode(5,  OUTPUT);
92  pinMode(4, OUTPUT);
93  pinMode(3, OUTPUT);
94  Serial.begin(9600);
95Serial.begin(9600);
96}
97
98
99
100void  loop ()
101{
102
103
104// ###################################################################
105//  SĀKAS ASTOTĀ
106// ###################################################################
107
108while  (1==1){ 
109
110laiks0 = millis();
111summa=0;
112skaits=0;
113do { 
114tagad =  analogRead(A2);
115skaits=skaits+1;
116summa=summa+tagad;
117}
118while (millis()  - laiks0 <200);
119tagad = summa/skaits;
120Serial.println (tagad);
121
122 digitalWrite(3,  LOW); 
123 digitalWrite(4, LOW); 
124 digitalWrite(5, LOW); 
125 digitalWrite(6,  LOW); 
126 digitalWrite(7, LOW); 
127 digitalWrite(8, LOW); 
128 digitalWrite(9,  LOW); 
129 digitalWrite(10, LOW); 
130 digitalWrite(11, LOW); 
131 digitalWrite(12,  LOW); 
132
133if (tagad>150){
134spont=0;
135if (tagad>iepr1){spont=spont+1;}
136if  (iepr1>iepr2){spont=spont+1;}
137if (iepr2>iepr3){spont=spont+1;}
138if (iepr3>iepr4){spont=spont+1;}
139if  (iepr4>iepr5){spont=spont+1;}
140if (iepr5>iepr6){spont=spont+1;}
141if (iepr6>iepr7){spont=spont+1;}
142if  (iepr7>iepr8){spont=spont+1;}
143if (iepr8>iepr9){spont=spont+1;}
144if (iepr9>iepr10){spont=spont+1;}
145
146if  (spont==0) {
147   digitalWrite(3,HIGH);
148   digitalWrite(4,HIGH);
149   digitalWrite(5,HIGH);
150   digitalWrite(6,HIGH);
151   digitalWrite(7,HIGH);
152   digitalWrite(8,HIGH);
153   digitalWrite(9,HIGH);
154   digitalWrite(10,HIGH);
155   digitalWrite(11,HIGH);
156   digitalWrite(12,HIGH);
157   }
158 if (spont==1) {
159   digitalWrite(3,HIGH);
160   digitalWrite(4,HIGH);
161   digitalWrite(5,HIGH);
162   digitalWrite(6,HIGH);
163   digitalWrite(7,HIGH);
164   digitalWrite(8,HIGH);
165   digitalWrite(9,HIGH);
166   digitalWrite(10,HIGH);
167   digitalWrite(11,HIGH);
168   }  
169if (spont==2)  {
170   digitalWrite(3,HIGH);
171   digitalWrite(4,HIGH);
172   digitalWrite(5,HIGH);
173   digitalWrite(6,HIGH);
174   digitalWrite(7,HIGH);
175   digitalWrite(8,HIGH);
176   digitalWrite(9,HIGH);
177   digitalWrite(10,HIGH);
178   }    
179if (spont==3)  {
180   digitalWrite(3,HIGH);
181   digitalWrite(4,HIGH);
182   digitalWrite(5,HIGH);
183   digitalWrite(6,HIGH);
184   digitalWrite(7,HIGH);
185   digitalWrite(8,HIGH);
186   digitalWrite(9,HIGH);
187   } 
188if (spont==4) {
189   digitalWrite(3,HIGH);
190   digitalWrite(4,HIGH);
191   digitalWrite(5,HIGH);
192   digitalWrite(6,HIGH);
193   digitalWrite(7,HIGH);
194   digitalWrite(8,HIGH);
195   }      
196if (spont==5)  {
197   digitalWrite(3,HIGH);
198   digitalWrite(4,HIGH);
199   digitalWrite(5,HIGH);
200   digitalWrite(6,HIGH);
201   digitalWrite(7,HIGH);
202   }     
203if (spont==6)  {
204   digitalWrite(3,HIGH);
205   digitalWrite(4,HIGH);
206   digitalWrite(5,HIGH);
207   digitalWrite(6,HIGH);
208   }
209   if (spont==7) {
210   digitalWrite(3,HIGH);
211   digitalWrite(4,HIGH);
212   digitalWrite(5,HIGH);
213   }
214   if (spont==8)  {
215   digitalWrite(3,HIGH);
216   digitalWrite(4,HIGH);
217   }
218   if (spont==9)  {
219   digitalWrite(3,HIGH);
220   }
221   if (spont==10) {
222   }
223  
224skana=map(spont,10,0,1000,100);
225  tone(2, skana, 100);
226  delay(1);  
227
228}
229
230iepr10=iepr9;
231iepr9=iepr8;
232iepr8=iepr7;
233iepr7=iepr6;
234iepr6=iepr5;
235iepr5=iepr4;
236iepr4=iepr3;
237iepr3=iepr2;
238iepr2=iepr1;
239iepr1=tagad;
240  
241} // beidzas if 1==1
242
243// ################################################################
244//  BEIDZAS ASTOTĀ
245// ################################################################
246
247
248}  // beidzas "void loop ()"
249
250

/*
#include "pitches.h"
int melody[] = { NOTE_C4, NOTE_G3, NOTE_G3,  NOTE_A3, NOTE_G3, 0, NOTE_B3, NOTE_C4};
int noteDurations[] = {4, 8, 8, 4, 4,  4, 4, 4};
*/

const int  buttonPin = 13;    // the pin that the pushbutton  is attached to

// Variables will change:
int buttonPushCounter = 0;   //  counter for the number of button presses
int buttonState = 0;         // current  state of the button
int lastButtonState = 0;     // previous state of the button

unsigned  long laiks;
int punkts[210];
float sum1=0;
float sum2=0;
float sk1=0;
float  sk2=0;
float kods=0;
int skaitstot=0;
int iepriepr=0;
int iepr=0;
float  pulss=0;
float skrr=0;
float sumrr=0;
int n=0;
int notikums=0;
int  lampuskaits=0;
int rr[20];
int setpoint=750;
int skaitsvirs=0;
int skaitszem=0;
float  vidrr=0;
float videjaispulss=0;
float skaits1=0;
float summa1=0;
float  videjais1=0;
float jaaa=0;
unsigned long laiks1;
float summa;
float  skaits;
float tagad=0;
float tagad1=0;
int cikls=0;
int spont=0;
int  iepr1=0;
int iepr2=0;
int iepr3=0;
int iepr4=0;
int iepr5=0;
int  iepr6=0;
int iepr7=0;
int iepr8=0;
int iepr9=0;
int iepr10=9;
int  skana=0;

int spontskaits=0;
float kgrdemo=0;
int tagadsek=0;
int  kgriepr=0;
int kgrtagad=0;
int kgrdelta=0;

int kots=0;
int atslega=0;
int  kotsmots=55;


#include "pitches.h"
int melody[] = { NOTE_C4, NOTE_G3,  NOTE_G3, NOTE_A3, NOTE_G3, 0, NOTE_B3, NOTE_C4};
int noteDurations[] = {4, 8,  8, 4, 4, 4, 4, 4};

unsigned long laiks0;
float videjais;
float agr=0;
float  starp=0;
float koef=0;
int bloks=0;

void setup() 
{
  pinMode(12,  OUTPUT);
  pinMode(11, OUTPUT);
  pinMode(10, OUTPUT);
  pinMode(9, OUTPUT);
  pinMode(8, OUTPUT);
  pinMode(7, OUTPUT);
  pinMode(6, OUTPUT);
  pinMode(5,  OUTPUT);
  pinMode(4, OUTPUT);
  pinMode(3, OUTPUT);
  Serial.begin(9600);
Serial.begin(9600);
}



void  loop ()
{


// ###################################################################
//  SĀKAS ASTOTĀ
// ###################################################################

while  (1==1){ 

laiks0 = millis();
summa=0;
skaits=0;
do { 
tagad =  analogRead(A2);
skaits=skaits+1;
summa=summa+tagad;
}
while (millis()  - laiks0 <200);
tagad = summa/skaits;
Serial.println (tagad);

 digitalWrite(3,  LOW); 
 digitalWrite(4, LOW); 
 digitalWrite(5, LOW); 
 digitalWrite(6,  LOW); 
 digitalWrite(7, LOW); 
 digitalWrite(8, LOW); 
 digitalWrite(9,  LOW); 
 digitalWrite(10, LOW); 
 digitalWrite(11, LOW); 
 digitalWrite(12,  LOW); 

if (tagad>150){
spont=0;
if (tagad>iepr1){spont=spont+1;}
if  (iepr1>iepr2){spont=spont+1;}
if (iepr2>iepr3){spont=spont+1;}
if (iepr3>iepr4){spont=spont+1;}
if  (iepr4>iepr5){spont=spont+1;}
if (iepr5>iepr6){spont=spont+1;}
if (iepr6>iepr7){spont=spont+1;}
if  (iepr7>iepr8){spont=spont+1;}
if (iepr8>iepr9){spont=spont+1;}
if (iepr9>iepr10){spont=spont+1;}

if  (spont==0) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   digitalWrite(10,HIGH);
   digitalWrite(11,HIGH);
   digitalWrite(12,HIGH);
   }
 if (spont==1) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   digitalWrite(10,HIGH);
   digitalWrite(11,HIGH);
   }  
if (spont==2)  {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   digitalWrite(10,HIGH);
   }    
if (spont==3)  {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   } 
if (spont==4) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   }      
if (spont==5)  {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   }     
if (spont==6)  {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   }
   if (spont==7) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   }
   if (spont==8)  {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   }
   if (spont==9)  {
   digitalWrite(3,HIGH);
   }
   if (spont==10) {
   }
  
skana=map(spont,10,0,1000,100);
  tone(2, skana, 100);
  delay(1);  

}

iepr10=iepr9;
iepr9=iepr8;
iepr8=iepr7;
iepr7=iepr6;
iepr6=iepr5;
iepr5=iepr4;
iepr4=iepr3;
iepr3=iepr2;
iepr2=iepr1;
iepr1=tagad;
  
} // beidzas if 1==1

// ################################################################
//  BEIDZAS ASTOTĀ
// ################################################################


}  // beidzas "void loop ()"

Downloadable files

Schematics for "A looking glass to unconscious"

Comments

Only logged in users can leave comments

algal16

0 Followers

•

0 Projects

Intro

Trademarks & CopyrightsWhistleblowingDigital Services ActTerms of ServicePrivacy PolicySecurityCookie Settings

Report content