home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / persim / part03 < prev    next >
Encoding:
Text File  |  1992-04-05  |  29.0 KB  |  865 lines
  1. Newsgroups: comp.sources.misc
  2. From: stein.wbst129@xerox.com (Adam Stein)
  3. Subject:  v29i056:  persim - Single-Layer Perceptron Simulator, Part03/03
  4. Message-ID: <1992Apr5.025137.28435@sparky.imd.sterling.com>
  5. X-Md4-Signature: 01f180e6aa35a9338af217a19e369277
  6. Date: Sun, 5 Apr 1992 02:51:37 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: stein.wbst129@xerox.com (Adam Stein)
  10. Posting-number: Volume 29, Issue 56
  11. Archive-name: persim/part03
  12. Environment: BSD
  13.  
  14. #! /bin/sh
  15. # This is a shell archive.  Remove anything before this line, then feed it
  16. # into a shell via "sh file" or similar.  To overwrite existing files,
  17. # type "sh file -c".
  18. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  19. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  20. # Contents:  example1/desired1.asc example1/desired10.asc
  21. #   example1/desired2.asc example1/desired3.asc example1/desired4.asc
  22. #   example1/desired5.asc example1/desired6.asc example1/desired7.asc
  23. #   example1/desired8.asc example1/desired9.asc example1/input1.asc
  24. #   example1/input10.asc example1/input2.asc example1/input3.asc
  25. #   example1/input4.asc example1/input5.asc example1/input6.asc
  26. #   example1/input7.asc example1/input8.asc example1/input9.asc
  27. #   example1/output1 example1/output10 example1/output6
  28. #   example1/output7 example1/output8 example1/output9
  29. #   example1/weights.asc example2/desired1.asc example2/desired10.asc
  30. #   example2/desired2.asc example2/desired3.asc example2/desired4.asc
  31. #   example2/desired5.asc example2/desired6.asc example2/desired7.asc
  32. #   example2/desired8.asc example2/desired9.asc example2/input1.asc
  33. #   example2/input10.asc example2/input2.asc example2/input3.asc
  34. #   example2/input4.asc example2/input5.asc example2/input6.asc
  35. #   example2/input7.asc example2/input8.asc example2/input9.asc
  36. #   example2/output10 example2/output6 example2/output7
  37. #   example2/output8 example2/output9 example2/weights.asc
  38. # Wrapped by kent@sparky on Sat Apr  4 20:29:31 1992
  39. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  40. echo If this archive is complete, you will see the following message:
  41. echo '          "shar: End of archive 3 (of 3)."'
  42. if test -f 'example1/desired1.asc' -a "${1}" != "-c" ; then 
  43.   echo shar: Will not clobber existing file \"'example1/desired1.asc'\"
  44. else
  45.   echo shar: Extracting \"'example1/desired1.asc'\" \(2 characters\)
  46.   sed "s/^X//" >'example1/desired1.asc' <<'END_OF_FILE'
  47. X1
  48. END_OF_FILE
  49.   if test 2 -ne `wc -c <'example1/desired1.asc'`; then
  50.     echo shar: \"'example1/desired1.asc'\" unpacked with wrong size!
  51.   fi
  52.   # end of 'example1/desired1.asc'
  53. fi
  54. if test -f 'example1/desired10.asc' -a "${1}" != "-c" ; then 
  55.   echo shar: Will not clobber existing file \"'example1/desired10.asc'\"
  56. else
  57.   echo shar: Extracting \"'example1/desired10.asc'\" \(2 characters\)
  58.   sed "s/^X//" >'example1/desired10.asc' <<'END_OF_FILE'
  59. X1
  60. END_OF_FILE
  61.   if test 2 -ne `wc -c <'example1/desired10.asc'`; then
  62.     echo shar: \"'example1/desired10.asc'\" unpacked with wrong size!
  63.   fi
  64.   # end of 'example1/desired10.asc'
  65. fi
  66. if test -f 'example1/desired2.asc' -a "${1}" != "-c" ; then 
  67.   echo shar: Will not clobber existing file \"'example1/desired2.asc'\"
  68. else
  69.   echo shar: Extracting \"'example1/desired2.asc'\" \(2 characters\)
  70.   sed "s/^X//" >'example1/desired2.asc' <<'END_OF_FILE'
  71. X1
  72. END_OF_FILE
  73.   if test 2 -ne `wc -c <'example1/desired2.asc'`; then
  74.     echo shar: \"'example1/desired2.asc'\" unpacked with wrong size!
  75.   fi
  76.   # end of 'example1/desired2.asc'
  77. fi
  78. if test -f 'example1/desired3.asc' -a "${1}" != "-c" ; then 
  79.   echo shar: Will not clobber existing file \"'example1/desired3.asc'\"
  80. else
  81.   echo shar: Extracting \"'example1/desired3.asc'\" \(2 characters\)
  82.   sed "s/^X//" >'example1/desired3.asc' <<'END_OF_FILE'
  83. X1
  84. END_OF_FILE
  85.   if test 2 -ne `wc -c <'example1/desired3.asc'`; then
  86.     echo shar: \"'example1/desired3.asc'\" unpacked with wrong size!
  87.   fi
  88.   # end of 'example1/desired3.asc'
  89. fi
  90. if test -f 'example1/desired4.asc' -a "${1}" != "-c" ; then 
  91.   echo shar: Will not clobber existing file \"'example1/desired4.asc'\"
  92. else
  93.   echo shar: Extracting \"'example1/desired4.asc'\" \(3 characters\)
  94.   sed "s/^X//" >'example1/desired4.asc' <<'END_OF_FILE'
  95. X-1
  96. END_OF_FILE
  97.   if test 3 -ne `wc -c <'example1/desired4.asc'`; then
  98.     echo shar: \"'example1/desired4.asc'\" unpacked with wrong size!
  99.   fi
  100.   # end of 'example1/desired4.asc'
  101. fi
  102. if test -f 'example1/desired5.asc' -a "${1}" != "-c" ; then 
  103.   echo shar: Will not clobber existing file \"'example1/desired5.asc'\"
  104. else
  105.   echo shar: Extracting \"'example1/desired5.asc'\" \(2 characters\)
  106.   sed "s/^X//" >'example1/desired5.asc' <<'END_OF_FILE'
  107. X1
  108. END_OF_FILE
  109.   if test 2 -ne `wc -c <'example1/desired5.asc'`; then
  110.     echo shar: \"'example1/desired5.asc'\" unpacked with wrong size!
  111.   fi
  112.   # end of 'example1/desired5.asc'
  113. fi
  114. if test -f 'example1/desired6.asc' -a "${1}" != "-c" ; then 
  115.   echo shar: Will not clobber existing file \"'example1/desired6.asc'\"
  116. else
  117.   echo shar: Extracting \"'example1/desired6.asc'\" \(2 characters\)
  118.   sed "s/^X//" >'example1/desired6.asc' <<'END_OF_FILE'
  119. X1
  120. END_OF_FILE
  121.   if test 2 -ne `wc -c <'example1/desired6.asc'`; then
  122.     echo shar: \"'example1/desired6.asc'\" unpacked with wrong size!
  123.   fi
  124.   # end of 'example1/desired6.asc'
  125. fi
  126. if test -f 'example1/desired7.asc' -a "${1}" != "-c" ; then 
  127.   echo shar: Will not clobber existing file \"'example1/desired7.asc'\"
  128. else
  129.   echo shar: Extracting \"'example1/desired7.asc'\" \(2 characters\)
  130.   sed "s/^X//" >'example1/desired7.asc' <<'END_OF_FILE'
  131. X1
  132. END_OF_FILE
  133.   if test 2 -ne `wc -c <'example1/desired7.asc'`; then
  134.     echo shar: \"'example1/desired7.asc'\" unpacked with wrong size!
  135.   fi
  136.   # end of 'example1/desired7.asc'
  137. fi
  138. if test -f 'example1/desired8.asc' -a "${1}" != "-c" ; then 
  139.   echo shar: Will not clobber existing file \"'example1/desired8.asc'\"
  140. else
  141.   echo shar: Extracting \"'example1/desired8.asc'\" \(3 characters\)
  142.   sed "s/^X//" >'example1/desired8.asc' <<'END_OF_FILE'
  143. X-1
  144. END_OF_FILE
  145.   if test 3 -ne `wc -c <'example1/desired8.asc'`; then
  146.     echo shar: \"'example1/desired8.asc'\" unpacked with wrong size!
  147.   fi
  148.   # end of 'example1/desired8.asc'
  149. fi
  150. if test -f 'example1/desired9.asc' -a "${1}" != "-c" ; then 
  151.   echo shar: Will not clobber existing file \"'example1/desired9.asc'\"
  152. else
  153.   echo shar: Extracting \"'example1/desired9.asc'\" \(2 characters\)
  154.   sed "s/^X//" >'example1/desired9.asc' <<'END_OF_FILE'
  155. X1
  156. END_OF_FILE
  157.   if test 2 -ne `wc -c <'example1/desired9.asc'`; then
  158.     echo shar: \"'example1/desired9.asc'\" unpacked with wrong size!
  159.   fi
  160.   # end of 'example1/desired9.asc'
  161. fi
  162. if test -f 'example1/input1.asc' -a "${1}" != "-c" ; then 
  163.   echo shar: Will not clobber existing file \"'example1/input1.asc'\"
  164. else
  165.   echo shar: Extracting \"'example1/input1.asc'\" \(22 characters\)
  166.   sed "s/^X//" >'example1/input1.asc' <<'END_OF_FILE'
  167. X1.0
  168. X1.653669
  169. X0.751830
  170. END_OF_FILE
  171.   if test 22 -ne `wc -c <'example1/input1.asc'`; then
  172.     echo shar: \"'example1/input1.asc'\" unpacked with wrong size!
  173.   fi
  174.   # end of 'example1/input1.asc'
  175. fi
  176. if test -f 'example1/input10.asc' -a "${1}" != "-c" ; then 
  177.   echo shar: Will not clobber existing file \"'example1/input10.asc'\"
  178. else
  179.   echo shar: Extracting \"'example1/input10.asc'\" \(22 characters\)
  180.   sed "s/^X//" >'example1/input10.asc' <<'END_OF_FILE'
  181. X1.0
  182. X1.287520
  183. X0.845964
  184. END_OF_FILE
  185.   if test 22 -ne `wc -c <'example1/input10.asc'`; then
  186.     echo shar: \"'example1/input10.asc'\" unpacked with wrong size!
  187.   fi
  188.   # end of 'example1/input10.asc'
  189. fi
  190. if test -f 'example1/input2.asc' -a "${1}" != "-c" ; then 
  191.   echo shar: Will not clobber existing file \"'example1/input2.asc'\"
  192. else
  193.   echo shar: Extracting \"'example1/input2.asc'\" \(22 characters\)
  194.   sed "s/^X//" >'example1/input2.asc' <<'END_OF_FILE'
  195. X1.0
  196. X0.998680
  197. X0.830797
  198. END_OF_FILE
  199.   if test 22 -ne `wc -c <'example1/input2.asc'`; then
  200.     echo shar: \"'example1/input2.asc'\" unpacked with wrong size!
  201.   fi
  202.   # end of 'example1/input2.asc'
  203. fi
  204. if test -f 'example1/input3.asc' -a "${1}" != "-c" ; then 
  205.   echo shar: Will not clobber existing file \"'example1/input3.asc'\"
  206. else
  207.   echo shar: Extracting \"'example1/input3.asc'\" \(22 characters\)
  208.   sed "s/^X//" >'example1/input3.asc' <<'END_OF_FILE'
  209. X1.0
  210. X0.593711
  211. X1.569002
  212. END_OF_FILE
  213.   if test 22 -ne `wc -c <'example1/input3.asc'`; then
  214.     echo shar: \"'example1/input3.asc'\" unpacked with wrong size!
  215.   fi
  216.   # end of 'example1/input3.asc'
  217. fi
  218. if test -f 'example1/input4.asc' -a "${1}" != "-c" ; then 
  219.   echo shar: Will not clobber existing file \"'example1/input4.asc'\"
  220. else
  221.   echo shar: Extracting \"'example1/input4.asc'\" \(22 characters\)
  222.   sed "s/^X//" >'example1/input4.asc' <<'END_OF_FILE'
  223. X1.0
  224. X1.409324
  225. X0.026516
  226. END_OF_FILE
  227.   if test 22 -ne `wc -c <'example1/input4.asc'`; then
  228.     echo shar: \"'example1/input4.asc'\" unpacked with wrong size!
  229.   fi
  230.   # end of 'example1/input4.asc'
  231. fi
  232. if test -f 'example1/input5.asc' -a "${1}" != "-c" ; then 
  233.   echo shar: Will not clobber existing file \"'example1/input5.asc'\"
  234. else
  235.   echo shar: Extracting \"'example1/input5.asc'\" \(22 characters\)
  236.   sed "s/^X//" >'example1/input5.asc' <<'END_OF_FILE'
  237. X1.0
  238. X1.644088
  239. X1.192088
  240. END_OF_FILE
  241.   if test 22 -ne `wc -c <'example1/input5.asc'`; then
  242.     echo shar: \"'example1/input5.asc'\" unpacked with wrong size!
  243.   fi
  244.   # end of 'example1/input5.asc'
  245. fi
  246. if test -f 'example1/input6.asc' -a "${1}" != "-c" ; then 
  247.   echo shar: Will not clobber existing file \"'example1/input6.asc'\"
  248. else
  249.   echo shar: Extracting \"'example1/input6.asc'\" \(22 characters\)
  250.   sed "s/^X//" >'example1/input6.asc' <<'END_OF_FILE'
  251. X1.0
  252. X0.113405
  253. X1.437829
  254. END_OF_FILE
  255.   if test 22 -ne `wc -c <'example1/input6.asc'`; then
  256.     echo shar: \"'example1/input6.asc'\" unpacked with wrong size!
  257.   fi
  258.   # end of 'example1/input6.asc'
  259. fi
  260. if test -f 'example1/input7.asc' -a "${1}" != "-c" ; then 
  261.   echo shar: Will not clobber existing file \"'example1/input7.asc'\"
  262. else
  263.   echo shar: Extracting \"'example1/input7.asc'\" \(22 characters\)
  264.   sed "s/^X//" >'example1/input7.asc' <<'END_OF_FILE'
  265. X1.0
  266. X0.908876
  267. X1.642126
  268. END_OF_FILE
  269.   if test 22 -ne `wc -c <'example1/input7.asc'`; then
  270.     echo shar: \"'example1/input7.asc'\" unpacked with wrong size!
  271.   fi
  272.   # end of 'example1/input7.asc'
  273. fi
  274. if test -f 'example1/input8.asc' -a "${1}" != "-c" ; then 
  275.   echo shar: Will not clobber existing file \"'example1/input8.asc'\"
  276. else
  277.   echo shar: Extracting \"'example1/input8.asc'\" \(22 characters\)
  278.   sed "s/^X//" >'example1/input8.asc' <<'END_OF_FILE'
  279. X1.0
  280. X0.376715
  281. X0.265278
  282. END_OF_FILE
  283.   if test 22 -ne `wc -c <'example1/input8.asc'`; then
  284.     echo shar: \"'example1/input8.asc'\" unpacked with wrong size!
  285.   fi
  286.   # end of 'example1/input8.asc'
  287. fi
  288. if test -f 'example1/input9.asc' -a "${1}" != "-c" ; then 
  289.   echo shar: Will not clobber existing file \"'example1/input9.asc'\"
  290. else
  291.   echo shar: Extracting \"'example1/input9.asc'\" \(22 characters\)
  292.   sed "s/^X//" >'example1/input9.asc' <<'END_OF_FILE'
  293. X1.0
  294. X1.897176
  295. X0.115201
  296. END_OF_FILE
  297.   if test 22 -ne `wc -c <'example1/input9.asc'`; then
  298.     echo shar: \"'example1/input9.asc'\" unpacked with wrong size!
  299.   fi
  300.   # end of 'example1/input9.asc'
  301. fi
  302. if test -f 'example1/output1' -a "${1}" != "-c" ; then 
  303.   echo shar: Will not clobber existing file \"'example1/output1'\"
  304. else
  305.   echo shar: Extracting \"'example1/output1'\" \(429 characters\)
  306.   sed "s/^X//" >'example1/output1' <<'END_OF_FILE'
  307. Xpersim> inodes=3
  308. Xpersim> onodes=1
  309. Xpersim> alpha=0.01
  310. Xpersim> node function step
  311. Xpersim> load input "input1.asc",asc
  312. Xpersim> load desired "desired1.asc",asc
  313. Xpersim> load weights random
  314. Xpersim> run verbose
  315. XEpoch #1:
  316. X  Actual Output Node #1 = 1.000000
  317. X
  318. X  [New] From #1, To #1, Weight = 0.396465
  319. X  [New] From #2, To #1, Weight = 0.840485
  320. X  [New] From #3, To #1, Weight = 0.353336
  321. X
  322. Xpersim> save weights "weights.asc",asc
  323. Xpersim> exit
  324. END_OF_FILE
  325.   if test 429 -ne `wc -c <'example1/output1'`; then
  326.     echo shar: \"'example1/output1'\" unpacked with wrong size!
  327.   fi
  328.   # end of 'example1/output1'
  329. fi
  330. if test -f 'example1/output10' -a "${1}" != "-c" ; then 
  331.   echo shar: Will not clobber existing file \"'example1/output10'\"
  332. else
  333.   echo shar: Extracting \"'example1/output10'\" \(304 characters\)
  334.   sed "s/^X//" >'example1/output10' <<'END_OF_FILE'
  335. Xpersim> training
  336. Xtraining mode has been turned off
  337. Xpersim> inodes=3
  338. Xpersim> onodes=1
  339. Xpersim> node function step
  340. Xpersim> load input "input10.asc",asc
  341. Xpersim> load weights "weights.asc",asc
  342. Xpersim> run
  343. Xpersim> # Expecting 1 for output value
  344. Xpersim> show output
  345. XOutput Data Point #1 = 1.000000
  346. Xpersim> exit
  347. END_OF_FILE
  348.   if test 304 -ne `wc -c <'example1/output10'`; then
  349.     echo shar: \"'example1/output10'\" unpacked with wrong size!
  350.   fi
  351.   # end of 'example1/output10'
  352. fi
  353. if test -f 'example1/output6' -a "${1}" != "-c" ; then 
  354.   echo shar: Will not clobber existing file \"'example1/output6'\"
  355. else
  356.   echo shar: Extracting \"'example1/output6'\" \(303 characters\)
  357.   sed "s/^X//" >'example1/output6' <<'END_OF_FILE'
  358. Xpersim> training
  359. Xtraining mode has been turned off
  360. Xpersim> inodes=3
  361. Xpersim> onodes=1
  362. Xpersim> node function step
  363. Xpersim> load input "input6.asc",asc
  364. Xpersim> load weights "weights.asc",asc
  365. Xpersim> run
  366. Xpersim> # Expecting 1 for output value
  367. Xpersim> show output
  368. XOutput Data Point #1 = 1.000000
  369. Xpersim> exit
  370. END_OF_FILE
  371.   if test 303 -ne `wc -c <'example1/output6'`; then
  372.     echo shar: \"'example1/output6'\" unpacked with wrong size!
  373.   fi
  374.   # end of 'example1/output6'
  375. fi
  376. if test -f 'example1/output7' -a "${1}" != "-c" ; then 
  377.   echo shar: Will not clobber existing file \"'example1/output7'\"
  378. else
  379.   echo shar: Extracting \"'example1/output7'\" \(303 characters\)
  380.   sed "s/^X//" >'example1/output7' <<'END_OF_FILE'
  381. Xpersim> training
  382. Xtraining mode has been turned off
  383. Xpersim> inodes=3
  384. Xpersim> onodes=1
  385. Xpersim> node function step
  386. Xpersim> load input "input7.asc",asc
  387. Xpersim> load weights "weights.asc",asc
  388. Xpersim> run
  389. Xpersim> # Expecting 1 for output value
  390. Xpersim> show output
  391. XOutput Data Point #1 = 1.000000
  392. Xpersim> exit
  393. END_OF_FILE
  394.   if test 303 -ne `wc -c <'example1/output7'`; then
  395.     echo shar: \"'example1/output7'\" unpacked with wrong size!
  396.   fi
  397.   # end of 'example1/output7'
  398. fi
  399. if test -f 'example1/output8' -a "${1}" != "-c" ; then 
  400.   echo shar: Will not clobber existing file \"'example1/output8'\"
  401. else
  402.   echo shar: Extracting \"'example1/output8'\" \(305 characters\)
  403.   sed "s/^X//" >'example1/output8' <<'END_OF_FILE'
  404. Xpersim> training
  405. Xtraining mode has been turned off
  406. Xpersim> inodes=3
  407. Xpersim> onodes=1
  408. Xpersim> node function step
  409. Xpersim> load input "input8.asc",asc
  410. Xpersim> load weights "weights.asc",asc
  411. Xpersim> run
  412. Xpersim> # Expecting -1 for output value
  413. Xpersim> show output
  414. XOutput Data Point #1 = -1.000000
  415. Xpersim> exit
  416. END_OF_FILE
  417.   if test 305 -ne `wc -c <'example1/output8'`; then
  418.     echo shar: \"'example1/output8'\" unpacked with wrong size!
  419.   fi
  420.   # end of 'example1/output8'
  421. fi
  422. if test -f 'example1/output9' -a "${1}" != "-c" ; then 
  423.   echo shar: Will not clobber existing file \"'example1/output9'\"
  424. else
  425.   echo shar: Extracting \"'example1/output9'\" \(303 characters\)
  426.   sed "s/^X//" >'example1/output9' <<'END_OF_FILE'
  427. Xpersim> training
  428. Xtraining mode has been turned off
  429. Xpersim> inodes=3
  430. Xpersim> onodes=1
  431. Xpersim> node function step
  432. Xpersim> load input "input9.asc",asc
  433. Xpersim> load weights "weights.asc",asc
  434. Xpersim> run
  435. Xpersim> # Expecting 1 for output value
  436. Xpersim> show output
  437. XOutput Data Point #1 = 1.000000
  438. Xpersim> exit
  439. END_OF_FILE
  440.   if test 303 -ne `wc -c <'example1/output9'`; then
  441.     echo shar: \"'example1/output9'\" unpacked with wrong size!
  442.   fi
  443.   # end of 'example1/output9'
  444. fi
  445. if test -f 'example1/weights.asc' -a "${1}" != "-c" ; then 
  446.   echo shar: Will not clobber existing file \"'example1/weights.asc'\"
  447. else
  448.   echo shar: Extracting \"'example1/weights.asc'\" \(40 characters\)
  449.   sed "s/^X//" >'example1/weights.asc' <<'END_OF_FILE'
  450. X1 1 -0.143535
  451. X2 1 0.079450
  452. X3 1 0.339017
  453. END_OF_FILE
  454.   if test 40 -ne `wc -c <'example1/weights.asc'`; then
  455.     echo shar: \"'example1/weights.asc'\" unpacked with wrong size!
  456.   fi
  457.   # end of 'example1/weights.asc'
  458. fi
  459. if test -f 'example2/desired1.asc' -a "${1}" != "-c" ; then 
  460.   echo shar: Will not clobber existing file \"'example2/desired1.asc'\"
  461. else
  462.   echo shar: Extracting \"'example2/desired1.asc'\" \(2 characters\)
  463.   sed "s/^X//" >'example2/desired1.asc' <<'END_OF_FILE'
  464. X1
  465. END_OF_FILE
  466.   if test 2 -ne `wc -c <'example2/desired1.asc'`; then
  467.     echo shar: \"'example2/desired1.asc'\" unpacked with wrong size!
  468.   fi
  469.   # end of 'example2/desired1.asc'
  470. fi
  471. if test -f 'example2/desired10.asc' -a "${1}" != "-c" ; then 
  472.   echo shar: Will not clobber existing file \"'example2/desired10.asc'\"
  473. else
  474.   echo shar: Extracting \"'example2/desired10.asc'\" \(3 characters\)
  475.   sed "s/^X//" >'example2/desired10.asc' <<'END_OF_FILE'
  476. X-1
  477. END_OF_FILE
  478.   if test 3 -ne `wc -c <'example2/desired10.asc'`; then
  479.     echo shar: \"'example2/desired10.asc'\" unpacked with wrong size!
  480.   fi
  481.   # end of 'example2/desired10.asc'
  482. fi
  483. if test -f 'example2/desired2.asc' -a "${1}" != "-c" ; then 
  484.   echo shar: Will not clobber existing file \"'example2/desired2.asc'\"
  485. else
  486.   echo shar: Extracting \"'example2/desired2.asc'\" \(3 characters\)
  487.   sed "s/^X//" >'example2/desired2.asc' <<'END_OF_FILE'
  488. X-1
  489. END_OF_FILE
  490.   if test 3 -ne `wc -c <'example2/desired2.asc'`; then
  491.     echo shar: \"'example2/desired2.asc'\" unpacked with wrong size!
  492.   fi
  493.   # end of 'example2/desired2.asc'
  494. fi
  495. if test -f 'example2/desired3.asc' -a "${1}" != "-c" ; then 
  496.   echo shar: Will not clobber existing file \"'example2/desired3.asc'\"
  497. else
  498.   echo shar: Extracting \"'example2/desired3.asc'\" \(2 characters\)
  499.   sed "s/^X//" >'example2/desired3.asc' <<'END_OF_FILE'
  500. X1
  501. END_OF_FILE
  502.   if test 2 -ne `wc -c <'example2/desired3.asc'`; then
  503.     echo shar: \"'example2/desired3.asc'\" unpacked with wrong size!
  504.   fi
  505.   # end of 'example2/desired3.asc'
  506. fi
  507. if test -f 'example2/desired4.asc' -a "${1}" != "-c" ; then 
  508.   echo shar: Will not clobber existing file \"'example2/desired4.asc'\"
  509. else
  510.   echo shar: Extracting \"'example2/desired4.asc'\" \(2 characters\)
  511.   sed "s/^X//" >'example2/desired4.asc' <<'END_OF_FILE'
  512. X1
  513. END_OF_FILE
  514.   if test 2 -ne `wc -c <'example2/desired4.asc'`; then
  515.     echo shar: \"'example2/desired4.asc'\" unpacked with wrong size!
  516.   fi
  517.   # end of 'example2/desired4.asc'
  518. fi
  519. if test -f 'example2/desired5.asc' -a "${1}" != "-c" ; then 
  520.   echo shar: Will not clobber existing file \"'example2/desired5.asc'\"
  521. else
  522.   echo shar: Extracting \"'example2/desired5.asc'\" \(3 characters\)
  523.   sed "s/^X//" >'example2/desired5.asc' <<'END_OF_FILE'
  524. X-1
  525. END_OF_FILE
  526.   if test 3 -ne `wc -c <'example2/desired5.asc'`; then
  527.     echo shar: \"'example2/desired5.asc'\" unpacked with wrong size!
  528.   fi
  529.   # end of 'example2/desired5.asc'
  530. fi
  531. if test -f 'example2/desired6.asc' -a "${1}" != "-c" ; then 
  532.   echo shar: Will not clobber existing file \"'example2/desired6.asc'\"
  533. else
  534.   echo shar: Extracting \"'example2/desired6.asc'\" \(2 characters\)
  535.   sed "s/^X//" >'example2/desired6.asc' <<'END_OF_FILE'
  536. X1
  537. END_OF_FILE
  538.   if test 2 -ne `wc -c <'example2/desired6.asc'`; then
  539.     echo shar: \"'example2/desired6.asc'\" unpacked with wrong size!
  540.   fi
  541.   # end of 'example2/desired6.asc'
  542. fi
  543. if test -f 'example2/desired7.asc' -a "${1}" != "-c" ; then 
  544.   echo shar: Will not clobber existing file \"'example2/desired7.asc'\"
  545. else
  546.   echo shar: Extracting \"'example2/desired7.asc'\" \(3 characters\)
  547.   sed "s/^X//" >'example2/desired7.asc' <<'END_OF_FILE'
  548. X-1
  549. END_OF_FILE
  550.   if test 3 -ne `wc -c <'example2/desired7.asc'`; then
  551.     echo shar: \"'example2/desired7.asc'\" unpacked with wrong size!
  552.   fi
  553.   # end of 'example2/desired7.asc'
  554. fi
  555. if test -f 'example2/desired8.asc' -a "${1}" != "-c" ; then 
  556.   echo shar: Will not clobber existing file \"'example2/desired8.asc'\"
  557. else
  558.   echo shar: Extracting \"'example2/desired8.asc'\" \(3 characters\)
  559.   sed "s/^X//" >'example2/desired8.asc' <<'END_OF_FILE'
  560. X-1
  561. END_OF_FILE
  562.   if test 3 -ne `wc -c <'example2/desired8.asc'`; then
  563.     echo shar: \"'example2/desired8.asc'\" unpacked with wrong size!
  564.   fi
  565.   # end of 'example2/desired8.asc'
  566. fi
  567. if test -f 'example2/desired9.asc' -a "${1}" != "-c" ; then 
  568.   echo shar: Will not clobber existing file \"'example2/desired9.asc'\"
  569. else
  570.   echo shar: Extracting \"'example2/desired9.asc'\" \(2 characters\)
  571.   sed "s/^X//" >'example2/desired9.asc' <<'END_OF_FILE'
  572. X1
  573. END_OF_FILE
  574.   if test 2 -ne `wc -c <'example2/desired9.asc'`; then
  575.     echo shar: \"'example2/desired9.asc'\" unpacked with wrong size!
  576.   fi
  577.   # end of 'example2/desired9.asc'
  578. fi
  579. if test -f 'example2/input1.asc' -a "${1}" != "-c" ; then 
  580.   echo shar: Will not clobber existing file \"'example2/input1.asc'\"
  581. else
  582.   echo shar: Extracting \"'example2/input1.asc'\" \(22 characters\)
  583.   sed "s/^X//" >'example2/input1.asc' <<'END_OF_FILE'
  584. X1.0
  585. X0.814881
  586. X1.472649
  587. END_OF_FILE
  588.   if test 22 -ne `wc -c <'example2/input1.asc'`; then
  589.     echo shar: \"'example2/input1.asc'\" unpacked with wrong size!
  590.   fi
  591.   # end of 'example2/input1.asc'
  592. fi
  593. if test -f 'example2/input10.asc' -a "${1}" != "-c" ; then 
  594.   echo shar: Will not clobber existing file \"'example2/input10.asc'\"
  595. else
  596.   echo shar: Extracting \"'example2/input10.asc'\" \(22 characters\)
  597.   sed "s/^X//" >'example2/input10.asc' <<'END_OF_FILE'
  598. X1.0
  599. X0.951878
  600. X0.087117
  601. END_OF_FILE
  602.   if test 22 -ne `wc -c <'example2/input10.asc'`; then
  603.     echo shar: \"'example2/input10.asc'\" unpacked with wrong size!
  604.   fi
  605.   # end of 'example2/input10.asc'
  606. fi
  607. if test -f 'example2/input2.asc' -a "${1}" != "-c" ; then 
  608.   echo shar: Will not clobber existing file \"'example2/input2.asc'\"
  609. else
  610.   echo shar: Extracting \"'example2/input2.asc'\" \(22 characters\)
  611.   sed "s/^X//" >'example2/input2.asc' <<'END_OF_FILE'
  612. X1.0
  613. X0.828876
  614. X0.502262
  615. END_OF_FILE
  616.   if test 22 -ne `wc -c <'example2/input2.asc'`; then
  617.     echo shar: \"'example2/input2.asc'\" unpacked with wrong size!
  618.   fi
  619.   # end of 'example2/input2.asc'
  620. fi
  621. if test -f 'example2/input3.asc' -a "${1}" != "-c" ; then 
  622.   echo shar: Will not clobber existing file \"'example2/input3.asc'\"
  623. else
  624.   echo shar: Extracting \"'example2/input3.asc'\" \(22 characters\)
  625.   sed "s/^X//" >'example2/input3.asc' <<'END_OF_FILE'
  626. X1.0
  627. X0.190366
  628. X1.483445
  629. END_OF_FILE
  630.   if test 22 -ne `wc -c <'example2/input3.asc'`; then
  631.     echo shar: \"'example2/input3.asc'\" unpacked with wrong size!
  632.   fi
  633.   # end of 'example2/input3.asc'
  634. fi
  635. if test -f 'example2/input4.asc' -a "${1}" != "-c" ; then 
  636.   echo shar: Will not clobber existing file \"'example2/input4.asc'\"
  637. else
  638.   echo shar: Extracting \"'example2/input4.asc'\" \(22 characters\)
  639.   sed "s/^X//" >'example2/input4.asc' <<'END_OF_FILE'
  640. X1.0
  641. X0.781129
  642. X1.203531
  643. END_OF_FILE
  644.   if test 22 -ne `wc -c <'example2/input4.asc'`; then
  645.     echo shar: \"'example2/input4.asc'\" unpacked with wrong size!
  646.   fi
  647.   # end of 'example2/input4.asc'
  648. fi
  649. if test -f 'example2/input5.asc' -a "${1}" != "-c" ; then 
  650.   echo shar: Will not clobber existing file \"'example2/input5.asc'\"
  651. else
  652.   echo shar: Extracting \"'example2/input5.asc'\" \(22 characters\)
  653.   sed "s/^X//" >'example2/input5.asc' <<'END_OF_FILE'
  654. X1.0
  655. X0.139535
  656. X0.117174
  657. END_OF_FILE
  658.   if test 22 -ne `wc -c <'example2/input5.asc'`; then
  659.     echo shar: \"'example2/input5.asc'\" unpacked with wrong size!
  660.   fi
  661.   # end of 'example2/input5.asc'
  662. fi
  663. if test -f 'example2/input6.asc' -a "${1}" != "-c" ; then 
  664.   echo shar: Will not clobber existing file \"'example2/input6.asc'\"
  665. else
  666.   echo shar: Extracting \"'example2/input6.asc'\" \(22 characters\)
  667.   sed "s/^X//" >'example2/input6.asc' <<'END_OF_FILE'
  668. X1.0
  669. X0.845524
  670. X1.005736
  671. END_OF_FILE
  672.   if test 22 -ne `wc -c <'example2/input6.asc'`; then
  673.     echo shar: \"'example2/input6.asc'\" unpacked with wrong size!
  674.   fi
  675.   # end of 'example2/input6.asc'
  676. fi
  677. if test -f 'example2/input7.asc' -a "${1}" != "-c" ; then 
  678.   echo shar: Will not clobber existing file \"'example2/input7.asc'\"
  679. else
  680.   echo shar: Extracting \"'example2/input7.asc'\" \(22 characters\)
  681.   sed "s/^X//" >'example2/input7.asc' <<'END_OF_FILE'
  682. X1.0
  683. X0.388396
  684. X0.122054
  685. END_OF_FILE
  686.   if test 22 -ne `wc -c <'example2/input7.asc'`; then
  687.     echo shar: \"'example2/input7.asc'\" unpacked with wrong size!
  688.   fi
  689.   # end of 'example2/input7.asc'
  690. fi
  691. if test -f 'example2/input8.asc' -a "${1}" != "-c" ; then 
  692.   echo shar: Will not clobber existing file \"'example2/input8.asc'\"
  693. else
  694.   echo shar: Extracting \"'example2/input8.asc'\" \(22 characters\)
  695.   sed "s/^X//" >'example2/input8.asc' <<'END_OF_FILE'
  696. X1.0
  697. X0.055437
  698. X0.610442
  699. END_OF_FILE
  700.   if test 22 -ne `wc -c <'example2/input8.asc'`; then
  701.     echo shar: \"'example2/input8.asc'\" unpacked with wrong size!
  702.   fi
  703.   # end of 'example2/input8.asc'
  704. fi
  705. if test -f 'example2/input9.asc' -a "${1}" != "-c" ; then 
  706.   echo shar: Will not clobber existing file \"'example2/input9.asc'\"
  707. else
  708.   echo shar: Extracting \"'example2/input9.asc'\" \(22 characters\)
  709.   sed "s/^X//" >'example2/input9.asc' <<'END_OF_FILE'
  710. X1.0
  711. X1.448644
  712. X0.615749
  713. END_OF_FILE
  714.   if test 22 -ne `wc -c <'example2/input9.asc'`; then
  715.     echo shar: \"'example2/input9.asc'\" unpacked with wrong size!
  716.   fi
  717.   # end of 'example2/input9.asc'
  718. fi
  719. if test -f 'example2/output10' -a "${1}" != "-c" ; then 
  720.   echo shar: Will not clobber existing file \"'example2/output10'\"
  721. else
  722.   echo shar: Extracting \"'example2/output10'\" \(306 characters\)
  723.   sed "s/^X//" >'example2/output10' <<'END_OF_FILE'
  724. Xpersim> training
  725. Xtraining mode has been turned off
  726. Xpersim> inodes=3
  727. Xpersim> onodes=1
  728. Xpersim> node function step
  729. Xpersim> load input "input10.asc",asc
  730. Xpersim> load weights "weights.asc",asc
  731. Xpersim> run
  732. Xpersim> # Expecting -1 for output value
  733. Xpersim> show output
  734. XOutput Data Point #1 = -1.000000
  735. Xpersim> exit
  736. END_OF_FILE
  737.   if test 306 -ne `wc -c <'example2/output10'`; then
  738.     echo shar: \"'example2/output10'\" unpacked with wrong size!
  739.   fi
  740.   # end of 'example2/output10'
  741. fi
  742. if test -f 'example2/output6' -a "${1}" != "-c" ; then 
  743.   echo shar: Will not clobber existing file \"'example2/output6'\"
  744. else
  745.   echo shar: Extracting \"'example2/output6'\" \(303 characters\)
  746.   sed "s/^X//" >'example2/output6' <<'END_OF_FILE'
  747. Xpersim> training
  748. Xtraining mode has been turned off
  749. Xpersim> inodes=3
  750. Xpersim> onodes=1
  751. Xpersim> node function step
  752. Xpersim> load input "input6.asc",asc
  753. Xpersim> load weights "weights.asc",asc
  754. Xpersim> run
  755. Xpersim> # Expecting 1 for output value
  756. Xpersim> show output
  757. XOutput Data Point #1 = 1.000000
  758. Xpersim> exit
  759. END_OF_FILE
  760.   if test 303 -ne `wc -c <'example2/output6'`; then
  761.     echo shar: \"'example2/output6'\" unpacked with wrong size!
  762.   fi
  763.   # end of 'example2/output6'
  764. fi
  765. if test -f 'example2/output7' -a "${1}" != "-c" ; then 
  766.   echo shar: Will not clobber existing file \"'example2/output7'\"
  767. else
  768.   echo shar: Extracting \"'example2/output7'\" \(305 characters\)
  769.   sed "s/^X//" >'example2/output7' <<'END_OF_FILE'
  770. Xpersim> training
  771. Xtraining mode has been turned off
  772. Xpersim> inodes=3
  773. Xpersim> onodes=1
  774. Xpersim> node function step
  775. Xpersim> load input "input7.asc",asc
  776. Xpersim> load weights "weights.asc",asc
  777. Xpersim> run
  778. Xpersim> # Expecting -1 for output value
  779. Xpersim> show output
  780. XOutput Data Point #1 = -1.000000
  781. Xpersim> exit
  782. END_OF_FILE
  783.   if test 305 -ne `wc -c <'example2/output7'`; then
  784.     echo shar: \"'example2/output7'\" unpacked with wrong size!
  785.   fi
  786.   # end of 'example2/output7'
  787. fi
  788. if test -f 'example2/output8' -a "${1}" != "-c" ; then 
  789.   echo shar: Will not clobber existing file \"'example2/output8'\"
  790. else
  791.   echo shar: Extracting \"'example2/output8'\" \(305 characters\)
  792.   sed "s/^X//" >'example2/output8' <<'END_OF_FILE'
  793. Xpersim> training
  794. Xtraining mode has been turned off
  795. Xpersim> inodes=3
  796. Xpersim> onodes=1
  797. Xpersim> node function step
  798. Xpersim> load input "input8.asc",asc
  799. Xpersim> load weights "weights.asc",asc
  800. Xpersim> run
  801. Xpersim> # Expecting -1 for output value
  802. Xpersim> show output
  803. XOutput Data Point #1 = -1.000000
  804. Xpersim> exit
  805. END_OF_FILE
  806.   if test 305 -ne `wc -c <'example2/output8'`; then
  807.     echo shar: \"'example2/output8'\" unpacked with wrong size!
  808.   fi
  809.   # end of 'example2/output8'
  810. fi
  811. if test -f 'example2/output9' -a "${1}" != "-c" ; then 
  812.   echo shar: Will not clobber existing file \"'example2/output9'\"
  813. else
  814.   echo shar: Extracting \"'example2/output9'\" \(303 characters\)
  815.   sed "s/^X//" >'example2/output9' <<'END_OF_FILE'
  816. Xpersim> training
  817. Xtraining mode has been turned off
  818. Xpersim> inodes=3
  819. Xpersim> onodes=1
  820. Xpersim> node function step
  821. Xpersim> load input "input9.asc",asc
  822. Xpersim> load weights "weights.asc",asc
  823. Xpersim> run
  824. Xpersim> # Expecting 1 for output value
  825. Xpersim> show output
  826. XOutput Data Point #1 = 1.000000
  827. Xpersim> exit
  828. END_OF_FILE
  829.   if test 303 -ne `wc -c <'example2/output9'`; then
  830.     echo shar: \"'example2/output9'\" unpacked with wrong size!
  831.   fi
  832.   # end of 'example2/output9'
  833. fi
  834. if test -f 'example2/weights.asc' -a "${1}" != "-c" ; then 
  835.   echo shar: Will not clobber existing file \"'example2/weights.asc'\"
  836. else
  837.   echo shar: Extracting \"'example2/weights.asc'\" \(40 characters\)
  838.   sed "s/^X//" >'example2/weights.asc' <<'END_OF_FILE'
  839. X1 1 -0.243535
  840. X2 1 0.207843
  841. X3 1 0.188877
  842. END_OF_FILE
  843.   if test 40 -ne `wc -c <'example2/weights.asc'`; then
  844.     echo shar: \"'example2/weights.asc'\" unpacked with wrong size!
  845.   fi
  846.   # end of 'example2/weights.asc'
  847. fi
  848. echo shar: End of archive 3 \(of 3\).
  849. cp /dev/null ark3isdone
  850. MISSING=""
  851. for I in 1 2 3 ; do
  852.     if test ! -f ark${I}isdone ; then
  853.     MISSING="${MISSING} ${I}"
  854.     fi
  855. done
  856. if test "${MISSING}" = "" ; then
  857.     echo You have unpacked all 3 archives.
  858.     rm -f ark[1-9]isdone
  859. else
  860.     echo You still must unpack the following archives:
  861.     echo "        " ${MISSING}
  862. fi
  863. exit 0
  864. exit 0 # Just in case...
  865.