head 1.2;
access;
symbols
perseant-exfatfs-base-20240630:1.2
cjep_sun2x:1.2.0.44
cjep_sun2x-base:1.2
cjep_staticlib_x-base1:1.2
cjep_staticlib_x:1.2.0.42
cjep_staticlib_x-base:1.2
phil-wifi-20200421:1.2
phil-wifi-20200411:1.2
phil-wifi-20200406:1.2
pgoyette-compat-merge-20190127:1.2
pgoyette-compat-20190127:1.2
pgoyette-compat-20190118:1.2
pgoyette-compat-1226:1.2
pgoyette-compat-1126:1.2
pgoyette-compat-1020:1.2
pgoyette-compat-0930:1.2
pgoyette-compat-0906:1.2
pgoyette-compat-0728:1.2
pgoyette-compat-0625:1.2
pgoyette-compat-0521:1.2
pgoyette-compat-0502:1.2
pgoyette-compat-0422:1.2
pgoyette-compat-0415:1.2
pgoyette-compat-0407:1.2
pgoyette-compat-0330:1.2
pgoyette-compat-0322:1.2
pgoyette-compat-0315:1.2
pgoyette-compat:1.2.0.40
pgoyette-compat-base:1.2
perseant-stdc-iso10646:1.2.0.38
perseant-stdc-iso10646-base:1.2
prg-localcount2-base3:1.2
prg-localcount2-base2:1.2
prg-localcount2-base1:1.2
prg-localcount2:1.2.0.36
prg-localcount2-base:1.2
pgoyette-localcount-20170426:1.2
bouyer-socketcan-base1:1.2
pgoyette-localcount-20170320:1.2
bouyer-socketcan:1.2.0.34
bouyer-socketcan-base:1.2
pgoyette-localcount-20170107:1.2
pgoyette-localcount-20161104:1.2
localcount-20160914:1.2
pgoyette-localcount-20160806:1.2
pgoyette-localcount-20160726:1.2
pgoyette-localcount:1.2.0.32
pgoyette-localcount-base:1.2
netbsd-5-2-3-RELEASE:1.2
netbsd-5-1-5-RELEASE:1.2
yamt-pagecache-base9:1.2
yamt-pagecache-tag8:1.2
tls-earlyentropy:1.2.0.28
tls-earlyentropy-base:1.2
riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.2
riastradh-drm2-base3:1.2
netbsd-5-2-2-RELEASE:1.2
netbsd-5-1-4-RELEASE:1.2
netbsd-5-2-1-RELEASE:1.2
netbsd-5-1-3-RELEASE:1.2
agc-symver:1.2.0.30
agc-symver-base:1.2
tls-maxphys-base:1.2
yamt-pagecache-base8:1.2
netbsd-5-2:1.2.0.26
yamt-pagecache-base7:1.2
netbsd-5-2-RELEASE:1.2
netbsd-5-2-RC1:1.2
yamt-pagecache-base6:1.2
yamt-pagecache-base5:1.2
yamt-pagecache-base4:1.2
netbsd-5-1-2-RELEASE:1.2
netbsd-5-1-1-RELEASE:1.2
yamt-pagecache-base3:1.2
yamt-pagecache-base2:1.2
yamt-pagecache:1.2.0.24
yamt-pagecache-base:1.2
bouyer-quota2-nbase:1.2
bouyer-quota2:1.2.0.22
bouyer-quota2-base:1.2
matt-nb5-pq3:1.2.0.20
matt-nb5-pq3-base:1.2
netbsd-5-1:1.2.0.18
netbsd-5-1-RELEASE:1.2
netbsd-5-1-RC4:1.2
netbsd-5-1-RC3:1.2
netbsd-5-1-RC2:1.2
netbsd-5-1-RC1:1.2
netbsd-5-0-2-RELEASE:1.2
netbsd-5-0-1-RELEASE:1.2
jym-xensuspend-nbase:1.2
netbsd-5-0:1.2.0.16
netbsd-5-0-RELEASE:1.2
netbsd-5-0-RC4:1.2
netbsd-5-0-RC3:1.2
netbsd-5-0-RC2:1.2
jym-xensuspend:1.2.0.14
jym-xensuspend-base:1.2
netbsd-5-0-RC1:1.2
netbsd-5:1.2.0.12
netbsd-5-base:1.2
mjf-devfs2:1.2.0.10
mjf-devfs2-base:1.2
yamt-pf42-base4:1.2
yamt-pf42-base3:1.2
hpcarm-cleanup-nbase:1.2
yamt-pf42-base2:1.2
yamt-pf42:1.2.0.8
yamt-pf42-base:1.2
keiichi-mipv6:1.2.0.6
keiichi-mipv6-base:1.2
cube-autoconf:1.2.0.4
cube-autoconf-base:1.2
hpcarm-cleanup:1.2.0.2
hpcarm-cleanup-base:1.2
gawk-3-1-3-before-remove:1.1.1.1
gawk-3-1-3:1.1.1.1
FSF:1.1.1;
locks; strict;
comment @# @;
1.2
date 2004.03.26.17.16.26; author jdolecek; state dead;
branches;
next 1.1;
1.1
date 2003.10.06.15.51.06; author wiz; state Exp;
branches
1.1.1.1;
next ;
1.1.1.1
date 2003.10.06.15.51.06; author wiz; state Exp;
branches;
next ;
desc
@@
1.2
log
@delete GNU gawk 3.1.3 sources. they are available in cvs with
"cvs co -r gawk-3-1-3-before-remove src/gnu/dist/gawk".
@
text
@function SetUpServer() {
TopHeader = "Statistics with GAWK"
TopDoc = "\
Please choose one of the following actions:
\
"
TopFooter = ""
GnuPlot = "gnuplot 2>&1"
m1=m2=0; v1=v2=1; n1=n2=10
}
function HandleGET() {
if(MENU[2] == "AboutServer") {
Document = "This is a GUI for a statistical computation.\
It compares means and variances of two distributions.\
It is implemented as one GAWK script and uses GNUPLOT."
} else if (MENU[2] == "EnterParameters") {
Document = ""
if ("m1" in GETARG) { # are there parameters to compare?
Document = Document ""
m1 = GETARG["m1"]; v1 = GETARG["v1"]; n1 = GETARG["n1"]
m2 = GETARG["m2"]; v2 = GETARG["v2"]; n2 = GETARG["n2"]
t = (m1-m2)/sqrt(v1/n1+v2/n2)
df = (v1/n1+v2/n2)*(v1/n1+v2/n2)/((v1/n1)*(v1/n1)/(n1-1) \
+ (v2/n2)*(v2/n2) /(n2-1))
if (v1>v2) {
f = v1/v2
df1 = n1 - 1
df2 = n2 - 1
} else {
f = v2/v1
df1 = n2 - 1
df2 = n1 - 1
}
print "pt=ibeta(" df/2 ",0.5," df/(df+t*t) ")" |& GnuPlot
print "pF=2.0*ibeta(" df2/2 "," df1/2 "," \
df2/(df2+df1*f) ")" |& GnuPlot
print "print pt, pF" |& GnuPlot
RS="\n"; GnuPlot |& getline; RS="\r\n" # $1 is pt, $2 is pF
print "invsqrt2pi=1.0/sqrt(2.0*pi)" |& GnuPlot
print "nd(x)=invsqrt2pi/sd*exp(-0.5*((x-mu)/sd)**2)" |& GnuPlot
print "set term png small color" |& GnuPlot
#print "set term postscript color" |& GnuPlot
#print "set term gif medium size 320,240" |& GnuPlot
print "set yrange[-0.3:]" |& GnuPlot
print "set label 'p(m1=m2) =" $1 "' at 0,-0.1 left" |& GnuPlot
print "set label 'p(v1=v2) =" $2 "' at 0,-0.2 left" |& GnuPlot
print "plot mu=" m1 ",sd=" sqrt(v1) ", nd(x) title 'sample 1',\
mu=" m2 ",sd=" sqrt(v2) ", nd(x) title 'sample 2'" |& GnuPlot
print "quit" |& GnuPlot
GnuPlot |& getline Image
while ((GnuPlot |& getline) > 0)
Image = Image RS $0
close(GnuPlot)
}
Document = Document "\
Do these samples have the same Gaussian distribution?
\
"
} else if (MENU[2] ~ "Image") {
Reason = "OK" ORS "Content-type: image/png"
#Reason = "OK" ORS "Content-type: application/x-postscript"
#Reason = "OK" ORS "Content-type: image/gif"
Header = Footer = ""
Document = Image
}
}
@
1.1
log
@Initial revision
@
text
@@
1.1.1.1
log
@Initial import of gawk-3.1.3.
Seven releases since the last import, so the ChangeLog is quite big;
please refer to the NEWS file included in the import for details.
Among others, this also addresses PR 23054.
@
text
@@