自作時計

categoryエレクトーン

さくらさくら 10級 右手

trackback0  comment2



category高田みづえ

大阪場所祝賀会20120325

trackback0  comment0
松ケ根部屋大阪場所千秋楽祝賀会に行ってきました。おかみさん(みづえさん)は3曲歌ってくれました。社交性がなく、口下手なので、ろくに話もできませんでしたが、楽しかったです。

20120325大阪場所

categoryFORTRAN覚書

SELECT CASE

trackback0  comment0
プログラミング覚書 Fortran-006

SELECT CASE
----------------------------------------------------------------------

INTEGER Month, Days
PRINT *, "何月か入力して下さい。:"
READ *, Month
!!Days = 31 ! デバック用
SELECT CASE(Month)
CASE(4,6,9,11)
Days=30
CASE(1,3,5,7:8,10,12)
Days=31
CASE(2)
Days=28
!Code to test for a leap year
CASE DEFAULT
!Code to flag an error
PRINT *, "1から12を入力して下さい。"
Days=-1
END SELECT
PRINT "(i3, a, i3, a)", Month, "月は", Days, "日までです。"
END

----------------------------------------------------------------------
category徒然に想うこと

新聞配達

trackback0  comment0
 中学3年の時、新聞配達のアルバイトを6カ月だけしました。まだ部活も引退していない時だったので、朝が早く眠たくて、授業中に居眠りしていまいました。
 高校の時は、ジーパンと学生服を売っている服屋さんでアルバイトしました。時給は300円なかったと思います。
categoryFORTRAN覚書

IF

trackback0  comment0
プログラミング覚書 Fortran-005

IF
----------------------------------------------------------------------

REAL x, y ! 特に必要はない
READ *, x
!x=16.0 ! デバッグ用

IF (x>0.0) THEN
y=x
ELSE
y=0.0
END IF

PRINT *, y
END

----------------------------------------------------------------------
categoryFORTRAN覚書

書式付出力

trackback0  comment0
プログラミング覚書 Fortran-004

書式付出力
----------------------------------------------------------------------

PRINT "( a, i2, 4x,a, f6.2,4x,a, e10.3)", &
"Integer:",77,"Float:",77.0,"Exponent:",77.0
END
! Integer:77 Float: 77.00 Exponent: 0.770E+02

----------------------------------------------------------------------
category躁鬱病・仕事

欠勤2日目

trackback0  comment0
 昨夜は2時間しか眠れなかった。出社するのは無理と判断して欠勤した。回復したかに思えたが、やはり不調は続いている。思えば、3年前は、躁状態で、不眠に陥り、それでも気分はハイで妻の制止を振り切り出社し、異常行動を起こし、結局入院し、2ヶ月の入院、6ヶ月の休職となってしまった。今はどちらかといえば、うつ状態が、基調にあるが、一時的に昨日はそう状態にあったと思われる。そう状態が爆発しないのは、やはりリーマス、デパケンR、リスパダールの処方された薬をちゃんと飲んでいるおかげだろうと思う。2年前はハイで、薬なんか要らないと勝手に服薬を止めてしまっていたのが原因だろう。
 今日はゆっくり休養し、明日の出社に備えようと思う。
category卒煙日記

再チャレンジ

trackback0  comment0
 卒煙に再チャレンジする。まずは、目標を手近かに10日とする。浮いた8200円で1万ほどのヘッドホンを買うのが目標だ。長男が3万のウォークマンに続いて1万5千円のヘッドホンを買いやがった。エレクトーンの音が俄然違う。のっぺりと平板的だったのが、豊かに立体的に聴こえる。ノートパソコンVAIOを買うには3ヶ月の禁煙が必要。それより目標を近くに設定しての再チャレンジです。
 体調は昨日までは最悪だったが、有給休暇と欠勤で休養したことで、今日からは大分回復してきた。ネット碁は久々に打って1勝2敗、エレクトーンも久しぶりに弾いてみた。
 週末日曜日には、松ケ根部屋大阪場所千秋楽祝賀会に行くことも楽しみにしている。
categoryFORTRAN覚書

READ

trackback0  comment0
プログラミング覚書 Fortran-003

READ
----------------------------------------------------------------------

INTEGER i,j
READ *,i
j=2*i+3
PRINT *,j
END

----------------------------------------------------------------------
category躁鬱病・仕事

最低・最悪

trackback0  comment0
 今日は、今年度初めての「欠勤」。昨日の11時から今日の3時、約16時間寝ていました。2ヶ月半程、早退はしなかったが、代わりに、2週間に1回の割合で、有給休暇を6,7回取りました。先々週は、主治医の診察、先週は産業医の面談でしたが、産業医にはここ1週間の休み・早退と不調を伝えましたが、「無理はしないことでしすね」とのことでした。発表会は大失敗に終わり、エレクトーンの練習ももう2週間してません。禁煙は3日間が最高です。今は無理でも、いつかは止めようと、禁煙はまだ諦めていません。
 先週末は、木曜11時に早退し(2ヶ月半振り)、金曜は休み、土・日と合わせて、3日半寝込んでいました。3日半の記憶がほとんどありません。
 昨日は親子3人で3流のアクション映画を録画で昼間に笑いながら観たの唯一の楽しい記憶です。
categoryFORTRAN覚書

do

trackback0  comment0
プログラミング覚書 Fortran-002

do
----------------------------------------------------------------------

do i=1,10
print *, i, ' squared is ', i*i
end do
end

----------------------------------------------------------------------
category徒然に想うこと

シャッキと歩こう

trackback0  comment0
 トボトボ・ショボショボと歩いている。前の退院から後、特に職場での歩き方が情けない。歩く速さは人の2分の1・3分の1である。若い頃のように、肩で風を切り、颯爽と歩きたい。
category卒煙日記

吐き気

trackback0  comment0
 チャンピックス飲みながら、タバコを吸うと、吐き気がして、気持ち悪い。
やっぱり、吸うのは止めておこう。
category躁鬱病・仕事

主治医の診察120307

trackback0  comment0
昨日、主治医の診察でした。先生も20才から40才までタバコを吸っており、禁煙して10年以上になると言ってました。親近感が湧いてきました。
category卒煙日記

禁煙3日目達成、4日目早くも挫折

trackback0  comment0
 3日禁煙達成しました。しかし、今目が覚めて、夢遊病のようにコンビニに行き、タバコを買い、1本吸いました。我慢できませんでした。ですが、このまま、元の木阿弥にならず、1本だけで終わらそうと思います。吸ってしまったものは、悔やんでも取り返しが効きません。「禁煙セラピー」などの禁煙本を数冊読んでいます。昨日感じた嫌悪感は本物ではなかったようです。魔が刺したのでしょうか、悔やまれます。禁煙時計はリセットせずに続けて行こうと思います。

ステータス: 契約社員
卒煙日: 2012年 3月 4日(40本-29年)
卒煙からの日数: 0年 0ヶ月 3日 6時間 3分
延びた寿命: 0日と11時間55分
節約できた金額: 2666円(節税分 1718円)
節煙本数: 130本 11.06m ジンベイザメ
category卒煙日記

禁煙2日目ほぼ達成

trackback0  comment0
 禁煙2日目、達成できそうです。不思議なことに、2日吸わないだけで、30年近く吸い続けたタバコに何か嫌悪感のようなものを感じます。吸った時の口や喉のイガイガした感じを思い出すと気持ちが悪くなります。この嫌悪感が本物であることを祈ります。

ステータス: バイト長
卒煙日: 2012年 3月 4日(40本-29年)
卒煙からの日数: 0年 0ヶ月 2日 0時間 51分
延びた寿命: 0日と7時間27分
節約できた金額: 1669円(節税分 1075円)
節煙本数: 81本 6.92m ブガッティ・ロワイヤル41
category卒煙日記

通院6日目、禁煙2日目。

trackback0  comment0
やっと、1日タバコを吸わずに過ごせた。1日中吸いたかった。タバコのことが頭から離れない。タバコを買いに行くと云う誘惑に、ただただ我慢した。タバコの代わりに、4、6時中、電子タバコを吸っていた。電子タバコも行く行くは止めなければと思う。電子タバコを止めるのは、1年位禁煙が続いてからだろう。
 明日(今日)も1日、我慢あるにのみ!!

ステータス: バイト
卒煙日: 2012年 3月 4日(40本-29年)
卒煙からの日数: 0年 0ヶ月 1日 7時間 34分
延びた寿命: 0日と4時間49分
節約できた金額: 1078円(節税分 695円)
節煙本数: 52本 4.47m フェラーリF40
categoryエレクトーン

発表会終了

trackback0  comment0
発表会終了しました。大失敗でした。酷すぎて言葉がありません。


発表会20120304


プログラム
categoryFORTRAN覚書

Frtranで、Hello

trackback0  comment0
プログラミング覚書 Fortran-001

Frtranで、Hello
----------------------------------------------------------------------

print *, 'Hello'
end

----------------------------------------------------------------------
category卒煙日記

通院2日目

trackback0  comment0
 昨日、1日に禁煙外来に行ってきました。チャンピックスを2週間分貰ってきました。昨日吸ったタバコの本数は20本です。夜は8時に寝てしまい、吸いませんでしたが、朝は我慢ができず、8時にコンビニでタバコを買い、吸いました。今日も20本吸うと思います。1週間後、8日木曜日には、完全禁煙しなくてはなりません。1日20本ですから、普段の40本の半分には抑えています。出来れば、今日・土・日と吸って月曜からは先行して完全禁煙、1日0本に頑張ってしたいと思っています。

チャンピックス20120302
New «‡Top» Old