Program report11implicit nonecharacter(len=50):: matrixfileinteger:: status=0, nreal(8):: rreal(8), dimension(:,:), allocatable:: Matrix, Inv_Matrix, Identityinteger:: i, j, row write(*,*) "Enter the file name of matrix"read(*,*) matrixfil…

国際コースに関する記事は移行しました(2020/02/13) こちらへ yuma2012.hateblo.jp http://yuma2012.hateblo.jp/entry/2020/02/13/042247 眠い、前文省略します。 もともと文がうまくないんだから、ここで面白さを求めても駄目だわ。 今はインドネシア人の友…

加筆: Jacobi メソッドとGauss-Seidelの中でわざわざTempを使ってるのはA(i:j)の形で一々使うと、メモリ効率が悪い(どっかに書いてあった)ので、置き換えただけです。 I used Temp in two sessions Jacobi and Gauss-Seidel method in order to avoid the si…

program sele implicit none integer,parameter::max=100000 integer::i,j,n=0,status=0 integer:: a(max),b(max),d !Here, open two files and named each of them like 10 and 20. open(10,file="unsort.txt");open(20,file="sort.txt") !Do loop until th…

program report_7implicit noneinteger ::a,x,y,z,i,n=0logical primewrite(*,*) 'Enter the limit of hypotenuse'read(*,*) ado z=1,a do y=1,a-1 do x= 1, a-2 if (x**2+y**2==z**2) then if (x

program midterm implicit none real:: Ax=0.0, Ay=0.0, Mxl=0.0, Mxr=0.0, Myl=0.0, Myr=0.0, SumA=0.0, SumMx=0.0, SumMy=0.0,xc=0.0,yc=0.0 integer:: i=0, N print*, "Inout N here" read(*,*) N do i= 1,N-1 Ax = Ax + 1 - real(i)/real(N) Ay = Ay + s…

!This program was change on November 18. program report7 implicit none real:: b integer:: a,c,i,j,k,N,t=0 logical judge print*, "Enter the limit of hypotenuse" read(*,*) N print*, "The following numbers are all primitive Pythagorean triple…

program repoimplicit nonereal(8)::up,xold=0.0,xnew !Up is border. Other two are terms of series.character(16)::e !This e will be used to say conclusion correctly.integer::i=0 !counter print*,"Assign the numerical tolerance (e.g. 1D-6)"read…

program isbnimplicit nonelogical judgecharacter(len=10)::ainteger::i,b,h,s=0,t,j,y,q,lprint*, 'Type in a 10-digit ISBN marked with "?" for the missing digit.'read*, ajudge = .false. !This judge will be used to check whether including "?" o…

転学資格照会の結果が返ってきました。 京大には転学部・転学科制度があります。このシステムは総合大学ならではのものでして、理転文転が制度上は可能です。この画像は毎年の転学部・転学科の様子をデータ化したものです。見方は 転学許可者（人）/転学希望…

久しぶりに更新しました。 今日から大学では期末テストです。 僕はもう最低限単位取ったからいいかなと思って投げやりな気持ちでこれを書いています。 今まで書いた京大入試についての記事で訂正しないとまずいところを見つけたのでここで書いておこうと思い…

晴れが結構長い間つづいたので、もう雨は降らないのかと油断してましたが、空梅雨と言われてもやっぱり梅雨だけあって、７月になってから不快指数ガン上がりですね。俺は元気です。デニムのパンツにカビもはやしていません。 こんにちは。たけです。 今回は…

なぜか二次試験の結果を載せていなかったので載せておきます。 僕は第一志望が工学部情報学科で、第二志望が工学部地球工学科でした。工学部は6学科中第2志望まで、農学部は6学科中第6志望まで選ぶことができます。 もちろんセンターの比重や２次の比重も学…

高2・高3はそろそろ大学の説明会に足を運ぶ時期ですね。先日、京大の特色入試についてのお知らせを目にしたので少しばかり知ってる情報を書きたいと思います。 ちなみに僕は特色入試で入ったわけではありません。一般合格です...が、開成高校から合格した5人…

こんにちは、たけです。 五浪生の回顧録の第一話 (前回はプロローグ的扱い) です。 受験生活について書くということなので、当然現役時代の話から始めていきます。 高校3年の夏、実力はないけども己のポテンシャルだけはとりあえず同級生たちにみせつけてお…

今回は、大学生活について書こうと思います。 高校時代の僕は大学生活について全く知識がなく、漠然とした想像をするだけでした。ここでは具体的にどんな生活を送っているのかを紹介し、少しでも参考になればいいなと思います。 といっても、僕は少し特殊な…

6/17(土) 中学(公立中)の頃の同級生がたまたま京都に来てたので、4年ぶりに再会しました。 彼はアメリカの大学に進学するそうです。 この大学がとてもすごい。おそらく殆どの人が「知らね」と言うであろう無名大学です(日本では)が、なんとその学校、授業の…

今日は予備校について書きたいと思います。 が、その前に前回は外部模試しか貼らなかったので、後輩向けに実力テストの成績を書きたいと思います。常にこんな成績でした。 詳細の成績表を実家に置いてきてしまったので、Twitterで見つけたところだけ貼るとこ…

自分の受験記書くより先にたけよしが記事を送ってくれたので、さっそく載せたいと思います。若干まじめなスタートです。 著：たけ 受験生活について書くことになりました。他の人より少しだけ受験生活が長くなったので、多少は書くことがあるだろうというこ…

今日からのテーマは「受験期の生活」です。 残念ながら僕は、受験期の生活が1年しかないため語れることが殆どありません。 そこで、大学受験の玄人を召喚することにしました。次回以降、5年間の浪人経験を持つクラスメイト「たけよし(23)」が常人よりも若干…