File:Perpendicular Bisector.gif
Từ Wikimedia Commons, kho lưu trữ phương tiện nội dung mở
Bước tới điều hướng
Bước tới tìm kiếm
Perpendicular_Bisector.gif (300×300 điểm ảnh, kích thước tập tin: 196 kB, kiểu MIME: image/gif, có lặp, 420 khung ảnh, 8,4 s)
Thông tin tập tin
Dữ liệu có cấu trúc
Chú thích
Miêu tả[sửa]
Miêu tảPerpendicular Bisector.gif |
English: Constructing a perpendicular bisector by using compass-and-straightedge construction. 中文(臺灣):垂直平分線的尺規作圖 |
Ngày | |
Nguồn gốc | Tác phẩm được tạo bởi người tải lên |
Tác giả | Chen-Pan Liao |
Basic R code[sửa]
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()
Giấy phép[sửa]
Tôi, người giữ bản quyền tác phẩm này, từ đây phát hành nó theo giấy phép sau:
Tập tin này được phân phối theo Creative Commons Hiến tặng vào Phạm vi Công cộng Toàn thế giới CC0. | |
Người nào gán tài liệu này với tác phẩm nghĩa là đã hiến tác phẩm cho phạm vi công cộng bằng cách từ bỏ mọi quyền lợi của người đó đối với tác phẩm theo quy định của luật bản quyền, có hiệu lực trên toàn thế giới và các quyền lợi pháp lý phụ mà người đó có được trong tác phẩm, đến mức độ mà luật pháp cho phép. Bạn được tự do sao chép, phân phối, và biểu diễn tác phẩm này, tất cả đều không bắt buộc ghi công.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Lịch sử tập tin
Nhấn vào ngày/giờ để xem nội dung tập tin tại thời điểm đó.
Ngày/Giờ | Hình xem trước | Kích cỡ | Thành viên | Miêu tả | |
---|---|---|---|---|---|
hiện tại | 18:07, ngày 27 tháng 4 năm 2015 | 300×300 (196 kB) | Chen-Pan Liao (thảo luận | đóng góp) | User created page with UploadWizard |
Bạn không được phép ghi đè tập tin này.
Trang sử dụng tập tin
Trang sau sử dụng tập tin này:
Sử dụng tập tin toàn cục
Những wiki sau đang sử dụng tập tin này:
- Trang sử dụng tại ar.wikipedia.org
- Trang sử dụng tại ca.wikipedia.org
- Trang sử dụng tại ckb.wikipedia.org
- Trang sử dụng tại cv.wikipedia.org
- Trang sử dụng tại es.wikipedia.org
- Trang sử dụng tại fa.wikipedia.org
- Trang sử dụng tại fi.wikibooks.org
- Trang sử dụng tại hr.wikipedia.org
- Trang sử dụng tại uk.wikipedia.org
- Trang sử dụng tại uz.wikipedia.org
- Trang sử dụng tại vi.wikipedia.org
- Trang sử dụng tại www.wikidata.org
- Trang sử dụng tại zh.wikipedia.org