Fitxer:Perpendicular_Bisector.gif
From Wikipedia, the free encyclopedia
Perpendicular_Bisector.gif (300 × 300 píxels, mida del fitxer: 196 Ko, tipus MIME: image/gif, en bucle, 420 fotogrames, 8,4 s)
![]() | Aquest fitxer i la informació mostrada a continuació provenen del dipòsit multimèdia lliure Wikimedia Commons.![]() |
Resum
DescripcióPerpendicular Bisector.gif |
English: Constructing a perpendicular bisector by using compass-and-straightedge construction. 中文(臺灣):垂直平分線的尺規作圖 |
Data | |
Font | Treball propi |
Autor | Chen-Pan Liao |
Basic R code
png(file="img%05d.png", width=300, height=300, pointsize = 16) plot.bk <- function(s){ d1 <<- 1 d2 <<- 1.5 My <<- sqrt(d2^2 - d1) pause <<- 1L:30L angL <<- 30 ang <<- seq(0,2*pi, length=angL) x1 <<- cos(ang)*d2 - d1 x2 <<- cos(ang+pi)*d2 + d1 y <<- sin(ang)*d2 arc <<- seq(0, 2*pi, length=angL*10) xarc1 <<- cos(arc)*d2 - d1 xarc2 <<- cos(arc+pi)*d2 + d1 yarc <<- sin(arc)*d2 par(mar=c(0,0,0,0)) plot(NULL, xlim=c(-2.1,2.1), ylim=c(-2.1,2.1), type="n", xaxt="n", yaxt="n", asp=1, frame.plot=F) lines(c(-1*d1,d1), c(0,0), lwd=2) points(c(-d1,d1), c(0,0), pch=20) text(-1,0.3,"A") text( 1,0.3,"B") if(s == 1) {return()} lines(c(-1*d2/2,d2/2), c(2,2), lwd=1, col=2) if(s == 2) {return()} # lines(c(-1,x1[length(x1)]), c(0,y[length(y)]), lwd=1, col=2) lines(xarc1[1:length(xarc1)], yarc[1:length(yarc)], col=2) if(s == 3) {return()} # lines(c( 1,x2[length(x2)]), c(0,y[length(y)]), lwd=1, col=2) lines(xarc2[1:length(xarc1)], yarc[1:length(yarc)], col=2) if(s == 4) {return()} points(c(0,0), c(My,-1*My), pch=20, col=2) if(s == 5) {return()} } for(i in pause){plot.bk(1)} for(i in pause){plot.bk(2)} lp.x <- seq(-1*d2/2,-1*d1,length=length(pause)) lp.y <- seq(2,0,length=length(pause)) for(i in pause){ plot.bk(2) lines(c(lp.x[i], lp.x[i]+d2), c(lp.y[i], lp.y[i]), col=2) } # 左紅一圓 for(i in 1:angL){ plot.bk(2) lines(c(-1*d1,x1[i]), c(0,y[i]), lwd=1, col=2) lines(xarc1[1:(i-1)*10], yarc[1:(i-1)*10], col=2) } lp.x <- seq(-1*d2/2,d1-d2,length=length(pause)) lp.y <- seq(2,0,length=length(pause)) for(i in pause){ plot.bk(3) lines(c(lp.x[i], lp.x[i]+d2), c(lp.y[i], lp.y[i]), col=2) } for(i in 1:angL){ plot.bk(3) lines(c( d1,x2[i]), c(0,y[i]), lwd=1, col=2) lines(xarc2[1:(i-1)*10], yarc[1:(i-1)*10], col=2) } for(j in pause){plot.bk(4)} for(j in pause){plot.bk(5)} for(j in pause){ plot.bk(1) points(c(0,0), c(My,-1*My), pch=20, col=2) } Myy <- seq(2, -2, length=length(pause)) for(j in pause){ plot.bk(1) points(c(0,0), c(My,-1*My), pch=20, col=2) lines(c(0,0), c(Myy[1], Myy[j]), col=2) } for(j in pause){ plot.bk(1) points(c(0,0), c(My,-1*My), pch=20, col=2) lines(c(0,0), c(Myy[1], Myy[length(Myy)]), col=2) } for(j in pause){ plot.bk(1) points(c(0,0), c(My,-1*My), pch=20, col=2) lines(c(0,0), c(Myy[1], Myy[length(Myy)]), col=2) points(0,0,pch=20, col=1) } for(j in rep(pause, 2)){ plot.bk(1) lines(c(0,0), c(Myy[1], Myy[length(Myy)]), col=2) text(0.3,0.3, "M", col=1) points(0,0,pch=20, col=1) lines(c(-0.45,-0.45), c(0.1,-0.1)) lines(c(-0.55,-0.55), c(0.1,-0.1)) lines(c(0.45, 0.45), c(0.1,-0.1)) lines(c(0.55, 0.55), c(0.1,-0.1)) lines(c(0,-0.2), c(0.2,0.2)) lines(c(-0.2,-0.2), c(0.2,0)) } dev.off()
Llicència
Jo, el titular dels drets d'autor d'aquest treball, el public sota la següent llicència:
![]() ![]() |
L'ús d'aquest fitxer és regulat sota les condicions de Creative Commons de CC0 1.0 lliurament al domini públic universal. |
La persona que ha associat un treball amb aquest document ha dedicat l'obra domini públic, renunciant en tot el món a tots els seus drets de d'autor i a tots els drets legals relacionats que tenia en l'obra, en la mesura permesa per la llei. Podeu copiar, modificar, distribuir i modificar l'obra, fins i tot amb fins comercials, tot sense demanar permís.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Llegendes
Afegeix una explicació d'una línia del que representa aquest fitxer
Elements representats en aquest fitxer
representa l'entitat
Algun valor sense element de Wikidata
28 abr 2015
image/gif
Historial del fitxer
Cliqueu una data/hora per veure el fitxer tal com era aleshores.
Data/hora | Miniatura | Dimensions | Usuari/a | Comentari | |
---|---|---|---|---|---|
actual | 20:07, 27 abr 2015 | ![]() | 300 × 300 (196 Ko) | Chen-Pan Liao | User created page with UploadWizard |
Ús del fitxer
La pàgina següent utilitza aquest fitxer:
Ús global del fitxer
Utilització d'aquest fitxer en altres wikis:
- Utilització a ar.wikipedia.org
- Utilització a ckb.wikipedia.org
- Utilització a cv.wikipedia.org
- Utilització a es.wikipedia.org
- Utilització a fa.wikipedia.org
- Utilització a fi.wikibooks.org
- Utilització a hr.wikipedia.org
- Utilització a uk.wikipedia.org
- Utilització a uz.wikipedia.org
- Utilització a vi.wikipedia.org
- Utilització a www.wikidata.org
- Utilització a zh.wikipedia.org