you want the lines() function, not abline() albyn
On Tue, Oct 21, 2014 at 11:30 AM, Steven Stoline <[email protected]> wrote: > Dear Jones: > > Could you please look to this R code. I am trying to graph both > sin(x+pi/6) and sin(x) in the same plot to show the shift. I used abline to > graph the sin(x), but it looked like same as the x-axis. > > > x<-seq(-2.2*pi,2*pi,0.01) > y<-sin(x+pi/6) > > > #### To draw a box of the graph: > #### ========================== > > plot(0:10, 0:10, type = "n", xaxt = "n", yaxs = "i", xaxs = "i", yaxt = > "n", xlab = "", ylab = "") > > plot(x, y, type='l', lwd = 3, col="red", xaxt = "n", xlab="", ylab="") > > > > #### abline(v=c(-4*pi,-(7*pi)/2,-3*pi,-(5*pi)/2,-2*pi,-(3*pi)/2,-pi,-pi/2, > 0,pi/2,pi,(3*pi)/2,2*pi,(5*pi)/2,3*pi,(7*pi)/2,4*pi),col="blue") > > > abline(h=0, lwd=3) > abline(v=0, lwd=3) > > > x1<-seq(0,2*pi,0.01) > y1<-sin(x1) > abline(x1,y1, lwd = 3) > > > thank you very much > Steven > > > On Mon, Oct 20, 2014 at 1:08 PM, Steven Stoline <[email protected]> > wrote: > >> Many thanks >> >> it works >> >> Steven >> >> On Mon, Oct 20, 2014 at 11:17 AM, Albyn Jones <[email protected]> wrote: >> >>> Here is a quickly written and barely tested function. You might want to >>> add a final position vector, >>> color, lwd, lty, etc. It assumes the angle is given in degrees, and >>> checks the sign of the angle to draw >>> in the correct direction. >>> >>> albyn >>> ===================================================================== >>> >>> DrawAngle <- function(theta,r=1){ >>> # assumes angles given in degrees, not radians >>> theta <- 2*pi*theta/360 >>> plot(0,0, xlim=c(-2,2),ylim=c(-2,2)) >>> abline(h=0) >>> abline(v=0) >>> sgn <- 1 >>> if(theta <0) { >>> sgn <- -1 >>> theta <- -theta >>> } >>> Theta <- sgn*seq(0,theta,.01) >>> if(theta > 2*pi) r <- seq(1,1.1,along.with=Theta) >>> x <- r*cos(Theta) >>> y <- r*sin(Theta) >>> lines(x,y) >>> n <- length(x) >>> arrows(x[n-1],y[n-1],x[n],y[n]) >>> } >>> >>> On Mon, Oct 20, 2014 at 1:47 AM, Steven Stoline <[email protected]> >>> wrote: >>> >>>> Dear All: >>>> >>>> I am wondering if someone can show me how to plot an angles around the >>>> center of a unit circle with x-y vertices added to it. >>>> >>>> Also how to add arrows showing the size and the direction of angle(s). >>>> >>>> Examples: 135 degrees and 450 degrees angles. >>>> >>>> with many thanks >>>> Steven >>>> >>>> -- >>>> Steven M. Stoline >>>> 1123 Forest Avenue >>>> Portland, ME 04112 >>>> [email protected] >>>> >>>> [[alternative HTML version deleted]] >>>> >>>> _______________________________________________ >>>> [email protected] mailing list >>>> https://stat.ethz.ch/mailman/listinfo/r-sig-teaching >>>> >>> >>> >> >> >> -- >> Steven M. Stoline >> 1123 Forest Avenue >> Portland, ME 04112 >> [email protected] >> > > > > -- > Steven M. Stoline > 1123 Forest Avenue > Portland, ME 04112 > [email protected] > [[alternative HTML version deleted]] _______________________________________________ [email protected] mailing list https://stat.ethz.ch/mailman/listinfo/r-sig-teaching
