SeedRnd MilliSecs()

     ;Eingabe:Synaptisches Gewicht!
     s3$=Input$(\"Methode:\")
 If s3$=\"!Z\" Then 
     s1=Input(\"Synaptischesgewicht1:\")
     s2=Input(\"Synaptischesgewicht2:\")
              EndIf
 
If s3$=\"!M\" Then 
 sM=Input(\"Synaptischesgewicht:\")
 xz=Input(\"Reitz:\")
 yz=Input(\"Hemung:\")
EndIf 
;Constanten:st=Stimullierendes Signal:h=hemendes Signal
Const st=5
Const h=2

   ;Signal anzahl
   Dim x(st)
   Dim y(h)

Global troll=0
Global Gesamt=0
Global sg=0



;Aufruf der Funktion
McCulloch_Pitts_Neuron(0,1,0,1,s1,s2,sM,xz,yz,s3$)

 


Function McCulloch_Pitts_Neuron(x1,x2,y1,y2,s1,s2,sM,xz,yz,s3$)
;Stimullierendes Signale:Wertbelegung nur 1 und 0 möglich 
For tx=0 To st
If s3$=\"!M\" Then  
x(tx)=xz
  Else 
x(tx)=Rand(x1,x2)
EndIf 
  Next 
;Hemendes Signale:Wertbelegung nur 1 und 0 möglich 
For ty=0 To h
If s3$=\"!M\" Then  
y(ty)=yz
  Else 
y(ty)=Rand(y1,y2)
EndIf 
  Next 
If s3$=\"!M\" Then  
sg=sM
  Else
sg=Rand(s1,s2)
EndIf 

For ty=0 To h
;Wenn die Zelle Hemd
If y(ty)>=1 Or y(Rand(0,h))>=1 Then
 troll=1
 If trut=0 Then

trut=1

;Ausgabe des Zellensignals!
Print 0

WaitKey()
tork=1 
EndIf 
    EndIf 
        Next
;Wenn die Zelle Stimmuliert wird
If tork=0 Then 
  For tx=0 To st
Gesamt=Gesamt+x(tx)+x(tx)
  
     Next
 Print \"Reitz:\"+Gesamt
 Print \"Synaptischesgewicht:\"+sg
WaitKey()

;Wenn die Anzahl der Reitzsignale größer ist als der Synaptischewiederstand 
If Gesamt>sg And troll=0 Then
  If ruth=0 Then 

ruth=1

;Zelle ist Stimulliert
Print 1


WaitKey()

EndIf 
    EndIf

If Gesamt<=sg Then
  If fox=0 Then
Print 0
  fox=1  
    EndIf 
       EndIf 
           EndIf  
End Function