<div style="text-align:left;"><img width="245" height="100" src="http://thimg.todayhumor.co.kr/upfile/201505/1431259526jnkcoroWHn.png" alt="제목 없음.png" style="border:medium none;"></div><br>이 식에서 람다가 0부터 2까지 0.01씩 증가한 값을 넣어서 나온 W_b 값을 구해야 되는데요....<br><br>C_1 은 x, C_2 는 y, T는 z 로 대입하고 풀었어요<br><br>DO 구문으로 반복해야했기 때문에 i를 0과 200의 숫자를 줬고<br><br>ir=i*0.01로 하여 실제 대입하는 값을 맞춰줬어요<br><br><br><br>program hw1<br> implicit none<br> integer::i<br> real::x,y,z,result1,ir<br> ! CHARACTER(10) :: filename="hw1.dat"<br><br> x=3.742E+08<br> y=1.4388E+04<br> z=27<br><br> ! OPEN(UNIT=2,FILE=filename,STATUS="NEW",ACTION="WRITE")<br><br> Do i = 0, 200<br> ir = i*0.01<br> result1 = x /(ir**5*(exp(y/(ir*z))-1))<br><br> write(*,*) ir, result1<br> end do<br><br> ! CLOSE(2)<br><br>End program hw1<br><br><br>이렇게 코드를 짰고 이것도 조교님이 도와주신거였거든요...<br><br>근데 결과가 어떻게 나왔나면<br><br><br> ir result1<br><br> 0.000000 NaN<br> 9.9999998E-03 0.000000<br> 2.0000000E-02 0.000000<br> 2.9999999E-02 0.000000<br> 3.9999999E-02 0.000000<br> 4.9999997E-02 0.000000<br> 5.9999999E-02 0.000000<br> 7.0000000E-02 0.000000<br> 7.9999998E-02 0.000000<br> 8.9999996E-02 0.000000<br> 9.9999994E-02 0.000000<br> 0.1100000 0.000000<br> 0.1200000 0.000000<br> 0.1300000 0.000000<br> 0.1400000 0.000000<br> 0.1500000 0.000000<br> 0.1600000 0.000000<br> 0.1700000 0.000000<br> .....<br><br>이런식으로 값이 전부 0이 놔왔어요<br><br>저 식에서 exp(y/(ir*z)) 이 부분의 값이 10의 100승을 넘을 정도로 큰 값이 나오긴 하는데<br><br>전체 식에서도 계산이 안 될 정도일까요...?<br><br>정말 답답해 죽겠습니다 ㅠㅠㅠ<br><br><br><br>
인터넷에 닭떡국을 치면....!!
.
.
.
.
.
.
.
.
.
....레시피가 나온다 우왕ㅋ굳ㅋ
<img src="http://thimg.todayhumor.co.kr/upfile/201307/1375013290qInw1txN43XwOCwWFb.jpg" alt="1375013290qInw1txN43XwOCwWFb.jpg">
댓글 분란 또는 분쟁 때문에 전체 댓글이 블라인드 처리되었습니다.