{VERSION 1 1 "MS-Windows" "1.0"}{GLOBALS 3 0}{FONT 0 "" "" "Helve
tica-Bold" 7 10 0 "Helvetica-Bold" 10{COLOR "808000"}}{FONT 1 "Ti
mes New Roman" "Times New Roman" "Times-Bold" 7 11 64 "Times-Bold
" 11{COLOR "000000"}}{FONT 2 "Courier New" "Courier New" "Courier
" 4 10 192 "Courier" 10{COLOR "000000"}}{SCP_R 0 0 4{SCP_R 1 0 26
{INP_R 3 0 "> "{TEXT 0 48 "sample:=(a,b,n)->[seq(a+i*(b-a)/n,i=0.
.n)]:     "}}{INP_R 6 0 "> "{TEXT 0 43 "d :=x->[seq((x[i+1]-x[i])
,i=1..nops(x)-1)]:"}}{INP_R 9 0 "> "{TEXT 0 48 "mids:=x->[seq((x[
i]+x[i+1])/2,i=1..nops(x)-1 )]:"}}{INP_R 12 0 "> "{TEXT 0 15 "csu
m := proc(t)"}}{INP_R 15 0 "> "{TEXT 0 16 "    local i,j,s;"}}
{INP_R 18 0 "> "{TEXT 0 28 "    for i from 1 to nops(t) "}}{INP_R
 21 0 "> "{TEXT 0 39 "         do s[i]:=sum(t[j], j=1..i) od:"}}
{INP_R 24 0 "> "{TEXT 0 32 "         seq(s[i],i=1..nops(t));"}}
{INP_R 27 0 "> "{TEXT 0 8 "    end:"}}{INP_R 30 0 "> "{TEXT 0 23 
"total := proc(t)       "}}{INP_R 33 0 "> "{TEXT 0 19 "    local 
j;       "}}{INP_R 36 0 "> "{TEXT 0 27 "    sum(t[j],j=1..nops(t)
);"}}{INP_R 39 0 "> "{TEXT 0 14 "    end:      "}}{INP_R 42 0 "> 
"{TEXT 0 60 "plus:=(x,y)->x+y:  times:=(x,y)->x*y:  quotient:=(x,
y)->x/y:"}}{INP_R 45 0 "> "{TEXT 0 77 "id:=(x,y)->(x,y):   vs := 
(x,y)->zip(id,x,y):  samplot:=(x,y)->plot(vs(x,y)):"}}{INP_R 48 0
 "> "{TEXT 0 17 "behead := proc(t)"}}{INP_R 51 0 "> "{TEXT 0 12 "
    local i;"}}{INP_R 54 0 "> "{TEXT 0 29 "    [seq(t[i],i=2..nop
s(t))];"}}{INP_R 57 0 "> "{TEXT 0 8 "    end:"}}{INP_R 60 0 "> "
{TEXT 0 18 "curtail := proc(t)"}}{INP_R 63 0 "> "{TEXT 0 13 "    
 local i;"}}{INP_R 66 0 "> "{TEXT 0 34 "     [seq(t[i],i=1..(nops
(t)-1))];"}}{INP_R 69 0 "> "{TEXT 0 9 "     end:"}}{INP_R 72 0 ">
 "{TEXT 0 39 "D_ := (y,x) -> zip(quotient,d(y),d(x)):"}}{INP_R 75
 0 "> "{TEXT 0 42 "S_ := (y,ds) -> [0,csum(zip(times,y,ds))]:"}}
{OUT_R 78 0 75{TEXT 2 1 "\012"}}}{SCP_R 80 0 1{INP_R 82 0 "> "
{TEXT 0 89 "f := x -> exp(-x^2);  x := sample(0.0, 3.0, 100):    
y := eval(map(f,x)):  samplot(x,y); "}}}{SCP_R 84 0 2{INP_R 86 0 
"> "{TEXT 0 28 "dx := d(x):  ym := mids(y): "}}{INP_R 89 0 "> "
{TEXT 0 33 "Sy :=  S_(ym,dx): samplot(x,Sy); "}}}{SCP_R 91 0 1
{INP_R 93 0 "> "{TEXT 0 49 "DSy := D_(Sy,x):  xm := mids(x): samp
lot(xm,DSy);"}}}}{END}