#----------------------------------------------- # # # BY Jesus Eduardo CanulK # # If you like please upvote and comment # # #-----—----------------------------------------- #------------ Code name & autor----------------- cat("

Image resolution

By Jesus Eduardo CanulK

") #----------------- context --------------------- cat("

Context

Resolution is the precision of detail in bitmap images, measured in pixels per inch. The more pixels per inch, the higher the resolution. In general, higher resolution images produce better print quality.

Example

") #-------------------- data --------------------- n = 9 x1 <- c(72) x2 <- c(110, 100, 102, 72, 71, 82, 97, 92, 90) xu <- c(204, 186, 175, 170, 123, 127, 89, 89, 104, 108, 93, 83, 69, 88, 98, 126, 118, 72, 87, 65, 145, 125, 114, 124, 113) x3 <- c(221, 223, 221, 227, 220, 209, 202, 62, 217, 205, 189, 153, 148, 174, 155, 77, 175, 77, 48, 44, 38, 69, 82, 81, 135, 94, 97, 89, 111, 154, 174, 120, 80, 78, 108, 26, 30, 33, 69, 55, 131, 123, 148, 13, 19, 127, 68, 40, 145, 144, 130, 153, 139, 99, 120, 73, 157, 158, 105, 90, 103, 129, 180, 119) x4 <- c(223, 222, 228, 221, 222, 230, 235, 230, 218, 216, 216, 219, 185, 171, 108, 48, 221, 222, 220, 220, 215, 218, 225, 220, 199, 208, 200, 216, 203, 96, 80, 29, 218, 220, 218, 214, 198, 210, 196, 194, 204, 197, 202, 210, 189, 126, 136, 28, 211, 214, 195, 172, 161, 96, 62, 67, 63, 77, 68, 86, 135, 183, 132, 38, 199, 188, 153, 66, 45, 43, 55, 28, 36, 31, 37, 62, 51, 36, 39, 10, 78, 119, 76, 63, 67, 57, 52, 70, 70, 67, 88, 100, 95, 130, 129, 38, 127, 83, 97, 100, 105, 111, 121, 134, 142, 145, 168, 175, 186, 195, 183, 73, 142, 115, 82, 80, 61, 50, 87, 85, 126, 97, 69, 124, 140, 158, 142, 114, 140, 62, 53, 54, 98, 113, 71, 16, 11, 4, 26, 69, 67, 84, 89, 27, 111, 75, 92, 129, 116, 123, 19, 26, 6, 10, 92, 82, 34, 56, 68, 13, 105, 129, 147, 106, 139, 166, 14, 30, 35, 24, 136, 105, 106, 38, 30, 19, 125, 184, 198, 173, 140, 162, 172, 24, 20, 70, 142, 154, 123, 70, 50, 26, 136, 164, 138, 147, 151, 188, 202, 194, 184, 191, 194, 53, 124, 104, 76, 38, 135, 171, 129, 125, 115, 139, 112, 115, 79, 120, 122, 117, 134, 112, 99, 56, 151, 161, 143, 110, 106, 91, 94, 93, 96, 104, 111, 143, 154, 160, 114, 85, 170, 165, 169, 168, 146, 103, 109, 83, 116, 128, 133, 178, 187, 200, 157, 100) url5="https://www.dropbox.com/s/gpyenmq9fhu2t2j/x5.txt?raw=1" url6="https://www.dropbox.com/s/7nigemug7cuwszv/x6.txt?raw=1" url7="https://www.dropbox.com/s/4b2bwv706ylufhy/x7.txt?raw=1" url8="https://www.dropbox.com/s/h5nebtxxtyfupgz/x8.txt?raw=1" download.file(url5, destfile="t5.txt", quiet=TRUE) download.file(url6, destfile="t6.txt", quiet=TRUE) download.file(url7, destfile="t7.txt", quiet=TRUE) download.file(url8, destfile="t8.txt", quiet=TRUE) x5 <- suppressWarnings(as.numeric(read.delim("t5.txt", header=F,sep=" "))) x6 <- suppressWarnings(as.numeric(read.delim("t6.txt", header=F,sep=" "))) x7 <- suppressWarnings(as.numeric(read.delim("t7.txt", header=F,sep=" "))) x8 <- suppressWarnings(as.numeric(read.delim("t8.txt", header=F,sep=" "))) m1 <- matrix(x1,ncol=01,byrow=TRUE) m2 <- matrix(x2,ncol=03,byrow=TRUE) mu <- matrix(xu,ncol=05,byrow=TRUE) m3 <- matrix(x3,ncol=08,byrow=TRUE) m4 <- matrix(x4,ncol=16,byrow=TRUE) m5 <- matrix(x5,ncol=24,byrow=TRUE) m6 <- matrix(x6,ncol=32,byrow=TRUE) m7 <- matrix(x7,ncol=64,byrow=TRUE) m8 <- matrix(x8,ncol=96,byrow=TRUE) #----------------- Fuction base ----------------- rot <- function(x){ t(apply(x, 2, rev)) } Image <- function(m,np){ image(rot(m), col=hcl.colors(255,"Purple-Blue",rev=F), main=paste("Imagen with",np,"x",np,"px"), cex.main=2.5, zlim=c(0,255)) } #------------------------------------------------ png(file="im.png", height=n*470, res=32, units="px", pointsize=25) par(mfrow=c(n,1)) Image(m1,01) Image(m2,03) Image(mu,05) Image(m3,08) Image(m4,16) Image(m5,24) Image(m6,32) Image(m7,64) Image(m8,96) png("bbb.png",height=200,units="px") plot.new() text(0.5,0.5,"⬇️ All Images ⬇️",col="red",cex=3) png(file="zz.png",res=32,pointsize=16) par(mfrow=c(3,3)) Image(m1,01) Image(m2,03) Image(mu,05) Image(m3,08) Image(m4,16) Image(m5,24) Image(m6,32) Image(m7,64) Image(m8,96) # by Jesus Eduardo CanulK

🖼️ Imagen Resolution | R + PDI