学芸大学気象学研究室 tag:buran.u-gakugei.ac.jp,2012://1 2012-02-09T07:00:32+09:00 XOOPS WhatsNew 2.02 Copyright (c) 2012, AM AM http://www.meteorology.jp/XOOPS/ Eclipse + StatET + R tag:buran.u-gakugei.ac.jp,2012://1.13.96 2008-06-29T00:10:50+09:00 2008-06-29T00:10:50+09:00 森 Linux で R を利用する場合、emacs に ESS という lisp プログラムを導入して利用すると、編集しながら実行できて都合がいい。しかし、これは、もともとプログラム開発環境である Linxu とか emacs を使っている場合に限る。それでは、もともと、Windows しか扱って ...
それでは、もともと、Windows しか扱っていないような人の場合に同すればよいか？一つは、Windows 用の Emacs を導入して、それに ESS を導入する方法である。以前、学芸大学にいたときには、それを推奨していた(Meadow(Emacs) に ESS を入れて R を使う件についてはここ。これも4年前か…)。しかし、Emacs は固有の使い方が強いし、やや敷居が高い。そもそもプログラミング自身が敷居の高いことなので、ある程度は致し方ない。しかし、やはり、Windows でいきなり Emacs というのは、カルチャーショックが大きすぎると思う。

そんな中で、依然として敷居は高いものの、より、Windows に親和的と思われる実行環境を発見した。Eclipse である。将来、それなりの企業に就職して、他の言語の開発を行う際にも、プラットフォームとして利用する可能性が高い。そこで、桜美林大学ではこれを推奨することとした。その顛末は、桜美林大学のサイトにまとめた。まだ、作成途中だけど、興味のあるひとはどうぞ。 ]]> 気象学会関連RSSの追加 tag:buran.u-gakugei.ac.jp,2012://1.7.2 2008-06-09T15:18:34+09:00 2008-06-09T15:18:34+09:00 AM 日本気象学会、雑誌 SOLA、気象集誌(JMSJ) のRSS 情報を掲載するようにしました。どうぞご利用下さい。 桜美林大学：森 RSS 情報を掲載するようにしました。どうぞ
ご利用下さい。
　　　　　　　　　　　　　　　　　　桜美林大学：森 ]]> Re: maps & mapproj パッケージ tag:buran.u-gakugei.ac.jp,2012://1.13.95 2008-01-22T17:21:31+09:00 2008-01-22T17:21:31+09:00 AM 描画に用いたコードは次の通りlibrary(mapproj) # par(ask=T) plot(0,0,type='n',xlim=c(-180,180),ylim=c(-90,90)); map(add=T, interior=F, projection="") ; map.grid() dev.off(); png("mercator.png"); plot(0,0,type='n',xlim=c(-pi,pi),ylim=c(-3,3)); map(a ... 
library(mapproj)

# par(ask=T)

plot(0,0,type='n',xlim=c(-180,180),ylim=c(-90,90)); map(add=T, interior=F, projection="")                                ; map.grid()
dev.off(); png("mercator.png");
  plot(0,0,type='n',xlim=c(-pi,pi),ylim=c(-3,3)); map(add=T, interior=F, projection="mercator")                            ; map.grid()
dev.off(); png("sinusoidal.png");
  plot(0,0,type='n',xlim=c(-pi,pi),ylim=c(-3,3)); map(add=T, interior=F, projection="sinusoidal")                          ; map.grid()
dev.off(); png("cylequalarea_p=0.png");
  plot(0,0,type='n',xlim=c(-pi,pi),ylim=c(-1.5,1.5)); map(add=T, interior=F, projection="cylequalarea", parameter=0)       ; map.grid()
dev.off(); png("cylequalarea_p=60.png");
  plot(0,0,type='n',xlim=c(-pi/2,pi/2),ylim=c(-1.5,1.5)); map(add=T, interior=F, projection="cylequalarea", parameter=60)  ; map.grid()
dev.off(); png("cylindrical.png");
  plot(0,0,type='n',xlim=c(-pi,pi),ylim=c(-3,3)); map(add=T, interior=F, projection="cylindrical")                         ; map.grid()
dev.off(); png("gall_p=0.png");
  plot(0,0,type='n',xlim=c(-pi,pi),ylim=c(-1,1)); map(add=T, interior=F, projection="gall", parameter=0)                   ; map.grid()
dev.off(); png("gall_p=60.png");
  plot(0,0,type='n',xlim=c(-pi,pi),ylim=c(-1,1)); map(add=T, interior=F, projection="gall", parameter=60)                  ; map.grid()
dev.off(); png("mollweide.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-1,1)); map(add=T, interior=F, projection="mollweide")                             ; map.grid()
dev.off(); png("gilbert.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="gilbert")                               ; map.grid()
dev.off(); png("azequidistant.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="azequidistant")                         ; map.grid()
dev.off(); png("azequalarea.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="azequalarea")                           ; map.grid()
dev.off(); png("gnomonic.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="gnomonic")                              ; map.grid()
dev.off(); png("perspective_p=10.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="perspective",parameter=10)              ; map.grid()
dev.off(); png("perspective_p=2.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="perspective",parameter=2)               ; map.grid()
dev.off(); png("orthographic.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="orthographic")                          ; map.grid()
dev.off(); png("stereographic.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-2,2)); map(add=T, interior=F, projection="stereographic")                         ; map.grid()
dev.off(); png("laue.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-2,2)); map(add=T, interior=F, projection="laue")                                  ; map.grid()
dev.off(); png("fisheye_p=1.5.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="fisheye", parameter=1.5)                ; map.grid()
dev.off(); png("fisheye_p=2.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="fisheye", parameter=2)                  ; map.grid()
dev.off(); png("newyorker_p=10.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="newyorker", parameter=10)               ; map.grid()
dev.off(); png("conic_p=30.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="conic", parameter=30)                   ; map.grid()
dev.off(); png("conic_p=60.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="conic", parameter=60)                   ; map.grid()
dev.off(); png("simpleconic_p=30_60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="simpleconic", parameter=c(30,60))       ; map.grid()
dev.off(); png("lambert_p=30_60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="lambert", parameter=c(30,60))           ; map.grid()
dev.off(); png("albers_p=30_60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="albers", parameter=c(30,60))            ; map.grid()
dev.off(); png("bonne_p=60.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-3,1)); map(add=T, interior=F, projection="bonne", parameter=60)                   ; map.grid()
dev.off(); png("polyconic.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-2,2)); map(add=T, interior=F, projection="polyconic")                             ; map.grid()
dev.off(); png("aitoff.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-2,2)); map(add=T, interior=F, projection="aitoff")                                ; map.grid()
dev.off(); png("lagrange.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="lagrange")                              ; map.grid()
dev.off(); png("bicentric_p=60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="bicentric",parameter=60)                ; map.grid()
dev.off(); png("bicentric_p=30.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="bicentric",parameter=30)                ; map.grid()
dev.off(); png("elliptic_p=30.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="elliptic",parameter=30)                 ; map.grid()
dev.off(); png("elliptic_p=60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="elliptic",parameter=60)                 ; map.grid()
dev.off(); png("globular.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-2,2)); map(add=T, interior=F, projection="globular")                              ; map.grid()
dev.off(); png("vandergrinten.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="vandergrinten")                         ; map.grid()
dev.off(); png("eisenlohr.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1,1)); map(add=T, interior=F, projection="eisenlohr")                             ; map.grid()
dev.off(); png("guyou.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="guyou")                                 ; map.grid()
dev.off(); png("square.png");
  plot(0,0,type='n',xlim=c(0,3),ylim=c(-3,0)); map(add=T, interior=F, projection="square")                                 ; map.grid()
dev.off(); png("tetra.png");
  plot(0,0,type='n',xlim=c(-6,6),ylim=c(-6,6)); map(add=T, interior=F, projection="tetra")                                 ; map.grid()
dev.off(); png("hex.png");
  plot(0,0,type='n',xlim=c(0,3),ylim=c(-2,2)); map(add=T, interior=F, projection="hex")                                    ; map.grid()
dev.off(); png("harrison_p=2_10.png");
  plot(0,0,type='n',xlim=c(-2,2),ylim=c(-2,2)); map(add=T, interior=F, projection="harrison",parameter=c(2,10))            ; map.grid()
dev.off(); png("trapezoidal_p=30_60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-2,0)); map(add=T, interior=F, projection="trapezoidal",parameter=c(30,60))        ; map.grid()
dev.off(); png("lune_p=10_60.png");
  plot(0,0,type='n',xlim=c(-1,1),ylim=c(-1/2,1/2)); map(add=T, interior=F, projection="lune",parameter=c(10,60))           ; map.grid()
dev.off(); png("mecca_p=60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="mecca",parameter=60)                    ; map.grid()
dev.off(); png("homing_p=60.png");
  plot(0,0,type='n',xlim=c(-3,3),ylim=c(-3,3)); map(add=T, interior=F, projection="homing",parameter=60)                   ; map.grid()
dev.off()
]]> 地学実験2006年度後期資料 tag:buran.u-gakugei.ac.jp,2012://1.2.151 2007-09-05T12:49:51+09:00 2006-12-04T18:47:43+09:00 森 地学実験の資料を添付していきます。※ 一番下に更新情報があります。5. 第四週:テスト解答例 ● 月曜F類 ● 火曜AB類4. 第四週:回転系・誤差(月曜：F類)1. 課題 ※ パソコンを使うことも練習です。データなどは自分でダウンロードしましょう。 ※ レポートの提出は、１ ... ※ 一番下に更新情報があります。

5. 第四週:テスト解答例

　　● 月曜F類
　　● 火曜AB類

4. 第四週:回転系・誤差(月曜：F類)

1. 課題
　　※ パソコンを使うことも練習です。データなどは自分でダウンロードしましょう。
　　※　レポートの提出は、１月２２日(月)の昼休みに提出してください。
　　● 地学実験地球物理学分野第四週分課題
　　● 長さの計測結果のデータ
　　● ボールの座標のデータ(5mm 単位, 読み取りの誤差を2mm とする)

          1回目
                     (  -2,        3.5  )
                     (   5,        6.5  )
                     (  12.5,      7    )
                     (  19.5,      5    )
                     (  26,        1.5  )
          2回目
                     (  -4,       -5    )
                     (   1,        1    )
                     (   7,        4.5  )
                     (  14,        6    )
                     (  21,        5    )
          3回目
                     (   1,        2    )
                     (   7.5,      5    )
                     (  14.5,      6    )
                     (  22,        5.5  )


2. 各種資料
2.1 プレゼン資料
　長さの計測結果について:クリック!(PDFファイル)
　浮力について:　　　　 　クリック!(PDFファイル)
　終わりに:　　　　　　 　クリック!(PDFファイル)
　渦度の生成について: クリック!(PPTファイル)
2.2. 実験結果の合成写真
+ 1回め[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=374[/img]
+ 2回め[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=375[/img]
+ 3回め[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=376[/img]
+ 非回転[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=377[/img]


4. 第四週:回転系・誤差(火曜：AB類)


1. 課題
　　● 地学実験地球物理学分野第四週分課題
　　● 長さの計測結果のデータ
　訂正:
　　 画像データをパソコンで精査したところ、より正確な座標がわかりました。次のように座標を変更してください。お詫びして訂正します。
　

　        1回目 (9.5, -1), (6, 6.5), (4.5, 14)
　        2回目 (6.5, 17), (6, 9.5), (4.5, 2), (1, -4)
　        3回目 (-7, 17), (-0.5,12.5), (4,7), (6.5,0)

　　Q&A:
　引用：

Q1. 実験テキストP.5に書かれているレポート形式に従うべきでしょうか。

A1. そうです。前回と同様です。つまり、まず、体裁は守ってくださ
　　い。また、今回のレポートに関しても、目的・方法などの項目は
　　不要で、必要に応じて方法などを書き込んでもらえれば結構です。

　引用：

Q2. 読み取り誤差が２mmというのがよくわかりません。目盛の精度との兼ね合いはどうなっていますか？

A2. 目盛の間隔 5mm は、比較的正確に 5mm です。「比較的正確」の意
　　味は、ボールの移動距離に関して考えられる誤差のうち、読み取り
　　の誤差の方が、目盛自身の誤差よりも、はるかに大きいという意味
　　です。

　　まずは、ボールの移動距離を推定しましょう。

　引用：

Q3. 「周期のデータＴを推定せよ」とは書かれていません。誤差を考え
　　なくても良いのでしょうか。

A3. 理論的な曲率半径を推定するためには、当然、周期 T の推定が不
　　可欠だと思ったので、書く必要を感じていませんでした。周期T も
　　推定してください。


2. 各種資料
2.1 プレゼン資料
　長さの計測結果について:クリック!(PDFファイル)
　浮力について:　　 　　　クリック!(PDFファイル)
　終わりに:　　　　　　 　クリック!(PDFファイル)
　渦度の生成について: クリック!(PPTファイル)
2.2. 実験結果の合成写真
+ 1回め[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=368[/img]
+ 2回め[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=369[/img]
+ 3回め[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=370[/img]
+ 非回転[img]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=371[/img]

2.3. 実験時間中( 2006-01-09 午後1時過ぎ )の地震について
　震源は80kmとやや深く、実験の時間の予想通り、ほぼ直下の地震でした。
　詳しくは、気象庁地　震情報のページへ。
　
　(気象庁ホームページの画像をリンク)

3. 第三週:天気図

[img align=center]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=360,350[/img]
[img align=center]http://www.meteorology.jp/XOOPS/modules/xfsection/download.php?fileid=359,350[/img]

2. 第二週:静力学平衡と地震のスケーリング則

1. 静力学平衡のプレゼン資料
2. 実験結果
引用：
※ 渡した両対数グラフは1〜100までしかプロットできません。100を越える数値(130や129)については、枠外になります。しかし、100より小さい数字の目盛り(たとえば、1.3とか、1.29)を参考にして、位置を決定することができます。そのようにしてプロットして下さい。

2.1 月曜日F類
ブロック数  発生回数
1        130
2        59
3        39
4        47
5        33
6        31
7        23
8        17
9        13
10       14
11       9
12       11
13       12
14       6
15       6
16       6
17       6
18       3
19       1
20       1
21       4
22       1
23       2
24       3
25       1
26       1
27       2
29       2
30       2
32       1
35       1
36       1
37       1
38       1
41       1

2.2 火曜日A類
ブロック数  発生回数
001      129
002      81
003      49
004      52
005      27
006      22
007      28
008      17
009      15
010      12
011      11
012      15
013      2
014      6
015      4
016      3
017      5
018      2
019      1
020      4
021      1
022      4
023      1
024      2
025      1
026      1
027      1
028      3
030      1
032      1
037      1
038      2
040      1
044      1
071      1
074      1

3. テストの解答例

1. 第一週:ウォーミングアップ

1. テキスト: 地学実験テキスト第14版暫定版
2. わかりやすい記述のしかた: 記述のしかた資料
　　※ 参考 : ケプラーの法則(WikiPedia)
3. テストの解答例
]]> ホームページ移設作業中 tag:buran.u-gakugei.ac.jp,2012://1.7.5 2007-08-27T14:40:39+09:00 2007-08-27T14:40:39+09:00 AM 現在、ホームページの移設作業中です。http://buran.u-gakugei.ac.jp/XOOPS/ は廃止され、内容をhttp://www.meteorology.jp/XOOPS/ へ移行しつつあります。なるべく元通りに動かしたいのですが、全てを元通りに動かすことは難しいと思います。どうぞ、お含みおき下 ...
http://buran.u-gakugei.ac.jp/XOOPS/ は廃止され、内容を
http://www.meteorology.jp/XOOPS/ へ移行しつつあります。

なるべく元通りに動かしたいのですが、全てを元通りに動かすことは
難しいと思います。どうぞ、お含みおき下さい。

よろしくお願いします。 ]]> 2006年(平成18年)度卒論・修論（発表資料） tag:buran.u-gakugei.ac.jp,2012://1.2.153 2007-04-25T13:27:54+09:00 2007-04-25T13:08:14+09:00 池上 2006年(平成18年)度卒論・修論発表資料（Power Point）です。年度をまたいでしまって、すみません。 年度をまたいでしまって、すみません。 ]]> buran の今後について tag:buran.u-gakugei.ac.jp,2012://1.7.7 2007-03-31T10:18:09+09:00 2007-03-31T10:18:09+09:00 AM 気象学研究室のホームページ( http://buran.u-gakugei.ac.jp/, 以下、buran と省略します)についてのお知らせサイトを管理してきた森の転出に伴い、buran の今後をどのようにするかを検討してきました。その結果、現段階では次のようにしたいと考えています。1. bur ... http://buran.u-gakugei.ac.jp/, 以下、buran と省略します)についてのお知らせ

サイトを管理してきた森の転出に伴い、buran の今後をどのようにするかを検討してきました。その結果、現段階では次のようにしたいと考えています。

1. buran が置いてある建物の改修が 9 月から予定されています。それまでは、できるだけ、現状のまま維持したいと考えています。
2. 9 月以降に付いては、未定です。
　　しかし、本学の在校生・OBの皆さんが蓄積してきた資料が活きるように、なんらかの場を作りたいと考えています。
　　そこで、どこか別の URL で再開したいと考えています。

以上です。

今までありがとうございました。
また、今後もよろしくお願いいたします。 ]]> 整数の数字を文字として扱うときに、先頭にゼロを加える tag:buran.u-gakugei.ac.jp,2012://1.13.92 2007-02-26T19:39:28+09:00 2007-02-26T19:39:28+09:00 森 そんな関数はあるのかもしれないけど、やっつけで作る。前も作ったような気がしたが、自分で作ったものも見つからないので、web に載せておく。as.character.paddzero 前も作ったような気がしたが、自分で作ったものも見つからないので、web に載せておく。
as.character.paddzero <- function(x,digits=6){
  x <- x + 10^digits
  return( substr( as.character(x), 2, digits+1) )
}
]]> ネットワーク停止(2/17,18,22) tag:buran.u-gakugei.ac.jp,2012://1.7.9 2007-02-09T14:31:19+09:00 2007-02-09T14:31:19+09:00 AM 情報処理センターからネットワークの停止についての連絡がありました。2/17 09:00 〜 2/18 21:002/22 14:00 〜 同 18:00 2/17 09:00 〜 2/18 21:00
2/22 14:00 〜 同 18:00
]]> アンケート tag:buran.u-gakugei.ac.jp,2012://1.2.150 2007-01-29T13:53:26+09:00 2006-11-21T11:30:06+09:00 関 ２００４年度