Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Number of values
(?)
Mean
(?)
S.D.
(?)
Color code
(?)
2
3
4
5
6
7
8
1
List Random Numbers in table?
(?)
0000000000111010.510111110.51111010.5110.511110111110.511111111110.50.510.50.50.50.500.50.50.50.510.510.50.50.510.50.511111111110.51101110.510.5101110.510.5101110.510.5101110.510.5101110.510.5101110.510.5101110.510.5101110.510.5101110.510.5101110.510.5101110.510.5101110.510.510000111110.5110.510110.5110.510111111110.511111110.50.510.50.50001010.5000.5010.50.51111110.511111111101110.511110.50.510.50.50.50.5111110110.511110.511110110.50.510.510.510.510.50.51111111101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101111110.50.51100001110.50.5110111110.510.50.50.50.511001010101011110.511111110.5111111100.50.510.50.50.5111111101110.510.510.510.510.510.510.511111111101110.5110.510.51110.5110.510.510.50.50.51101110.50.5111111101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.51101110.50.511011110.5110.5110111110.50.510.50.50.51101110.50.51101110.510.510.510.510.510.50.5111000011111110.50.51110110.50.51110110.50.50.50.50.5111111010101010100.50.51111100.50.5111111111111111110111110.50.50.50.50.50.510.50.50.5111010.510.5111010.510.51111111101110.510.5110110.510.5110110.510.5110110.510.5110110.510.5110110.510.5110110.510.51111101110.510.5110.50.50.50.50.50.511101111110.5110.510111110.51111110.50.50.50.50.50.51101111111110.50.510.510.50.50.50.50.50.500010111111111111110.5110.51110111111110.50.51101110.50.5110001010100.50.51111100.50.51111100.50.51111100.50.51111100.50.51111111100.50.51111100.50.50.50.50.51111110110.50.51111111011110.511110.5111010.510.50.50.50.50.50.510.510.51010.51111111111110.511111100.50.50.510.5110.511111010.510.5111010.50.50.510.50.50.50.50.50.51111110110.50.511111111110110.50.51110001010.50.511111110111110.50.51111011110.50.511010000001010000.50.50.50.50.51111110110.50.5111111111111010.50.51111010.50.50.50.50.50.50.510.51110110.510.510.510.51110.51111111100.5110.511111100.50.50.510.50.50.50.50.510.5111010.510.5111110110.510.51111111110110.50.51110010010.50.511111011111110.50.51111110110.50.5111000001010.50.50.50.50.51111111111110111110.510.5111111010.510.5111010.50.510.50.50.50.510.510.510.510.5111101110.5111110.511010.5111110.511010.50.50.50.510.510.50.50.51101110.50.51111101111110.50.5111110110.50.51110010010.50.511111111110111110.50.51101110.50.511010101010101110.50.50.50.50.51101111110.50.51101110.50.51101110.50.50.50.50.50.50.50.50.510.50.510.50.50.50.50111110.51111110.50110.50.50.50.510.50.5111110.5011110.511110.50110.51110.50111110.51110.5111101110.5111110.51100101010.510.511101111110.510.511100000010.510.5111010.510.5111010.51110.51111010.50.50.50.50.51111111010.50.51111010.50.50.50.510.510.5110.510.5110.510.50.50.5111110110.51111110.50110.50.50.50.51110.50110.51110.50111110.50.510.50.510.510.5110.51111011110.50.51011110.50.51011111111110.50.51011111110.50.51011110.50.51011111110.51110.51111100100110.50.51110110.50.5111000000110.50.51110110.50.51111110110.50.5111011110.510.50.50.50.5111111011110.510.511111111010.511110.5110.510.50.510.510.5111111011111110.5111110.51010.50.50.50.511111 12 13 14 150.51010.51110.51010.50.510.50.50.510.510.5101110.510.5101110.510.5101110.510.51011110.51110.510110.5110.510110.5110.510000110.511110.5111110110.510.5110110.510.511000100000100.510.5111100.510.5111111100.51110.50.510.50.5111111101110.510.511111111010.510.5111010.51110.5110.510.510.510.50.51111111110110.510.510.510.511110.51010.51110.51010.51110.51010.50.510.50.50.50.510.50.50.50.50.510.5101110.510.5101110.510.5101110.510.5101111110.510.5101110.510.5101110.510.51010001110.51111110.511010.5110.511010.5110.5110000000100000.5110.511111100.5110.511100.5111110.50.50.50.511111111100.5110.511111111100.5111110.511111111110110.5111111110.510.50.50.50.50.50.510.510.50.5110.5111111010.50.50.50.511110.5010.511110.5010.50.510.50.50.50.50.50.50.510.50.5110.501110.5110.501110.5110.501110.5110.501110.5110.501111110.5110.501110.5110.50111111111110.511110.50010010.51110.51010.51110.51000000001000.501110.5110.501110.5111110.501110.5111111110.5010.50.50.510.511111111111111110.50110.51110.50110.5111111111111111111110.510.5010.5110.5110.510.510.50.50.50.510.50.50.50.50.511010.5110.511010.50.50.50.50.510.50.50.510.50.50.50.51101110.50.51101110.50.51101110.50.51101110.50.511011 12 13 14 151111110.50.511011 12 13 14 151110.50.511011 12 13 14 1511 12 13 14 15111 12 13 14 1511 12 13 14 1511 12 13 14 15111 12 13 14 1511 12 13 14 15111 12 13 14 1511 12 13 14 1511 12 13 14 150.50.51100002FlrcZke-1 OR 2+61-61-1=0+0+0+1 -- -1 OR 3+61-61-1=0+0+0+1 -- -1 OR 2+265-265-1=0+0+0+11-1 OR 3+265-265-1=0+0+0+1-1' OR 2+93-93-1=0+0+0+1 -- 1-1' OR 3+93-93-1=0+0+0+1 -- -1' OR 2+576-576-1=0+0+0+1 or 'f3Kk6RGg'='-1' OR 3+576-576-1=0+0+0+1 or 'f3Kk6RGg'='11 12 13 14 15-1" OR 2+19-19-1=0+0+0+1 -- 0.5-1" OR 3+19-19-1=0+0+0+1 -- 0.51101111 12 13 14 150.5if(now()=sysdate(),sleep(15),0)0.51101111 12 13 14 150.50'XOR(if(now()=sysdate(),sleep(15),0))XOR'Z0.5110000100100011 12 13 14 150.50"XOR(if(now()=sysdate(),sleep(15),0))XOR"Z0.51111111011 12 13 14 150.5(select(0)from(select(sleep(15)))v)/*'+(select(0)from(select(sleep(15)))v)+'"+(select(0)from(select(sleep(15)))v)+"*/0.51111110111 12 13 14 150.5-1; waitfor delay '0:0:15' --
N
Y
Number of bins
(?)
Lower truncation point (leave blank for -infinity)
Upper truncation point (leave blank for +infinity)
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
library(MASS) library(msm) par1 <- sub(',','.',par1) par2 <- sub(',','.',par2) par3 <- sub(',','.',par3) par4 <- sub(',','.',par4) par1 <- as.numeric(par1) if (par1 > 10000) par1=10000 #impose restriction on number of random values par2 <- as.numeric(par2) par3 <- as.numeric(par3) par4 <- as.numeric(par4) if (par6 == '0') par6 = 'Sturges' else { par6 <- as.numeric(par6) if (par6 > 50) par6 = 50 #impose restriction on the number of bins } if (par7 == '') par7 <- -Inf else par7 <- as.numeric(par7) if (par8 == '') par8 <- Inf else par8 <- as.numeric(par8) x <- rtnorm(par1,par2,par3,par7,par8) x <- as.ts(x) #otherwise the fitdistr function does not work properly if ((par7 == -Inf) & (par8 == Inf)) (r <- fitdistr(x,'normal')) bitmap(file='test1.png') myhist<-hist(x,col=par4,breaks=par6,main=main,ylab=ylab,xlab=xlab,freq=F) if ((par7 == -Inf) & (par8 == Inf)) { curve(1/(r$estimate[2]*sqrt(2*pi))*exp(-1/2*((x-r$estimate[1])/r$estimate[2])^2),min(x),max(x),add=T) } dev.off() load(file='createtable') if (par5 == 'Y') { a<-table.start() a<-table.row.start(a) a<-table.element(a,'Index',1,TRUE) a<-table.element(a,'Value',1,TRUE) a<-table.row.end(a) for (i in 1:par1) { a<-table.row.start(a) a<-table.element(a,i,header=TRUE) a<-table.element(a,x[i]) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.tab') } if ((par7 == -Inf) & (par8 == Inf)) { a<-table.start() a<-table.row.start(a) a<-table.element(a,'Parameter',1,TRUE) a<-table.element(a,'Value',1,TRUE) a<-table.element(a,'Standard Deviation',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'# simulated values',header=TRUE) a<-table.element(a,par1) a<-table.element(a,'-') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'true mean',header=TRUE) a<-table.element(a,par2) a<-table.element(a,'-') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'true standard deviation',header=TRUE) a<-table.element(a,par3) a<-table.element(a,'-') a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'mean',header=TRUE) a<-table.element(a,r$estimate[1]) a<-table.element(a,r$sd[1]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'standard deviation',header=TRUE) a<-table.element(a,r$estimate[2]) a<-table.element(a,r$sd[2]) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab') } a<-table.start() a<-table.row.start(a) a<-table.element(a,'Frequency Table (Histogram)',6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Bins',header=TRUE) a<-table.element(a,'Midpoint',header=TRUE) a<-table.element(a,'Abs. Frequency',header=TRUE) a<-table.element(a,'Rel. Frequency',header=TRUE) a<-table.element(a,'Cumul. Rel. Freq.',header=TRUE) a<-table.element(a,'Density',header=TRUE) a<-table.row.end(a) crf <- 0 mynumrows <- (length(myhist$breaks)-1) for (i in 1:mynumrows) { a<-table.row.start(a) dum <- paste('[',myhist$breaks[i],sep='') dum <- paste(dum,myhist$breaks[i+1],sep=',') if (i==mynumrows) dum <- paste(dum,']',sep='') else dum <- paste(dum,'[',sep='') a<-table.element(a,dum,header=TRUE) a<-table.element(a,myhist$mids[i]) a<-table.element(a,myhist$counts[i]) rf <- myhist$counts[i]/par1 crf <- crf + rf a<-table.element(a,round(rf,6)) a<-table.element(a,round(crf,6)) a<-table.element(a,round(myhist$density[i],6)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable3.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation