14 lines
297 B
APL
14 lines
297 B
APL
:Namespace Phase2
|
||
|
||
(⎕IO ⎕ML ⎕WX)←1 1 3
|
||
|
||
⍝ Neural Network Problem Set
|
||
|
||
⍝ Problem 1 - Transfer Functions
|
||
StepFn←{¯1+2×0≤⍵}
|
||
Sigmoid←{÷1+*-⍵}
|
||
|
||
⍝ Problem 2 - Perceptron
|
||
Perceptron←{⍺⍺+/⍺×⍵}
|
||
|
||
:EndNamespace
|