rotation - Rotate grid of plot with R -

-

for example :

plot(1:10, 1:10) grid(col="red")

is possible rotate red grid around intersection of x axis , y axis (the origin {0,0}) , arbitrary angle ? doesn't mean example want that.

the grid function cannot in base r anyway. it's not object-oriented plotting paradigm. think come close abline:

plot(1:10, 1:10,xlim=c(0,10), ylim=c(0,10)) sapply(seq(0,20,by=2), function(a) abline(a=a, b=-1,lty=3,col="red")) sapply(seq(-10,10,by=2), function(a) abline(a,b=1,lty=3,col="red"))

enter image description here

it's minor application of coordinate geometry rotate arbitrary angle.

angle=pi/8; rot=tan(angle); backrot=tan(angle+pi/2) sapply(seq(-10,10,by=2), function(inter) abline(a=inter,                                                  b=rot,lty=3,col="red")) sapply(seq(0,40,by=2), function(inter) abline(a=inter,                                             b=backrot, lty=3,col="red"))

this break down when angle = pi/2 might want check if building function , in case use grid. 1 problem found spacing pleasing. if 1 iterates on y- , x-axes same intervals "compression" of 1 of set of gridlines. think why method breaks down @ high angles.

i'm thinking more general solution might construct set of grid end-points spans , extends beyond plot area factor of @ least sqrt(2) , apply rotation matrix. , use segments or lines. here implementation:

plot(1:10, 1:10,xlim=c(0,10), ylim=c(0,10)); angle=pi/8; rot=tan(angle);backrot=tan(angle+pi/2) x0y0 <- matrix( c(rep(-20,41), -20:20), 41) x1y1 <- matrix( c(rep(20,41), -20:20), 41) # rot function construct rotation matrix rot <- function(theta) matrix(c( cos( theta ) , sin( theta ) ,  -sin( theta ), cos( theta ) ), 2) # leave origianal set of point untouched create rotated version  rotx0y0 <- x0y0%*%rot(pi/8)  rotx1y1 <- x1y1%*%rot(pi/8)  segments(rotx0y0[,1] ,rotx0y0[,2], rotx1y1[,1], rotx1y1[,2], col="blue") # use originals again, ... or write rotate new points  rotx0y0 <- x0y0%*%rot(pi/8+pi/2)  rotx1y1 <- x1y1%*%rot(pi/8+pi/2)  segments(rotx0y0[,1] ,rotx0y0[,2], rotx1y1[,1], rotx1y1[,2], col="blue")

enter image description here


Comments

Post a Comment

Popular posts from this blog

java - Run a .jar on Heroku -

-
i trying run .jar file on heroku, , can't find instructions anywhere on how this. have read wants me compile uploading heroku. possible, , if is, how this? if helps, trying run minecraft craftbukkit server, , don't have pom.xml file yet. you didn't provide details i'll try give , people reaches question way it. first of all, create heroku account , create heroku application (assumed have done that). second, need generate application jar , upload heroku. so, open terminal , install heroku cli (assuming unix terminal): $ sudo npm install -g heroku-cli you need have npm , nodejs installed, can check link: https://www.digitalocean.com/community/tutorials/how-to-install-node-js-on-ubuntu-16-04 once done that, can use npm update node version acceptable heroku-cli: $ sudo npm install -g n $ sudo n 7.10.0 and run: $ sudo npm install -g heroku-cli in order deploy jars, need install deploy plugin: $ sudo heroku plugins:install heroku-cli-deploy ...
Read more

java - Jtable duplicate Rows -

-
Image
when add new rows in jtable duplicate rows many times this method update jtable public final void tableaucomande(){ ((defaulttablemodel)tabcommande.getmodel()).getdatavector().clear(); session s=hibernateutil.getsessionfactory().opensession(); criteria cr1= s.createcriteria(commande.class); list <commande> lcs=cr1.list() ; criteria cr2= s.createcriteria(lignecommande.class); list <lignecommande> lck=cr2.list() ; if(lcs.size()!=0 && lck.size()!=0) { (commande lc:lcs) { for(lignecommande lig:lck){ ((defaulttablemodel)tabcommande.getmodel()).addrow(new object[]{ lc.getid_cmd(),lc.getnumcmd(),lc.getdate_cmd(),lc.getclient().getnomprenom(), lig.getproduit().getlib_prd(),lig.getquantite(),lig.getproduit().getid_prd() }); } } // tabcommande.setrowselectioninterval(tabcommande.getrowcount()-1,tabcommande.getrowcount()-1); } } this code add add data rows displaye...
Read more

validation - How to pass paramaters like unix into windows batch file -

-
i need pass various parameters .cmd file unix format file.cmd -configuration=value -source=value -flag but, try this: startlocal @echo off cls setlocal set cmdline=%* set configuration= set source= set badargs= set validation= goto main :splitargs echo splitargs(%*) if "%*" neq "" ( /f "tokens=1,2,* delims== " %%i in ("%*") call :assignkeyvalue %%i %%j & call :splitargs %%k ) goto :eof :assignkeyvalue echo assignkeyvalue(%1, %2) if /i %1==-configuration ( set configuration=%2 ) else if /i %1==-source ( set source=%2 ) else ( rem append unrecognised [key,value] badargs echo unknown key %1 set badargs=%badargs%[%1, %2] ) goto :eof :validate echo validating set validation=fail if defined configuration ( echo -configuration ok if defined source ( echo -source ok if not defined badargs ( set validation=success ) ) ) goto :eof :main cl...
Read more