apl>" <-APL2-------------------- sam197.txt ---------------------------->


apl>men#45 75 15


apl>women#35 75 15 45 95


apl>children#35 0 55 15


apl>stock # men women children


apl>styles#'oxfords' 'loafers' 'sneakers' 'sandals' 'pumps'


apl>groups#'mens' 'womens' 'childrens'


apl>costs#(39 19 29) (35 15 29 18 45)


apl>costs#costs,`Z25 16 21 12.5


apl>costs

 39 19 29  35 15 29 18 45  25 16 21 12.5 

apl>1 2`Xcosts

19

apl>(1 2 `X costs) # 20


apl>costs

 39 20 29  35 15 29 18 45  25 16 21 12.5 

apl>prices#costsX1+.6 .7 .8


apl>,[I0]prices

             62.4 32 46.4 
 59.5 25.5 49.3 30.6 76.5 
        45 28.8 37.8 22.5 

apl>groups,`1 costs +.X`1 stock

  mens 3690    womens 7870    childrens 2217.5  

apl>net#stockXprices_costs


apl>,[I0]net

                 1053 900 261 
 857.5 787.5 304.5 567 2992.5 
                700 0 924 150 

apl>+/`1net

 2214 5509 1774 

apl>+/+/`1net

 9497 

apl>15 1 R groupstyles#,(groups,`1' ')J.,styles

 mens oxfords       
 mens loafers       
 mens sneakers      
 mens sandals       
 mens pumps         
 womens oxfords     
 womens loafers     
 womens sneakers    
 womens sandals     
 womens pumps       
 childrens oxfords  
 childrens loafers  
 childrens sneakers 
 childrens sandals  
 childrens pumps    

apl>Enet

1053 900 261 857.5 787.5 304.5 567 2992.5 700 0 924 150

apl>S/Enet

2992.5

apl>net=S/Enet

 0 0 0  0 0 0 0 1  0 0 0 0 

apl>,`Xnet=S/Enet

0 0 0 0 0 0 0 0 0 1 0 0 0 0 0

apl>(,`Xnet=S/Enet)/groupstyles

 womens pumps 

apl>)off