That's not a good way to ask a question: here's my
whole program, zhoom, and go figure out what's wrong
with it.
If you are seriouly expecting to get help here, provide
small data samples and walk through the execution
steps here, until you stumble upon a wrong piece.
Then ask your particular question. Makes sense?
--- Alan Mac Hugh <[EMAIL PROTECTED]> wrote:
> Hi I'm working on a assignment for college, I would e-mail my lecture, but
> the assignment due in on Monday at 12noon and I'm not sure if he checks his
> e-mail over the weekend. I have got the program working, but the output is
> not right.
>
> When I type in
>
> NetParams calcNetError Weights
>
> I should just get the answer.
>
> I know the answer there as when I type calcNetError, the answer is the last
> thing displayed.The propagate function is my lectures solution to a previous
> assignment all the rest is my own code.
>
> Below is the code:
>
> [code]
>
> nProd =: +/ . * NB. dyad: returns inner product of x and y
>
> sig =: [: %@:>: [: ^@:- ] NB. monad: returns sigmoid function of y
>
> getIHW =: (2 2) $ (i. 4) { ] NB. monad: returns the input->hidden
> weight matrix from y
>
> getHOW =: (2 1) $ (4 + i. 2) { ] NB. monad: returns the hidden->output
> weight matrix from y
>
> calcHiddenOut =:[: sig [ inProd getIHW NB. dyad: returns the hidden unit
> activations
>
> NB. from input x to network with y weights
>
> propagate =: [: sig calcHiddenOut inProd getHOW NB. dyad: returns the
> output from the output unit
>
> NB. from input x to a network with y weights
>
>
>
>
>
> ] Weights =: 10 5 15 30 1 1
>
> 10 5 15 30 1 1
>
>
>
> NIn=: 2
>
> NHid=:2
>
> Nout=:1
>
> Data=:0 1 1, 1 0 1, 0 0 0,: 1 1 0
>
>
>
> NetParams=:NIn; NHid; Nout; Data
>
> Input=: |: (0 1 { |: > Data)
>
> desOutputs=:|: ( 2 { |: > Data)
>
> Output=:Input propagate Weights
>
> Error=:+/ *: Output-desOutputs
>
> calcNetError=: Input,desOutputs, Output, Error
>
> NetParams calcNetError Weights
>
>
> [/code]
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
