This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# MapReduce ImageMagick 'identify' command run over 4,599 jpg files in /public/art Manta directory | |
$ mfind /$MANTA_USER/public/art | mjob create -w -m 'identify $MANTA_INPUT_FILE' -r cat | |
added 1000 inputs to 6f2e6ac8-b6a5-4ed5-bad4-8371aea010dd | |
added 1000 inputs to 6f2e6ac8-b6a5-4ed5-bad4-8371aea010dd | |
added 1000 inputs to 6f2e6ac8-b6a5-4ed5-bad4-8371aea010dd | |
added 1000 inputs to 6f2e6ac8-b6a5-4ed5-bad4-8371aea010dd | |
added 599 inputs to 6f2e6ac8-b6a5-4ed5-bad4-8371aea010dd | |
# Retrieve the output file to my local machine |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Applies to SmartOS/illumOS/Solaris machines with the mkfile command. | |
For testing too many file effects, create 500,000 numbered 2k zero padded files: | |
#./manyfiles.sh 500000 2k | |
For maxing out file storage, then releasing, this makes 20 100Gb zero padded files, bzips them. | |
# ./manyfiles.sh 20 100g | |
# pbzip2 TEMP_* & | |
The 20 resulting files should be all exactly the same size in bytes. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
RamaPlot <- function(Title, aa) { | |
if (missing(aa)) aa <- read.csv(file.choose(), header=F) | |
if (missing(Title)) Title<- "Ramachandran Plot" | |
Lab.palette <- | |
colorRampPalette(c("white","lightyellow", "lightcyan","cyan", "lightskyblue", "lightseagreen", "yellowgreen" ,"yellow", "goldenrod", "orange", "orange4", "firebrick", "darkred", "red", "darkmagenta", "magenta", "hotpink", "pink","lightpink","white"), space = "Lab") | |
par(las=1,pty="s") | |
smoothScatter(aa$V3,aa$V4, xlab=expression(phi), ylab=expression(psi), asp=1, ylim=c(-180,180), xlim=c(-180,180), main=Title, xaxs="i", yaxs="i", axes=F, frame.plot=F, colramp=Lab.palette) | |
prange<- seq(-180, 180, by=40) |
NewerOlder