• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

53,1
64,1
75,3
66
73,6
73,2
53,5
60,6
73
72,4
75,8
79,6
77,8
75,7
88,5
72,9
80,8
86,6
63,8
69,2
76,5
77,1
75,3
69,5
64,3
66,7
77,3
75,3
73,4
78
61
58,4
73,4
82,3
72,2
76
64,3
70,8
74
71,4
70,1
77,6
61,2
52,1
74,4
73,1
70,9
80,7
62,9
69,3
82,3
76,2
70,8
87,3
62
66,9
84,4
82,6
77,7
87
76
76,3
88,8
81,2
74,5
98,1
63,3
67,7
85,8
78,6
87,2
106,4
75
80,4
94,8
77
91
96,7
69,2
69,5
93,7
98,5
93,3
100,4
87,4
89
106,1
92,5
96,6
113,3
87,6
89,2
115,6
133,2
111,1
113,1
102
109,3
111,1
116,8
107,5
120,5
95,5
87,9
118,6
116,3
98,8
102,9
80,4
87
97,4
87,2
110,6
101,1
69,1
77,4
95
93,2
96,3
93,9
78,5
90
109,2
94,3
93,1
114,5
78,5
88,3
114,8
112,2
106,9
119,7
97,1
106,3
131,7
106,7
124
117,2
87,8
91,9
125,1
115,4
117,7
124,3
104,8
109,6
139,5
105,3
112,4
128,9
91,6
98,7
117,8
117,4
110,5
103,1
95,8
98,2
117,2
108,5
113,2
120,2
102,8
89,4
119,8
126,9
114,4
117,4
109,4
111,1
121
116,6
119,5
121,2
101
92,7
125,5
123,4
110,3
118,8
97,1
107,6
131
117,9
111
131,4
101,8
93,9
138,5
131,1
124,9
126,6
102,7
121,6
132,8
123
116
135
93,7
98,4
129,8
121,9
124,8
126,9
102
117,7
144,8
113,3
129,3
135,7
94,3
106

52
54,9
60,5
54,8
60,1
60,3
49,8
53,8
64,8
62
65,2
60,1
61,2
63,6
68,6
63,1
66,5
71,9
58,1
61,5
66,2
72,3
67
62,9
66,4
65,6
70,9
68,4
66,4
67,6
64,1
62,1
70
74,4
67
64,8
70,7
64
72,5
70,4
63,6
69,8
67,7
66,4
78,9
79,9
69,1
81,2
66
71,8
86,1
76,1
70,5
83,3
74,8
73,4
86,5
82
80,8
91,5
77
72,3
83,5
79
76,7
83,1
71,1
75,5
90,9
85,4
84,8
83,8
79,3
79,9
93
78,1
82,3
87,3
74,6
80
91,3
94,2
90,9
88
81,6
77,4
91
79,9
83,4
91,6
85,2
84,1
87
92,8
89,2
87,3
89,5
86,8
92
92,2
86,4
92,9
91,2
80,3
102
99
89,2
103
80,4
83,4
97,6
87
84,4
94,1
88,9
82,3
94,7
94,5
91,6
96,8
87,9
99,9
109,5
91,2
89,4
109,7
96,9
94,1
104,4
100,8
107,4
108,9
95,2
102,7
130,9
104
106,5
106,1
97,8
112,2
114,5
105,8
101
101,2
96,5
99,5
123,8
94,6
95,8
105,4
104,4
105,2
112,7
114,8
108,9
103,8
102,5
98,1
118,2
114,8
109,9
116,7
116,9
104,4
113,5
123,8
116,4
114,1
102,8
112,7
121,1
120,8
117,8
130,4
110,9
105,4
137,6
133,3
123,3
122,8
110,2
101,4
128,7
120,6
110,1
121,6
113
115,9
131,1
127,4
123,9
120,8
108,5
112,9
129,6
121,3
119,1
140,8
127,4
128,1
136,6
126,5
120,8
144,3
116
123,4
138,6
118,3
124,2
136
127,4
131,6

par1 <- as(par1,'numeric')
par2 <- as(par2,'numeric')
par3 <- as(par3,'numeric')
par4 <- as(par4,'numeric')
par5 <- as(par5,'numeric')
library('GenKern')
x <- x[!is.na(y)]
y <- y[!is.na(y)]
y <- y[!is.na(x)]
x <- x[!is.na(x)]
if (par3==0) par3 <- dpik(x)
if (par4==0) par4 <- dpik(y)
if (par5==0) par5 <- cor(x,y)
if (par1 > 500) par1 <- 500
if (par2 > 500) par2 <- 500
if (par8 == 'terrain.colors') mycol <- terrain.colors(100)
if (par8 == 'rainbow') mycol <- rainbow(100)
if (par8 == 'heat.colors') mycol <- heat.colors(100)
if (par8 == 'topo.colors') mycol <- topo.colors(100)
if (par8 == 'cm.colors') mycol <- cm.colors(100)
bitmap(file='bidensity.png')
op <- KernSur(x,y, xgridsize=par1, ygridsize=par2, correlation=par5, xbandwidth=par3, ybandwidth=par4)
image(op$xords, op$yords, op$zden, col=mycol, axes=TRUE,main=main,xlab=xlab,ylab=ylab)
if (par6=='Y') contour(op$xords, op$yords, op$zden, add=TRUE)
if (par7=='Y') points(x,y)
(r<-lm(y ~ x))
abline(r)
box()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Bandwidth',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'x axis',header=TRUE)
a<-table.element(a,par3)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'y axis',header=TRUE)
a<-table.element(a,par4)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Correlation',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'correlation used in KDE',header=TRUE)
a<-table.element(a,par5)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'correlation(x,y)',header=TRUE)
a<-table.element(a,cor(x,y))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')