Haskell でサインカーブのデータを作成した。まずは数値を打ち出してみる。
サインカーブ計算プログラム(その1) main = putStr curvedata where curvedata = format $ sincurve [0..10] format :: [Float] -> String format xs = unlines $ map show xs sincurve :: [Int] -> [Float] sincurve xs = map (\x -> sin (pi * 0.05 * fromIntegral x)) xs 実行例 Main> main 0.0 0.1564345 0.309017 0.4539905 0.5877852 0.7071068 0.809017 0.8910065 0.9510565 0.9876884 1.0 数値だけでは面白くないので、データをCSVファイルにして Excel でグラフを書かせた。次のプログラムを動作させると、CSVをディスクに作ってくれる。WinHugs なら左肩のフォルダアイコンをクリックするとファイルが表示される。ファイルの種類をAll files にするとCSVファイルも表示されるので、右クリックしてファイルから実行を選び、Microsoft Office Excel を選ぶ。あとは Excel の操作でグラフを描くことができる。 サインカーブ計算プログラム(その2) main = writeFile "data.csv" curvedata where curvedata = format $ sincurve [0..100] format :: [Float] -> String format xs = unlines $ map show xs sincurve :: [Int] -> [Float] sincurve xs = map (\x -> sin (pi * 0.05 * fromIntegral x)) xs やっと、Haskell でプログラムを作ってデータを保存しExcel と連携してグラフを作成するところまで来た。御祝いにビールを飲んで寝ることにしよう。
by tnomura9
| 2009-09-22 00:05
| Haskell
|
Comments(0)
|
カテゴリ
新型コロナウイルス 主インデックス Haskell 記事リスト 圏論記事リスト 考えるということのリスト 考えるということ ラッセルのパラドックス Haskell Prelude Ocaml ボーカロイド 圏論 jQuery デモ HTML Python ツールボックス XAMPP Ruby ubuntu WordPress 脳の話 話のネタ リンク 幸福論 キリスト教 心の話 メモ 電子カルテ Dojo JavaScript C# NetWalker ed と sed HTML Raspberry Pi C 言語 命題論理 以前の記事
最新のトラックバック
最新のコメント
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||