つれづれなるままに

_ [日記] カウンター

183人でした。

ふと思ったのですけど、もしかしてPixiv経由でここに来てるのでしょうか？？

でも、そんなにあっちもアクセスがあるとも思えないのですが。

アクセスログを見たら、案外と検索で来てる人がいるみたいだし。

クイックで見たから、エンコードされた検索キーワードがなんだったのかわからなかったのですが。。

_ [tDiary] tDiary v4.0.4

アップデートが来ていました。

マニュアルにはrubyのパスを指定する必要はない、とあるのですが、現在lolipopのサーバーでは単にrubyというと1.8系列のが起動されるんですよね。

今、tDiaryは1.9系列じゃないと動かないので、index.rbとupdate.rbの先頭の一行を書き換えてやる必要があります。

毎回書き換えないといけないのはめんどいので、早く1.9系列がデフォになって欲しいというところのもの。

_ [アニメ][カゲプロ] daze

OPのdazeのfullバージョンが出てますね。

Sorry, sm23662565 was deleted.

動画はしづさんみたいですね。

こうやって聞きなおしてみると、やっぱりらしい曲だなぁ。

_ [日記] 時間がない

本当は、ちょろっと色々と書きたいことがあったのですけど、それなりに時間をかけないとできないから、今日は断念。

また今度。

_ [PC] 楕円とFortran

せっかくだからFortran版だけ書いておきますか。

 
program elipse
implicit none
integer(kind=4):: i,j
real(kind=8)   :: pi
real(kind=8)   :: theta
real(kind=8)   :: rotmat(2,2)
real(kind=8)   :: ax(2)
real(kind=8)   :: x(2)
real(kind=8)   :: xdash(2)
real(kind=8)   :: delta
real(kind=8)   :: angle

pi=acos(-1.d0)
theta=30.d0*180.d0/pi
ax(1)=10.d0
ax(2)=7.d0
rotmat(1,1)=cos(theta)
rotmat(1,2)=sin(theta)
rotmat(2,1)=-sin(theta)
rotmat(2,2)=cos(theta)
delta=2.d0*pi/80.d0
open(1,file="temp.txt")
do i=1,80
  angle=doble(i)*delta
  x(1)=ax(1)*cos(angle)
  x(2)=ax(2)*sin(angle)
  do j=1,2
    xdash(j)=rotmat(j,1)*x(1)+rotmat(j,2)*x(2)
  end do
  write(2,′(f24.17,",",f24.17)′) xdash(1:2)
end do
close(1)
end program 

ほとんど宣言文ですね。

implicit none宣言をしなかったら、配列宣言だけすればいいから、この程度のプログラムだったら楽にできますね。