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

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
352:卵の名無しさん 20/07/31 10:48:32.90 1FDa12jC.net https://i.imgur.com/qLtMpx9.png "正弦回転体のワイングラスにストローを刺して半分飲む" x=z=seq(-pi,pi,0.01) f<-function(x,z=0) -cos(sqrt(x^2+z^2)) f=Vectorize(f) curve(f(x),-pi,pi,ann=F,bty='n',axes=F) segments(x,f(x),x,1,col='orange') lines(x,f(x),lwd=2) juice <- function(h){ # v <- function(x)pi*( 2*pi*sqrt(1-x^2)-2*(sqrt(1-x^2)+pi*x)*acos(x) # +(pi^2-2)*x+x*(acos(x)^2) ) # v(-1+h) - v(-1) , v(-1) = 2*pi # v(h-1) - 2*pi pi*( 2*pi*sqrt(1- (h-1)^2)-2*(sqrt(1- (h-1)^2)+pi* (h-1))*acos( (h-1)) +(pi^2-2)* (h-1)+ (h-1)*(acos( (h-1))^2) ) -2*pi } juice(2) ; pi*(pi^2-4) # π(π^2-4) uniroot( function(h) juice(h)/juice(2) - 1/2, c(0,2), tol = 1e-12)$root/2 353:卵の名無しさん 20/07/31 13:52:37 WoCCDCi1.net library(tidyverse) 6 %>% rerun(1:2) %>% expand.grid '%&%' <- function(x,y) paste0(x,y) eval(str2lang("expand.grid(" %&% paste0(rep("1:2",6),collapse=',') %&% ")")) expand.grid(replicate(6,1:2,simplify = FALSE)) rerun(6,1:2) 10 %>% rerun(rnorm(5))

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch