WSHで数学をするスレ

<package><job><script language="VBScript">
'このタイプのファイルは、拡張子.wsfで保存して開く。
'主にWindows向け。
'Windowsには、wscript.exeのほかに、cscript.exeもある。
'拡張子.vbs,.jsなどで保存するときは、package,jobなどは要らない。
'もしよく分からないなら、HTMLにJavaScriptを埋め込んでもよい。
Call MsgBox("Windows Scripting Host へようこそ。",64,"Welcome to WSH.")
</script></job></package>

それなぁに
説明して

Re:>1 スレ立てThx.
Re:>2 Windowsを使っているなら、mboard001.wsf などのファイル名で保存して開いてみよう。

<package><job><script language="VBScript">
'繰り返しの例。ループは10で止める。ダイアログの無限ループが発生したら、止めるのが少し大変だ。
'このときは、OKをクリックしたあと、直ぐにCtrl+Alt+Deleteを押せばよい。
'このプログラムではその操作は必要ないだろう。
For i=1 To 10
Call MsgBox(i,64,"Dialog test")
Next
</script></job></package>

<package><job><script language="VBScript">
Call MsgBox("age",64,"age")
Call MsgBox("というか、何かネタは無いのか？",16,"!")
</script></job></package>

<package><job><script language="VBScript">
Call MsgBox("メール欄に変な文字列入れないでくれ。注文に違反しているぞ。",0,"Re:http://science3.2ch.net/test/read.cgi/math/1097922794/1")
</script></job></package>

絶賛人気スレ保守

　　　　　　　　　　　　　　　　　　　　_,,..､-―-- .,
　　　　　　　　　　　　　　　　　　,..-''"　　　　　　　 ｀ヽ
　　三|三　　　　　　　 　　　,. '"　　　　_,,... - __　　　　ヽ、　　　　　
　　イ `＜　　　　　　　　／　　　　,..=-‐''~￣_ ~'''- ､ 　 ヽ
　　￣　　　　　　　　　, ′　 　 ／,,..-'''"~￣:::￣~'''-ヽ,　 ヽ　　　　 _|＿
　　　∧　　　　　　　/　　　　,､'7:::,:'//:::,:´/∧::､:::゛,:::::ヽ、 ﾞ',　　　　 |＿　ヽ
　　 /　 ＼　　　　 /　　.......//,:///!',::////　 ',:::!!:::!i::::ヽ:, ...ﾞ,　　　 （j　　）
　　　　　　　　　　 l　........./n,V:;l;j］ﾄi､」ﾄ:{:{　　 }!}」j:,l!:}:::!l:ﾞ, ...〉
　　└┼┘　　　　゛, .......,';「rll:´kr_ﾃ'::「` |　ヽﾉ_｣Lﾒl::;;ll!l:l./　　　　 _ヽ＿∠
　　.|＿|＿|　　　　　゛､../ ﾊ l!::l| 「!-'lj　　　　r'::/`/ｲ,:ﾉﾉ |!'　　　　 ｌニl ｌ ｜
　　　_＿　　　　　　　 ,ｿ//:::|!:::l!　￣　　　　 '-" ,'::ｲ!..／'　　　　　 l─| l 亅
　　　 ／　　　　　　　/://::;;ﾊ::::ll＼　　　 _ '　 ,,::':::,!l:|
　　　´⌒)　　　　　ノ:ｲ/:/;/;;｀ヾ､_ ` 、　 _ .イ::く;;ﾉﾒ!、
　　　　-'　　　,. '"',ｲ;'::/;/;;;-'"(⌒ヽ ,,_!ヽ､;;;:!:::!::|　ﾍヽ
　　　　　 _,,-"／..'/:::/;;;-'"　 !_ヽ/´,,‐''_｀、`''-.,,:!　　ﾞ';ヽ、
　　　 .,-'":;; ',／,,',.-＜　　　　 ﾞ'〈　　'",-'┐　,,'"ｽ、　 ﾞ;:､､、
　 ,.-'"::;;／.'／',/^ヽ``､､　　　　 ﾞ,　 　 <ノ ノ' /　,ﾊ,　 ﾞ;:'; ヾ､
../"/:;;／ '‐'／,「｀ヽ､ `　､ =　__　 ﾞ､　 　'v'"／｀､'　'l　　',::',　ヾ､
l' /::;'"　 ,.:';:"/;;!　　　`.ー､~''ーﾆ.,ﾊ, 　　ﾊ'"　　 ヽ, ﾞ,　　!::;!　 ヾ!
　!:/　　/:/ /:/;ﾄ､　　　...ﾞ, |　　　_|　＼_,ﾉ::.＼= ､._ l ,!､　 l::;!　　ll
　!:!　 ,//' /::/::ﾊ ',..　　　ﾞ',l　,-',-ﾄ､　　`'ｰ-､ヽ, 7./l ﾄ`､, !ﾉ　 丿
　'､　//　/:/:,/_,,l ゛､..　　 ﾞ',. ヽ:Vヾ､､､_　 　 ~///,ﾉ l;;:',ヾ'
　　 /,'　,!::/!ll`i;;;｜ ヽ..　　 ヽ `/:　 ヽ ﾆﾆ‐=/ノr' ,' l;!l,:l 'ヾ;、
　　,!:!　 !::l'l:!l::!;;:::ﾊ　　 ヽ､. 　ｿ' :　　 ........,~7,　 ,l /　!;;!ll!!　ヾ;、

ところで、IEのCtrl+Oの機能は、Lunascapeには無いのですか？

すまね、激しく誤爆した。

WSHでJavaScriptの機能の一部を使うことができる。
割とプログラムも容易にできるはずだけど、
スレが伸びていない。

それなぁに
説明して

http://www.archive.org/download-eu/SuperMarioWorld_SS_1056/SuperMarioWorld_SS_1056.avi

>>10
氏ね

Re:>13 お前が先に氏ね。

簡易関数電卓
test.vbs ファイルの中身を以下のようにして実行する。
---
Msgbox Eval(InputBox("式を入力して下さい。",,"sin(3.14/2)*log(EXP(1))"))

age

WSH なんて臭いから使うなよ。

Re:>>15 電卓じゃないだろ。
Re:>>17 お前は何を使っているのだ？

>>17
おまえは糞IEでも使ってろと

>>18
電卓じゃん

Re:>>20 電卓とは何か？

電子式卓上計算機
ttp://ja.wikipedia.org/wiki/%E9%9B%BB%E5%8D%93

>>15
HEX(255)とか入力しても使えるね

>>15 機能拡張
Function PI()
PI=4*atn(1)
End Function

を、最終行に追加すると、3.14の変わりに関数PI()が使えるようになる。

プログラムする時に、ASC（"$")とかして、キャラクタコード
調べられたりもするから、数学者向けというよりもプログラマーに
とって便利なアプリだな。

>>15 もう１個、機能拡張
Function Sigma(vSta ,vEnd)
' vSta ≦ vEnd である様に、入力。

Dim Result

Result = Result + vSta

If vSta + 1 > vEnd Then
Sigma = Result
Else Sigma = Result + Sigma(vSta + 1, vEnd)

End If
End Function

を最終行に追加すると、Σ（i = 1,10) = 55、などが計算できる。
使い方は、sigma(1,10)で、結果が55と出る。

但し、再帰関数のスタックの限界で、sigma(1,570)までの計算が限度。
階乗関数n！も簡単に作れそうだけど、スタックの限界がありそうな気がする。

とは言え、関数をどんどん最終行に追加していく事で、使いやすくなる。

CreateObject("Excel.Application")で、Excelの組み込み関数を
そのまま利用できるようにしてしまうというのはどうだろう。

test

ﾎｽ

>>28 保守乙。

なんか、スターウォーズのDVDレンタルで借りて来たら、眠れなくなってしまった。
>>15 を使いやすくしてみました。

連続で何回も計算可能。
起動の度に、RND(1)の乱数列が変わる。
＞＞24さんのPI（）関数も組み込み済み。など

Randomize
Dim strFormula : strFormula = "sin(PI()/2)*log(EXP(1))"
Do
strFormula = InputBox("PI()" & VbCrLf & "Sin(), Atn(), Exp(), Log(), Rnd(), Int(), " & VbCrLf & "Hex(), Left(3, ), Chr(), Asc(), Now(), ","式を入力して下さい。",strFormula )

Msgbox(Eval(strFormula) )

Loop while strFormula <> ""

'----------------------------------------
Function PI()
PI=4*atn(1)
End Function

ﾎｼｭﾎｼｭ

ﾎｼｭﾎｼｭ

321

>>29
動作確認済み
strreverse("しんぶんし")

数学全然関係ねー‥ orz

1行スクリプト.vbs 、名前を付けて実行さしてみれ。
↓
Wscript.CreateObject("Wscript.Shell").Run "http://search.yahoo.co.jp/bin/search?p=数学*公式"

age

There is no topic, isn't it ?

やっぱりアルゴリズムの話に帰着される問題が多いのだろうか？

問題解くのに、何分かかったかを計るスクリプトとかでもいいんじゃない？
VBみたいには、凝ったことできないから、アイデア勝負ってことで。

age

734

age

age

108

743

873

187

325