底辺私立医大を卒業した医者って頭悪いよね？ Part17

1 名前：卵の名無しさん mailto:sage [2020/06/15(月) 19:09:47 ID:jnY7bdq5.net] タイトルまんまです すなわち、タイトルの正しさを検証するスレです。 ※前スレ 底辺私立医大を卒業した頭悪いよね？ egg.2ch.net/test/read.cgi/hosp/1472273747/ 底辺私立医大を卒業した医者って頭悪いよね？ Part2 egg.2ch.net/test/read.cgi/hosp/1520807375/ 底辺私立医大を卒業した医者って頭悪いよね？ Part3 egg.2ch.net/test/read.cgi/hosp/1522967067/ 底辺私立医大を卒業した医者って頭悪いよね？ Part4 egg.2ch.net/test/read.cgi/hosp/1526677794/ 底辺私立医大を卒業した医者って頭悪いよね？ Part5 egg.2ch.net/test/read.cgi/hosp/1529666055/ 底辺私立医大を卒業した医者って頭悪いよね？ Part6 egg.5ch.net/test/read.cgi/hosp/1531305684/ 底辺私立医大を卒業した医者って頭悪いよね？ Part7 egg.2ch.net/test/read.cgi/hosp/1532472024/ 底辺私立医大を卒業した医者って頭悪いよね？ Part8 egg.2ch.net/test/read.cgi/hosp/1533510399/ 底辺私立医大を卒業した医者って頭悪いよね？ Part9 egg.2ch.net/test/read.cgi/hosp/1535547275/ 底辺私立医大を卒業した医者って頭悪いよね？ Part10 https://egg.2ch.net/test/read.cgi/hosp/1537867846/ 底辺私立医大を卒業した医者って頭悪いよね？ Part11 https://egg.5ch.net/test/read.cgi/hosp/1544320163/ 底辺私立医大を卒業した医者って頭悪いよね？ Part12 https://egg.5ch.net/test/read.cgi/hosp/1550969602/ 底辺私立医大を卒業した医者って頭悪いよね？ Part13 https://egg.5ch.net/test/read.cgi/hosp/1575242106/ 底辺私立医大を卒業した医者って頭悪いよね？ Part14 https://egg.5ch.net/test/read.cgi/hosp/1578616997/ 底辺私立医大を卒業した医者って頭悪いよね？ Part15 https://egg.5ch.net/test/read.cgi/hosp/1584050953/ 底辺私立医大を卒業した医者って頭悪いよね？ Part16 https://egg.5ch.net/test/read.cgi/hosp/1587907116/ 382 名前：.5),ylim=c(-1,1.5),asp=1) A= -0.5 ; B= 0.5 x=runif(1) ; y=runif(1) C=x+1i*y if(print){pt(A,'A');pt(B,'B');pt(C,'C') ; seg(A,B);seg(A,C);seg(B,C)} r=seg2tri(A,B,print=FALSE) r12=c(opc(B-A,r[1]-A),opc(B-A,r[2]-A)) R=r[ifelse(opc(B-A,C)>0,which.min(r12),which.max(r12))] if(print) {pt(R,'R') ; seg(A,R,col=2) ; seg(B,R,col=2)} p=seg2tri(B,C,print=FALSE) p12=c(opc(C-B,p[1]-B),opc(C-B,p[2]-B)) P=p[ifelse(opc(C-B,A)>0,which.min(p12),which.max(p12))] if(print) {pt(P,'P') ; seg(B,P,col=2) ; seg(C,P,col=2)} q=seg2tri(C,A,print=FALSE) q12=c(opc(A-C,q[1]-C),opc(A-C,q[2]-C)) Q=q[ifelse(opc(A-C,B)>0,which.min(q12),which.max(q12))] if(print) {pt(Q,'Q') ; seg(A,Q,col=2) ; seg(C,Q,col=2)} # r = {max(AP,BQ,CR)}/(AB+BC+CA) r=max(abs(A-P),abs(B-Q),abs(C-R))/(abs(A-B)+abs(B-C)+abs(C-A)) if(print) legend('bottom',bty='n',legend=paste('r =',round(r,2))) return(r) } [] [ここ壊れてます] 383 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:13:20.67 ID:iQy0Mb0r.net] art(print=TRUE) layout(matrix(1:9,3)) replicate(9,art(T)) layout(1) par(lwd=1) re=replicate(1e4,art(F)) range(re) > re=replicate(1e4,art(F)) > range(re) [1] 0.4340035 0.5773468 384 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:34:50.34 ID:PU5tnH+4.net] >>2 今は私立も偏差値が高いですがｗ 385 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:47:29.54 ID:iQy0Mb0r.net] >>352 動作確認してみた。 https://i.imgur.com/NXShefl.gif 386 名前：卵の名無しさん mailto:sage [2020/08/02(日) 17:48:36.72 ID:iQy0Mb0r.net] >>356 これをいつまで経っても答がだせない、アホだらけだよ。 前々スレからのド底辺シリツ医への宿題 若い女性研修医（嘘つきかどうかは不明）から 「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。 フェラをしてもらうには何と言えばいいか？ 387 名前：卵の名無しさん [2020/08/02(日) 20:51:29.82 ID:C3BluAlB.net] >>349 フフ、私立だがバッチリ医学科 出てるぞ 歯科は医者ではなーい！ ハハハハ 388 名前：卵の名無しさん mailto:sage [2020/08/03(月) 00:06:41.69 ID:ytVe6HxS.net] >>359 >358に答えてみ！ できなきゃ裏口認定 389 名前：卵の名無しさん mailto:sage [2020/08/03(月) 07:20:43.28 ID:PpobZQKf.net] # draw text y at x and perpendicular line ptl <- function(x,y=NULL,...){ if(is.complex(x)) {a=Re(x) ; b=Im(x)} else{a=x[1] ; b=x[2]} text(a,b, ifelse(is.null(y),'+',y), ...) segments(a,0,a,b,lty=3) ; segments(0,b,a,b,lty=3) } 390 名前：卵の名無しさん mailto:sage [2020/08/03(月) 08:24:28.60 ID:PpobZQKf.net] rm(list=ls()) source('toolmini.R') θ=pi/3 α=0.1303291 eclip <- function(x,z){ sqrt(x^2+z^2)/tan(θ) - (tan(α)*(x-sin(θ))+cos(θ)) } eclipse=Vectorize(eclip) x=z=seq(-sin(θ),sin(θ),0.01) y=outer(x,z,eclipse) contour(x,z,y,levels=0,drawlabels = F,xlim=c(-1,1),asp=1) 391 名前：卵の名無しさん [2020/08/03(月) 18:35:40.28 ID:wO7yKm98.net] 我々底辺私立卒医こそ大正義 貧乏国立卒医と違って上級国民だよｗ でも底辺私立卒医と言っても 早慶非医学部より難関だけどなｗ 392 名前：卵の名無しさん mailto:sage [2020/08/03(月) 18:45:51 ID:15DQBE5r.net] ワイングラスの形状が円錐面とする。 グラス底での角度２θは１２０°する。（θ＝６０°) https://i.imgur.com/RApLE95.png これを傾けて満杯のワインを半分にするには何度傾ければよいか？ https://i.imgur.com/CAuHmAq.png cos(θ+α)/cos(θ-α)= 4^(-1/3) 393 名前：卵の名無しさん mailto:sage [2020/08/03(月) 19:24:39 ID:Tabwz5bT.net] >>363 早稲田の理工と川崎医� 394 名前：ﾁて川崎医の方が難しいの？ [] [ここ壊れてます] 395 名前：卵の名無しさん mailto:sage [2020/08/04(火) 04:25:09.66 ID:B3l71IL2.net] >>364 α = acos(sqrt(sin^2(θ) - cos^2(θ) + 2^(1/3) + 1)/sqrt(2)) 396 名前：卵の名無しさん mailto:sage [2020/08/04(火) 04:30:54.14 ID:B3l71IL2.net] >>365 早稲田の理工なら>364を解けるが川崎だと無理だろう。 あんたにも無理だろうから>358でも答えてみ！ 397 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:33:23.06 ID:HLPeZtWd.net] >>364 https://www.wolframalpha.com/input/?i=solve+cos%28%CE%B8%2Bx%29%3D%281%2F2%29%5E%282%2F3%29*cos%28%CE%B8-x%29+for+x+where+%CE%B8%3Dpi%2F3+and+0%3Cx%3Cpi%2F2&lang=ja 398 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:36:49.28 ID:oQGWkiq6.net] https://www.wolframalpha.com/input/?i=solve+cos%28%CE%B8%2Bx%29%3Dp%5E%282%2F3%29*cos%28%CE%B8-x%29+for+x+where+%CE%B8%3Dpi%2F3+and+p%3D0.5+and+0%3Cx%3Cpi%2F2+&lang=ja 399 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:37:01.92 ID:kPaGPC8z.net] https://www.wolframalpha.com/input/?i=solve+cos%28%CE%B8%2Bx%29%3Dp%5E%282%2F3%29*cos%28%CE%B8-x%29+for+x+where+%CE%B8%3Dpi%2F3+and+p%3D0.5+and+0%3Cx%3Cpi%2F2+&lang=ja 400 名前：卵の名無しさん mailto:sage [2020/08/04(火) 05:37:13.31 ID:HLPeZtWd.net] solve cos(θ+x)=p^(2/3)*cos(θ-x) for x where θ=pi/3 and p=0.5 and 0<x<pi/2 401 名前：卵の名無しさん mailto:sage [2020/08/04(火) 06:00:43.54 ID:HLPeZtWd.net] 円錐の展開図を描いて、その側面部に円を描きます。この展開図を組み立てて円錐としたとき、側面の円はどのような図形になるのでしょうか。 402 名前：卵の名無しさん mailto:sage [2020/08/04(火) 18:07:21.09 ID:lahyJk2n.net] >>367 降参です。理解できません。 403 名前：卵の名無しさん mailto:sage [2020/08/04(火) 19:18:34.52 ID:kPaGPC8z.net] >>372>>971 グラフ化してみました。割と大変だったな。 https://i.imgur.com/kzwcLIz.png 404 名前：卵の名無しさん mailto:sage [2020/08/04(火) 19:19:10.24 ID:kPaGPC8z.net] プログラムができたから 蚊取り線香を円錐側面に載せてみました。 https://i.imgur.com/ROMPVtF.png 405 名前：卵の名無しさん mailto:sage [2020/08/04(火) 20:00:42.04 ID:SiNiiw+2.net] graph <- function(p=0.5){ # θ:cone angle, α:tilt, P:volume proportion θ=seq(0,pi/2,0.01) α=seq(0,pi/2,0.01) fn <- function(θ,α,P=p) cos(θ+α)- P^(2/3)*cos(θ-α) fn=Vectorize(fn) z=outer(θ,α,fn) contour(θ,α,z,levels = 0, drawlabels = F,xlab='θ(rad)',ylab='α(rad)',asp=1,bty='l') } graph() tilt <- function(th,p=0.5){　# p=0.5 and 0< θ < pi/2 fn <- function(theta=th,x,P=p) cos(theta+x) - P^(2/3)*cos(theta-x) fn=Vectorize(fn) uniroot(function(x) fn(th,x,p),c(0,pi/6))$root } 406 名前：卵の名無しさん mailto:sage [2020/08/04(火) 20:02:15.74 ID:SiNiiw+2.net] > tilt(pi/3)*180/pi [1] 7.466948 約7.5°だな。 407 名前：卵の名無しさん mailto:sage [2020/08/04(火) 22:00:54.11 ID:lahyJk2n.net] >>358 普通は風俗に通うだろ。 408 名前：卵の名無しさん mailto:sage [2020/08/05(水) 08:19:28.51 ID:vZG88Q7w.net] Schema <- function(){ plot(NULL,type='n',xlim=c(-1,1),ylim=c(0,1.5),asp=1,ann=F) abline(h=0,v=0,col=8,lty=3) α=25*pi/180 pt(-0.025+0.125i,'α') th=pi/2-α seg(0,-cos(th)+1i*sin(th),col=8,lty=3) seg(-cos(th)+1i*sin(th),0,col=8,lty=3) a=2*pi*cos(th) # 2*pi*sin(θ/2) seg(0,cos(pi/2-a/2)+1i*sin(pi/2-a/2)) seg(0,cos(pi/2+a/2)+1i*sin(pi/2+a/2)) curve(sqrt(1-x^2),cos(pi/2+a/2),cos(pi/2-a/2),add=T) # 2β=2πr # r=sin(α)=β/π # ∴ β=π*sin(α) β=pi*sin(α) α=asin(β/pi) r=β/pi seg(-r+1i*cos(α),1i*cos(α),lty=3,col=8) curve(sqrt(0.25^2-x^2),-0.25/tan(pi/2-β),0,col=8,lty=2,add=T) pt(-0.2+0.2i,'β') pt(-0.2+0.925i,'r') p=0.7 ; q=sqrt(1-p^2) A=p+1i*q ; pt(A+0.1,'A(p,q)') 409 名前：卵の名無しさん mailto:sage [2020/08/05(水) 08:19:32.99 ID:vZG88Q7w.net] seg(0,A,col=8) # z=2*r=2*β/pi # y=cos(α)=cos(asin(β/pi)) # x=cos(-pi/2+β/r)=sin(β/r) cir(0,1+r,r,col=4) ; pt(c(0,1+r)) pt(0.05+0.125i,'θ') θ=atan(p/q) (xA=r*cos(-pi/2+θ/r)) r*sin(θ/r) (β/pi)*sin(pi*θ/β) (β/pi)*sin(pi*atan(p/q)/β) Adash=xA+1i*(sqrt(r^2-xA^2)+1+r) pt(Adash,'A\'') ; pt(0.2+1.5i,'r') 410 名前：seg(Adash,(1+r)*1i,lty=3,col=8) (yA=sqrt(p^2+q^2)*cos(θ)) sqrt(p^2+q^2)*cos(atan(p/q)) (zA=sqrt(p^2+q^2)*r*2) } Schema() [] [ここ壊れてます] 411 名前：卵の名無しさん mailto:sage [2020/08/05(水) 08:20:13.02 ID:vZG88Q7w.net] https://i.imgur.com/5NRe3wP.png 412 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:08:32.23 ID:HCtqwRw4.net] r’=sqrt(p^2+q^2) β/pi γ=θpi/β x=r'sin(γ) y=√()cos(β) z= √()+r'-r'cos(θpi/β) 413 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:11:18.41 ID:HCtqwRw4.net] β=pi*sin(α) α=asin(β/pi) r=β/pi 414 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:27:15.67 ID:HCtqwRw4.net] >>382 A(p,q):展開図上の座標 tan(θ)=q/p , θ=atan(q/p) r':Aの円錐上で点A’を通る円Cの半径 γ:x=0面と、A'と円Cの中心を結ぶ線とAの角度 415 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:36:59 ID:GjPpIH0y.net] >>384 θ=atan(p/q)だな 416 名前：卵の名無しさん mailto:sage [2020/08/05(水) 10:49:02.60 ID:GjPpIH0y.net] cone <- function(p,q,α){ θ=atan(p/q) β=pi*sin(α) γ=pi*θ/β PQ=sqrt(p^2+q^2) rdash=PQ*β/pi x=rdash*sin(γ) y=PQ*cos(β) z=PQ+rdash-rdash*cos(γ) c(x,y,z) } 417 名前：卵の名無しさん mailto:sage [2020/08/05(水) 16:08:18.82 ID:vZG88Q7w.net] oncone <- function(p,q,α=pi/6){ # (p,q) 展開図上の座標、頂点の角度=２α PQ=sqrt(p^2+q^2) β=pi*sin(α) θ=atan(p/q) rdash=PQ*β/pi γ=PQ*θ/rdash x=rdash*sin(γ) y=PQ/(tan(α)*sqrt(1+tan(α)^-2)) z=rdash*(1-cos(γ)) c(x=x,y=y,z=z) } onCone=Vectorize(oncone) onCone(1:3,4:6) library(rgl) p0=0 ; q0=0.5 ; r=0.3 theta=seq(-pi,pi,0.01) p=r*cos(theta)+p0 q=r*sin(theta)+q0 points(p,q,asp=1,col=2) re=onCone(p,q) x=re['x',] ;y=re['y',];z=re['z',] rgl::plot3d(x,y,z,col='brown') library(scatterplot3d) scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis="blue", col.grid="lightblue", main="メガホンに輪ゴム", pch=20) 418 名前：卵の名無しさん mailto:sage [2020/08/05(水) 16:09:58.24 ID:vZG88Q7w.net] >>387 https://i.imgur.com/qOojo9N.png 419 名前：卵の名無しさん mailto:sage [2020/08/05(水) 16:20:01.51 ID:ROroepFL.net] >>378 頭が悪いのを金で補うのが普通だってｗ さては売らシリツ医だな。 420 名前：卵の名無しさん mailto:sage [2020/08/06(木) 06:35:06.32 ID:1+RzuAJZ.net] 展開図のどこに円を置くかで変わってくるな。 https://i.imgur.com/An5YvGR.png https://i.imgur.com/sDW5Rdi.png https://i.imgur.com/NQgdSZo.png https://i.imgur.com/WmJCICs.png と考えていたら、動画まで上げてくれる神が数学板に君臨。 https://i.imgur.com/j8DM7S1.mp4 421 名前：卵の名無しさん mailto:sage [2020/08/06(木) 07:03:23.13 ID:1+RzuAJZ.net] numlockキーをbackspaceキーに変更するレジストリ（要再起動） Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] "Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,0e,00,45,00,00,00,00,00 422 名前：卵の名無しさん mailto:sage [2020/08/06(木) 08:41:39.49 ID:Vf3ylEcs.net] 母線の長さが１、円錐角（母線と軸のなす角）がθの円錐側面の展開図を頂点を原点にｙ軸に対称に置く。円錐底面の円は考えない。 展開図上の点Aの座標を(p,q)とすると展開図を円錐化したときのAの三次元座標をp,q,θで表わせ。 423 名前：卵の名無しさん mailto:sage [2020/08/06(木) 08:42:17.72 ID:Vf3ylEcs.net] >>378 発想が裏口シリツ医そのものだな 424 名前：卵の名無しさん mailto:sage [2020/08/06(木) 10:53:43 ID:YPzmx6MX.net] ( x, y ) → √(x*x+y*y) * ( sinΘ*cos(atan2(y, x) /sinΘ), r*sinΘ*sin(atan2(y, x) /sinΘ), cosΘ ) 425 名前：卵の名無しさん mailto:sage [2020/08/06(木) 14:31:01.10 ID:i90ZSgWD.net] https://i.imgur.com/1kcxKBY.png 426 名前：卵の名無しさん mailto:sage [2020/08/06(木) 22:51:53 ID:1+RzuAJZ.net] f <- function(x){ m=sum(x) sub <- function(n){ if(n==1) return(1) else{ return(n*Recall(n-1)) } } sub(m) } f(c(1,2,3)) 427 名前：卵の名無しさん mailto:sage [2020/08/06(木) 22:57:19.88 ID:1+RzuAJZ.net] >>392 # x=sqrt(p^2+q^2)*sin(α)*sin(atan(p/q)/sin(α)) # y=sqrt(p^2+q^2)/(tan(α)*sqrt(1+tan(α)^-2)) # z=sqrt(p^2+q^2)*sin(α)*(1-cos(atan(p/q)/sin(α))) 428 名前：卵の名無しさん mailto:sage [2020/08/07(金) 07:20:47 ID:Un6cahih.net] # 円錐角から展開図を表示 opened <- function(α=25*pi/180,R=1){ plot(NULL,type='n',xlim=c(-R,R),ylim=c(-R,R),asp=1,ann=F,axes=F) abline(h=0,v=0,col=8,lty=3) β=pi*sin(α) seg(0,-R*sin(α)+R*1i*cos(α)) seg(0, R*sin(α)+R*1i*cos(α)) seg(-R*sin(α)+R*1i*cos(α),R*sin(α)+R*1i*cos(α)) seg(0,-R*sin(β)+R*1i*cos(β),lty=2) seg(0, R*sin(β)+R*1i*cos(β),lty=2) pt(R*0.2*(-sin(α/2)+1i*cos(α/2)),'α') alpha=seq(pi/2,pi/2+α,0.01) lines(0.2*R*cos(alpha),0.2*R*sin(alpha),col=8) pt(R*0.3*(-sin(β/2)+1i*cos(β/2)),'β') beta=seq(pi/2,pi/2+β,0.01) lines(0.3*R*cos(beta),0.3*R*sin(beta),col=8) Beta=seq(pi/2-β,pi/2+β,0.01) lines(R*cos(Beta),R*sin(Beta),lty=2) } opened(40*pi/180) 429 名前：卵の名無しさん [2020/08/08(土) 00:48:30.12 ID:58p97i51.net] 底辺リシツ医師は問題外だが 自治医大卒の尾身をなんとかみんなでどうにかしてくれ〜 430 名前：卵の名無しさん mailto:sage [2020/08/08(土) 05:49:15 ID:7Ekoauz2.net] ＰＣＲ増えないね https://i.imgur.com/diHa6Ld.jpg 431 名前：卵の名無しさん mailto:sage [2020/08/08(土) 05:55:33 ID:7Ekoauz2.net] f <- function(s,t) s^2 + 4*s*t - 2*t^2 - 3*s + 2 s=t=seq(0,1,0.01) z=outer(s,t,f) contour(s,t,z) 432 名前：卵の名無しさん mailto:sage [2020/08/08(土) 07:09:43 ID:7Ekoauz2.net] inside <-function(x,y,z){ (x>=0 & z^2+y^2 < 1/2*( sqrt(4*x + 1) + 2*x + 1 - 2*x^2))| (x<0 & (z^2+y^2 < 1/2*( sqrt(4*x + 1) + 2*x + 1 - 2*x^2)) & (z^2+y^2 > 1/2*(-sqrt(4*x + 1) + 2*x + 1 - 2*x^2))) } N=1e4 x=runif(N,-0.25,2) y=runif(N,-1.3,1.3) z=runif(N,-1.3,1.3) v=diff(range(x))*diff(range(y))*diff(range(z)) w=NULL counter=0 for(i in 1:N){ if(inside(x[i],y[i],z[i])){ w=rbind(w,c(x[i],y[i],z[i])) counter=counter+1 } } counter/N*v rgl::plot3d(w[,1],w[,2],w[,3],col='red',asp=1) rgl::plot3d(w[,1],w[,2],w[,3],col=sample(c('black','red')),asp=1) rgl::plot3d(w[,1],w[,2],w[,3],col=sample(colours()),asp=1) 433 名前：卵の名無しさん mailto:sage [2020/08/08(土) 08:43:35 ID:r0iXFBTE.net] アベがベトナム移民を連れてきた https://todo-ran.com/tdfkimages/00/00/02/41/241397cf40.png 434 名前：卵の名無しさん mailto:sage [2020/08/08(土) 10:52:25.65 ID:ermgG03e.net] >>386 x=rdashでいい 435 名前：卵の名無しさん mailto:sage [2020/08/08(土) 10:54:21.20 ID:ermgG03e.net] >>404 ｙ=rdash/tan(α) 436 名前：卵の名無しさん mailto:sage [2020/08/08(土) 10:56:20.12 ID:ermgG03e.net] z=rdash(1-cos(γ)) γ= ガンマ 437 名前：卵の名無しさん mailto:sage [2020/08/08(土) 11:17:40.08 ID:ermgG03e.net] x=√(p^2+q^2)sin(α) y=rdash/tan(α)=√(p^2+q^2)sin(α)tan(α) 438 名前：卵の名無しさん mailto:sage [2020/08/08(土) 11:23:00.03 ID:ermgG03e.net] gamma=atan(p/q)/sin(alpha) √(p^2+q^2)sin(alpha)(1-cos(atan(p/q)/sin(alpha)) 439 名前：卵の名無しさん mailto:sage [2020/08/08(土) 11:23:51.15 ID:ermgG03e.net] z=√(p^2+q^2)sin(α)(1-cos(atan(p/q)/sin(α)) 440 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:12.07 ID:Fonqs1WQ.net] rm(list=ls()) source('toolmini.R') # 円錐角から展開図を表示 opened <- function(α=40*pi/180,R=1){ plot(NULL,type='n',xlim=c(-R,R),ylim=c(-R,R),asp=1,ann=F,axes=T) abline(h=0,v=0,col=8,lty=3) β=pi*sin(α) seg(0,-R*sin(α)+R*1i*cos(α)) seg(0, R*sin(α)+R*1i*cos(α)) # seg(-R*sin(α)+R*1i*cos(α),R*sin(α)+R*1i*cos(α)) seg(0,-R*sin(β)+R*1i*cos(β),lty=2) seg(0, R*sin(β)+R*1i*cos(β),lty=2) pt(R*0.2*(-sin(α/2)+1i*cos(α/2)),'α') ; pt(R*0.2*(sin(α/2)+1i*cos(α/2)),'α') alpha=seq(pi/2-α,pi/2,0.01) lines(0.18*R*cos(alpha),0.18*R*sin(alpha),col=8) alpha=seq(pi/2,pi/2+α,0.01) lines(0.20*R*cos(alpha),0.20*R*sin(alpha),col=8) pt(R*0.3*(-sin(β/2)+1i*cos(β/2)),'β')　; pt(R*0.3*(sin(β/2)+1i*cos(β/2)),'β') beta=seq(pi/2,pi/2+β,0.01) lines(0.3*R*cos(beta),0.3*R*sin(beta),col=8) beta=seq(pi/2-β,pi/2,0.01) lines(0.28*R*cos(beta),0.28*R*sin(beta),col=8) Beta=seq(pi/2-β,pi/2+β,0.01) lines(R*cos(Beta),R*sin(Beta),lty=2) pt(-0.025i*R,'O') 441 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:25.28 ID:Fonqs1WQ.net] p=0.7*R;q=0.3*R A=p+1i*q ; pt(A,'A(p,q)') seg(A,0,col=8) OA=abs(A-0) (θ=atan(q/p)) ; Arg(A) pt(0.1*OA*cos(θ/2)+1i*0.1*OA*sin(θ/2),'θ') th=seq(0,θ,0.01) lines(0.2*OA*cos(th),0.2*OA*sin(th),col=8) th=seq(pi/2-β,pi/2+β,0.01) lines(OA*cos(th),OA*sin(th),col=8) B=OA*1i ; pt(B,'B',cex=1.2) C=OA*cos(pi/2-β)+1i*OA*sin(pi/2-β) ; pt(C,'C') (rdash=OA*β/pi) # ⌒BC＝πｒ' where β = pi*sin(α), then rdash=OA*sin(α) cir(0,OA+rdash,rdash,col=8) D=1i*(OA+rdash) ; pt(D,'D') th=seq(θ,pi/2,0.1) lines(OA*cos(th),OA*sin(th),col=2,lwd=2) # arc(BA)＝arc(BE) OA*(pi/2-θ)=rdash*δ δ=OA*(pi/2-θ)/rdash # OA*(pi/2-θ)/OA*sin(α) = 442 名前： (pi/2-θ)/sin(α) th=seq(-pi/2,-pi/2+δ,0.01) lines(rdash*cos(th),rdash*sin(th)+(OA+rdash),lwd=2,col=4) lines(0.2*rdash*cos(th),0.2*rdash*sin(th)+(OA+rdash),col=8) E=rdash*sin(δ)+1i*(rdash*(1-cos(δ))+OA) ; pt(E,'E') seg(D,E,col=8) pt((D+E)/2,'r\'') pt(0.2*rdash*cos(-pi/2+δ/2)+1i*0.2*rdash*sin(-pi/2+δ/2)+D,'δ') } opened(40*pi/180) [] [ここ壊れてます] 443 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:29.83 ID:Fonqs1WQ.net] oncone <- function(p,q,α=40*pi/180){ # (p,q) 展開図上の座標、頂点の角度=２α OA=sqrt(p^2+q^2) θ=Arg(p+1i*q) β=pi*sin(α) # π*r=R*β ; r=R*sin(α) rdash=OA*sin(α) # r'== OA*β/π, r'*π == OA*β : hemi-circle==arc(B-c) δ=(pi/2-θ)/sin(α) # r'*δ == OA*(π/2-θ) ; δ == OA*(π/2-θ)/r' 　 x=rdash*sin(δ) # Re(E) y=rdash/tan(α) # tan(α)=r'/y z=rdash-rdash*cos(δ) # IM(E-B) ; rdash+rdash(cos(π-δ)) c(x=x,y=y,z=z) } onCone=Vectorize(oncone) 444 名前：卵の名無しさん mailto:sage [2020/08/08(土) 18:37:46.52 ID:Fonqs1WQ.net] oncone <- function(p,q,α=40*pi/180){ # (p,q) 展開図上の座標、頂点の角度=２α OA=sqrt(p^2+q^2) θ=Arg(p+1i*q) β=pi*sin(α) # π*r=R*β ; r=R*sin(α) rdash=OA*sin(α) # r'== OA*β/π, r'*π == OA*β : hemi-circle==arc(B-c) δ=(pi/2-θ)/sin(α) # r'*δ == OA*(π/2-θ) ; δ == OA*(π/2-θ)/r' 　 x=rdash*sin(δ) # Re(E) y=rdash/tan(α) # tan(α)=r'/y z=rdash-rdash*cos(δ) # IM(E-B) ; rdash+rdash(cos(π-δ)) c(x=x,y=y,z=z) } 445 名前：卵の名無しさん mailto:sage [2020/08/08(土) 20:21:06 ID:Fonqs1WQ.net] ド底辺シリツ医には解けないであろう問題。 https://i.imgur.com/iBRWjep.jpg プログラムして２０度以外でも答がでるようにしてみた。 intsect <- function(a,b,c,d){ a1=Re(a) ; a2=Im(a) b1=Re(b) ; b2=Im(b) p=(a2-b2)/(a1-b1) c1=Re(c) ; c2=Im(c) d1=Re(d) ; d2=Im(d) q=(c2-d2)/(c1-d1) if(p==q) return(NA) else{ x= ((p*a1 - a2) - (q*c1 - c2))/ (p-q) y= p*x - ( p*a1 - a2) x + 1i*y } } foo <- function(N20=20){ plot(NULL,type='n',xlim=c(0,2),ylim=c(0,2),asp=1,ann=F) 446 名前：卵の名無しさん mailto:sage [2020/08/08(土) 20:21:11 ID:Fonqs1WQ.net] u=pi/180 A=cos(N20*u)+1i*sin(N20*u) ; pt(A,'A') seg(0,A) B=cos(2*N20*u)+1i*sin(2*N20*u) ; pt(B,'B') seg(0,B) seg(A,B) abline(h=0,col=8) a=Arg(A-B)/u+N20 f <- function(x) tan(a*u)*(x-Re(B))+Im(B) curve(f(x),add=T,col=8) C=intsect(0i,1+0i,B,1i*f(0)) ; pt(C,'C') seg(C,A) (Arg(A-C)-Arg(B-C))/u } foo=Vectorize(foo) x=foo(1:35) data.frame(angle=1:35,x=x) 447 名前：卵の名無しさん mailto:sage [2020/08/08(土) 20:40:27.27 ID:Fonqs1WQ.net] >>413 https://i.imgur.com/Nq1xRAc.png atanだと返り値が-pi/2,pi/2なのでうまくいかなかった。 偏角を返すArgにしてようやくデバッグできた。 448 名前：卵の名無しさん mailto:sage [2020/08/09(日) 01:00:48 ID:adohTave.net] x = (a^2 - b^2 + c^2)/(2 a), y = sqrt(c^2 - (a^2 - b^2 + c^2)^2/(4 a^2)) 449 名前：卵の名無しさん mailto:sage [2020/08/09(日) 01:01:36 ID:adohTave.net] x^2+y^2=c^2, (x-a)^2+y^2=b^2 450 名前：卵の名無しさん mailto:sage [2020/08/09(日) 06:58:14 ID:MrezVQaF.net] https://i.imgur.com/3f7D3fW.png 451 名前：卵の名無しさん mailto:sage [2020/08/09(日) 08:18:10 ID:adohTave.net] https://i.imgur.com/Lhul7zI.jpg 452 名前：卵の名無しさん mailto:sage [2020/08/09(日) 08:43:27 ID:MrezVQaF.net] 、遅れて重症者に勢いついてきた・・・ https://youtu.be/ROuYug5gTZk 【8/9(日) 0時現在】動くチャートでみる日本の感染拡大の軌跡 453 名前：卵の名無しさん mailto:sage [2020/08/09(日) 09:32:27 ID:MrezVQaF.net] 売国してんのは他ならぬ自称保守層（笑）だからな IR汚職で中国から献金貰って逮捕されたのは靖国にも参拝する自民議員と維新だろ 竹島の日削除したのも自民党 北方領土献上したのも自民党 尖閣諸島で何もしないのも自民党 454 名前：卵の名無しさん mailto:sage [2020/08/09(日) 15:57:28 ID:MrezVQaF.net] # draw arc A:center theta:angle Arc <- function(A,B,theta,...){ th0=Arg(B-A) th1=th0+theta th=seq(th0,th1,0.01) r=abs(B-A) z=r*cos(th)+1i*r*sin(th)+A lines(z,...) } source('toolmini.R') plot(NULL,type='n',xlim=c(0,2),ylim=c(0,2),asp=1,ann=F) p=ngon(7,col=0,digit=F,axes=F) r=abs(p[7]-p[3]) th=BAC(p[4],p[7],p[3])[1] for(i in 1:4) Arc(p[i],p[i+3],th,lwd=2) for(i in 5:7) Arc(p[i],p[(i+3)%%7],th,lwd=2) 455 名前：卵の名無しさん mailto:sage [2020/08/09(日) 16:03:56 ID:MrezVQaF.net] 50ペンス硬貨の輪郭 https://i.imgur.com/hEVsdnX.png 456 名前：卵の名無しさん mailto:sage [2020/08/09(日) 16:10:13 ID:MrezVQaF.net] HK 2:18 / 2:34 Prince Rupert’s cube live demonstration https://www.youtube.com/watch?v=nWPdpqUEfE0 457 名前：卵の名無しさん mailto:sage [2020/08/09(日) 16:11:59 ID:MrezVQaF.net] https://www.youtube.com/watch?v=ua4LadxA6 458 名前：K8 [] [ここ壊れてます] 459 名前：卵の名無しさん mailto:sage [2020/08/09(日) 21:58:13 ID:nZS47/5e.net] >>414 清書 https://i.imgur.com/iv18hkk.png 460 名前：卵の名無しさん mailto:sage [2020/08/10(月) 17:01:12 ID:hbIPQYoI.net] これが医師国家試験問題とは!　単なる比例計算。中学入試より易しい。 https://i.imgur.com/aNifrIQ.jpg 中学入試 Xの角度は？（立体ではなくて平面図） https://i.imgur.com/iv18hkk.png ド底辺シリツ医のこれが現実 １次方程式もできないド底辺シリツ医大卒の記録 imagizer.imageshack.com/img923/2715/RosCsf.jpg 実際、算数の掛け算すら怪しいシリツ医がこういう事故を起こしている。 i.imgur.com/ArPaux9.png 461 名前：卵の名無しさん mailto:sage [2020/08/10(月) 19:52:18.35 ID:v42Q8Nti.net] カージオイドの面積だけなら、極形式のままでモンテカルロで計算できる。 # r=func(θ)を描く Draw <- function(func,th=seq(-pi,pi,length=500),...){ r=func(th) x=r*cos(th) y=r*sin(th) plot(x,y,bty='l',type='l', ann=F,lwd=2,...) invisible(list(x=x,y=y)) } Draw(function(th) 1 + cos(th),asp=1,col='red') abline(h=0,v=0,lty=3) N=1e8 x=runif(N,-0.25,2) y=runif(N,-1.3,1.3) s=diff(range(x))*diff(range(y)) r=sqrt(x^2+y^2) th=atan2(y,x) # Arg(x+1i*y) s*mean(r<1+cos(th)) ; 3/2*pi 462 名前：卵の名無しさん mailto:sage [2020/08/11(火) 11:46:40 ID:HbOL/zrf.net] ゆるゆるになったハサミを一発で直す方法 deeepstream.com/2017/09/08/scissors/ こんど懇意な女医にもやってみよう。 463 名前：卵の名無しさん mailto:sage [2020/08/11(火) 18:23:17 ID:CemoEfFW.net] N=9 str='floor(x)+' for (i in 2:(N-1)) { str=c(str,paste0('floor(',i,'*x)+',collapse='')) } str=c(str,paste0('floor(',N,'*x)')) str=paste0(str,collapse='') str f <- function(n){ m=sum(1:N)-1 x=n/m eval(str2lang(str)) - m*x } 464 名前：卵の名無しさん [2020/08/11(火) 21:25:38.81 ID:S1UttbZ6.net] 関西医科 465 名前：卵の名無しさん mailto:sage [2020/08/12(水) 06:44:11 ID:VN6SxAqD.net] ジュースディスペンサー 例　https://event21.co.jp/pic/mat_154.png に１００％天然果汁が１０L入っていて常に撹拌されている。 すなわち、濃度はいつも均一とする設定。 コックにトラブルがあって１分間に１０ｍLずつ漏れている。 それを補うために１分間に１０ｍLの天然水を補っているとする。 ５０％天然果汁のジュースになるのは何分後か？ (1-0.001*t)^n=0.5 lim[t→0] t*log(0.5)/log(1-0.001t) 466 名前：卵の名無しさん mailto:sage [2020/08/12(水) 09:55:50 ID:wqXElAn2.net] 補充が５mLで１分毎に間欠的行われるとすると v(0)=10000 v(1)=10000-10+5 v(t)=10000-5*t c(0)=1 c(1)=9990/9995=c(0)*(v(0)-10)/v(1) c(2)=c(1)*(v(1)-10)/v(2) c(t+1)=c(t)*(v(t)-10)/v(t+1) =c(t)*(10000-5*t-10)/(10000-5(t+1)) 467 名前：卵の名無しさん mailto:sage [2020/08/12(水) 11:16:47 ID:KAV/NFrL.net] V(0)=10000 V(1)=10000-10+5 V(t)=10000-5*t C(0)=1 C(1)=9990/9995=C(0)*(V(0)-10)/V(1) C(2)=C(1)*(V(1)-10)/V(2) C(t+1)=C(t)*(V(t)-10)/V(t+1) C=numeric 468 名前：() C[1]=9990/9995 for(t in 1:1000){ C[t+1]=C[t]*(10000-5*t-10)/(10000-5*(t+1)) } C [] [ここ壊れてます] 469 名前：卵の名無しさん mailto:sage [2020/08/12(水) 11:18:02 ID:KAV/NFrL.net] V(0)=10000 V(1)=10000-10+5 V(t)=10000-5*t C(0)=1 C(1)=9990/9995=C(0)*(V(0)-10)/V(1) C(2)=C(1)*(V(1)-10)/V(2) C(t+1)=C(t)*(V(t)-10)/V(t+1) C=numeric() C[1]=9990/9995 for(t in 1:1000){ C[t+1]=C[t]*(10000-5*t-10)/(10000-5*(t+1)) } C 470 名前：卵の名無しさん mailto:sage [2020/08/12(水) 11:18:34 ID:D0LlG3yP.net] V(0)=10000 V(1)=10000-10+5 V(t)=10000-5*t C(0)=1 C(1)=9990/9995=C(0)*(V(0)-10)/V(1) C(2)=C(1)*(V(1)-10)/V(2) C(t+1)=C(t)*(V(t)-10)/V(t+1) C=numeric() C[1]=9990/9995 for(t in 1:1000){ C[t+1]=C[t]*(10000-5*t-10)/(10000-5*(t+1)) } C 471 名前：卵の名無しさん mailto:sage [2020/08/12(水) 13:57:38.70 ID:6PNOPM0M.net] これみてこんな問題を思いついた。 カージオイドr=1+cosθ https://upload.wikimedia.org/wikipedia/commons/thumb/3/35/Cardioid.PNG/200px-Cardioid.PNG で囲まれた面をｙ軸の周りに回転させてできる立体の体積をVとする。直線x=aを軸に回転させてできる立体の体積がV/2であるようなaの値はいくらか？ D(expression((1+cos(θ))*sin(θ)),'θ') f60_90 <- function(th) pi*((1+cos(th))*cos(th))^2*(-sin(th)^2+cos(th)^2+cos(th)) (vb=integrate(f60_90,0,pi/3)$value) (vg=integrate(f60_90,pi/2,pi/3)$value) (vb - vg)*2 > (vb - vg)*2 [1] 24.90338 472 名前：卵の名無しさん mailto:sage [2020/08/12(水) 15:51:43 ID:VN6SxAqD.net] １分毎に間欠的に5mLの水を補充するモデルで考えた。 V(t):t分後のジュースの総量 C(t):をt分後の濃度 V(0)=10000 V(1)=10000-10+5 V(t)=10000-5*t C(0)=1 C(1)=9990/9995=C(0)*(V(0)-10)/V(1) C(2)=C(1)*(V(1)-10)/V(2) C(t+1)=C(t)*(V(t)-10)/V(t+1) 473 名前：卵の名無しさん mailto:sage [2020/08/12(水) 15:55:28 ID:6PNOPM0M.net] １分毎に間欠的に5mLの水を補充するモデルで考えた。 V(t):t分後のジュースの総量 C(t):をt分後の濃度 V(0)=10000 V(1)=10000-10+5 V(t)=10000-5*t C(0)=1 C(1)=9990/9995=C(0)*(V(0)-10)/V(1) C(2)=C(1)*(V(1)-10)/V(2) C(t+1)=C(t)*(V(t)-10)/V(t+1)　=　C(t)*(10000-5*t-10)/(10000-5*(t+1)) 474 名前：卵の名無しさん mailto:sage [2020/08/12(水) 18:53:29 ID:NAeP5dUm.net] ヤラセの質疑応答の原稿を晒してしまっている。 https://i.imgur.com/htSIaZp.png 475 名前：卵の名無しさん mailto:sage [2020/08/12(水) 18:59:33.44 ID:5KbzYiPc.net] ジュースディスペンサー 例　https://event21.co.jp/pic/mat_154.png に１００％天然果汁が１０L入っていて常に撹拌されている。 すなわち、濃度はいつも均一。 コックにトラブルがあって１分間に１０ｍLずつジュースが漏れている。 それを補うために１分毎に間欠的に５ｍLの天然水を補っているとする。 ５０％天然果汁のジュースになるのは何分後か？そのときのジュースの総量は？ 476 名前：卵の名無しさん mailto:sage [2020/08/12(水) 19:00:34.14 ID:5KbzYiPc.net] ジュースディスペンサー 例　https://event21.co.jp/pic/mat_154.png に１００％天然果汁が１０L入っていて常に撹拌されている。 すなわち、濃度はいつも均一。 コックにトラブルがあって１分間に１０ｍLずつジュースが漏れている。 それを補うために１分毎に間欠的に５ｍLの天然水を補っているとする。 ５０％天然果汁のジュースになるのは何分後か？そのときのジュースの総量は？ 477 名前：卵の名無しさん mailto:sage [2020/08/12(水) 20:51:24 ID:QYu4Ga5v.net] とりあえず、作図（n=3）のとき。 https://i.imgur.com/l4d7V8x.png 478 名前：卵の名無しさん mailto:sage [2020/08/12(水) 21:10:36 ID:QYu4Ga5v.net] #Recall二題 f <- function(...){ x=c(...) if(length(x) == 0) return(1) abs(x[1]) * Recall(x[-1]) } f(1:100) f <- function(...){ v=c(...) n=length(v) sub<-function(n){ if(n==0) return(1) else abs(v[n])*Recall(n-1) } sub(n) } f(1:100) 479 名前：卵の名無しさん mailto:sage [2020/08/13(木) 07:39:16 ID:g+JSHuvd.net] 世界の平均年収(円) 1995年→2005年→2015年 アメリカ:460→546→658 ドイツ:251→522→587 ポーランド:53→137→312 フランス:226→533→568 韓国:77→219→385 日本:445→440→415 世界中で日本だけ25年前から下がり続け、欧州諸国にはとっくに追い抜かされ差を広げられ続け、 韓国にすら追いつかれている(所得中央値は韓国以下) この25年間以上、世界中で貧しくなったのは、【日本だけ】 小泉・竹中が築き上げた非正規雇用天国の日本は、貧困層激増し、これからも未婚率&少子化は大促進する 480 名前：卵の名無しさん mailto:sage [2020/08/13(木) 07:44:57.49 ID:g+JSHuvd.net] 「高収入」が「1000万円以上」とされてたのはバブルの頃既に。 それから40年たっても未だに高収入が1000万円以上。 一方、諸外国では順調に給料をのばしたので、日本人の給料が どんどん安い側に落ちてきている。 典型的なのが自動車で、昔は600万円程度だったクルマが今は 千何百万円とかになってるが日本人の給料はほとんど変わらないので もの凄い高嶺の花になってしまった。昔は200万円程度だった日本車が 今は３百数十万くらいで「高くて買えない」になってる。 481 名前：卵の名無しさん mailto:sage [2020/08/13(木) 17:56:09.00 ID:O ] [ここ壊れてます] 482 名前：P0ThbHs.net mailto: 熊に襲われて死ぬのは年間1人か2人だから、熊の対策なんていらないな。 暴力団の抗争に巻き込まれて死ぬ人も数人出ればいいとこだし、特に問題ない。 地下鉄サリン事件での死者は14人くらいだから。 安心して経済活動を行ってくれればいい [] [ここ壊れてます]

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef