퀴즈 맞추고 5000원 편의점 상품권 받아가세요!

글씨체가...큼큼...

잘 안보이나요?

자세히 보니 보여요!

일단 문과는 거르시는 겁니까
e가 있네

ㄴㄴ 여기서는 변수에요

순서 밝혀야 되나요?

번호로 써도 되요

아니아니 컴퓨터로 랜덤 한 1만번 돌려서
그중에 제일 큰거 고르려고

ㅋㅋㅋㅋㅋ수법 ㄴㄴ

y=c(-0.42,-2.55,-2.1,-0.018,-0.186,0.228,2.694,2.658,-2.628,-0.318,0.036,-0.372)

w=1:1000000
x1=1:1000000
x2=1:1000000
x3=1:1000000
x4=1:1000000
x5=1:1000000
x6=1:1000000
x7=1:1000000
x8=1:1000000
x9=1:1000000
x10=1:1000000
x11=1:1000000
x12=1:1000000
func<-function(g,h,i,j){
t<-1/2*g*j^2+h*j-1/2*g*i^2-h*i
print(t)
}
for (i in 1:1000000){
sample(y)
z=sample(y)
w[i]=((z[1]^2+z[2]^2)/(z[3]^z[4])+z[5]^(-z[6])*func(z[7],z[8],z[9],z[10]))/z[11]+z[12]
x1[i]=z[1]
x2[i]=z[2]
x3[i]=z[3]
x4[i]=z[4]
x5[i]=z[5]
x6[i]=z[6]
x7[i]=z[7]
x8[i]=z[8]
x9[i]=z[9]
x10[i]=z[10]
x11[i]=z[11]
x12[i]=z[12]
}



i=1
max=1
while(i<1000001){
if (is.nan(w[i])==TRUE){(i=i+1)}
else if (w[i]>max){
max=w[i]
m=i
} else {(i=i+1)
}
}

x1[m]
x2[m]
x3[m]
x4[m]
x5[m]
x6[m]
x7[m]
x8[m]
x9[m]
x10[m]
x11[m]
x12[m]

100만번의 랜덤시행 중 허수가 아닌 값은 약 9만여 개였고, 그 중 최댓값은 6548974.0440063으로 나왔습니다
이 때 순서는
-0.372/-2.55/0.228/-0.42/0.036/2.964/-2.628/-2.1/-0.186/2.658/-0.018/-0.318

자 이제 상품권 줘요ㅋㅋㅋㅋ