myzwd

echo 阶乘计算
set /p n=输入n值---
set r=1
for /l %%i in (1 1 !n!) do (
        set /a "r=!r!*%%i"
)
echo !n!的阶乘=!r!
pause>nul
复制代码

sin(x)=1-(1/3!)x^3+(1/5!)x^5-......
编出sinx的计算程序要分离1/3!的整数部分和小数部分。有意思那天试试看能不能成功。
我猜应要用到bat的 运算---“/和%%”

求平方根的递推公式

 

f(n)={f(n-1)+k/f(n-1)}/2  ,其中n=1 ，2 ，3.。。
这是k的平方根公式
复制代码

@echo off &setlocal enabledelayedexpansion &cls &color 1a
echo -----判断小数位数----
:00
set /p x=输入数字--
set x1=a%x%
:01
set /a bit+=1
set num=!x1:~-1!
set x1=!x1:~,-1!
if !num! equ a (set bit=1 &goto end)
if !num! neq . goto 01
:end
call set v=%%x:~-!bit!%% 
call set u=%%x:~0,-!bit!%%
if %bit%==1 (set "v=0" &set "u=%x%")
set /a bit=%bit%-1
echo ┌─────────────┐
echo     小数位数=%bit% 整数部分=%u% 小数部分=%v%
echo └─────────────┘
set /p choice=输入r--从新开始,输入其它字符--结束--?
set bit=0
if %choice%==r goto 00 
pause
复制代码

分数化小数方法
http://bbs.bathome.net/thread-3832-1-1.html



两个正小数相加

@echo off &setlocal enabledelayedexpansion &cls &color 1a
echo  ~~~~~~~~~~~~~小数加法~~~~~~~~~~~~~~~~~by myzwd 2009 3 23
echo  ──────────────────────────────────
:main
set /p a=输入第一个小数---
set /p b=输入第二个小数---
rem 可以使用参数%1 %2 调用
call:sub %a%
set "a.bit=%bit%" &set "a.x=%v%" &set "a.z=%u%" 
call:sub %b%
set "b.bit=%bit%" &set "b.x=%v%" &set "b.z=%u%"  

set /a "t=%a.bit%-%b.bit%"
if %t% geq 0 ( for /l %%i in (1 1 %t%) do (set b.x=!b.x!0)
) else (set /a t=-%t% 
          for /l %%i in (1,1,!t!) do (set a.x=!a.x!0)
          set "a.x=!a.x: =!"
       )

:end
set /a "sumazbz=%a.z%+%b.z%" 
set a.x=%a.x:.=1% &set b.x=%b.x:.=1%
set /a "sum=%a.x%+%b.x%"
set /a "sum.z=%sum:~0,1%-2" &set "sum.x=%sum:~1%"
set /a "sum.z=%sumazbz%+%sum.z%"
set sum=%sum.z%.%sum.x%
echo 结果是----%a%+%b%=%sum%
set /p choice=输入r重新开始，输入其它字符结束--?
if %choice%==r goto main
exit /b
--------- 程序结束-----------------
------z符号代表整数部分，x符号代码小数部分
:sub
:00
set x=%1
set x1=a%x%
set bit=0
:01
set /a bit+=1
set num=!x1:~-1!
set x1=!x1:~,-1!
if !num! equ a (set bit=1 &goto end)
if !num! neq . goto 01
:end
call set v=%%x:~-!bit!%% 
call set u=%%x:~0,-!bit!%%
if %bit%==1 (set "v=0" &set "u=%x%")
set /a bit=%bit%-1
echo ┌─────────────────────┐
echo     小数位数=%bit% 整数部分=%u% 小数部分=%v%
echo └─────────────────────┘
goto:eof
复制代码

利用递推数列开方，本来收敛速度是最快的了，一般迭代4，5次就有很高的精度了。但是关键的一点是要解决两个有理数的除法运算如2.5/1.23 ，这最终又归结到小数点的移动上去。看来得多弄几个子程序。工作量有点大。有时间再说吧。我真不明白微软的bat在设计上为什么不直接设计来可以进行小数运算呢？

[ 本帖最后由 myzwd 于 2009-3-23 20:58 编辑 ]

myzwd

cmd的属性可以利用注册表修改
hkcu\console -----cmd的属性都记录在这个键下
添加值名windowposition 再添加 d_word值可以改变cmd在屏幕中的位置。如（十进制）10551000，10551048  .把值设置为0就是恢复默认。

[ 本帖最后由 myzwd 于 2009-3-22 13:09 编辑 ]

myzwd

msgbox("Hello from VBScript!")
msgbox "123456789"
复制代码

dim name
name="Jan Egil"
msgbox(name)
复制代码

dim name
name="Jan Egil"
msgbox("My name is: " & name)
复制代码

dim fname(5)
fname(0) = "George"
fname(1) = "John"
fname(2) = "Thomas"
fname(3) = "James"
fname(4) = "Adrew"
fname(5) = "Martin"

for i=0 to 5
  msgbox(fname(i) & " 123")
next
复制代码

sub mySub()
  msgbox("This is a sub procedure")
end sub
call mySub()
复制代码

function myFunction()
myFunction = "BLUE"
end function
msgbox("My favorite color is " & myFunction())
复制代码

function greeting()
i=hour(time)
if i < 10 then
msgbox("Good morning!")
else
msgbox("Have a nice day!")
end if
end function
call greeting()
复制代码

function greeting()
i=hour(time)
If i = 10 then
        msgbox("Just started...!")
elseif i = 11 then
        msgbox("Hungry!")
elseif i = 12 then
        msgbox("Ah, lunch-time!")
elseif i = 16 then
        msgbox("Time to go home!")
else
        msgbox("Unknown")
end if
end function
greeting()
rem elseif 不是else if
'注释
复制代码

d=weekday(date)

select case d
  case 1
    msgbox("Sleepy Sunday")
  case 2
     msgbox("Monday again!")
  case 3
     msgbox("Just Tuesday!")
  case 4
     msgbox("Wednesday!")
  case 5
     msgbox("Thursday...")
  case 6
     msgbox("Finally Friday!")
  case else
     msgbox("Super Saturday!!!!")
end select
rem 这是select 语句
复制代码

for i = 0 to 5
msgbox("The number is " & i & "
")
next
复制代码

dim names(2)
names(0) = "George"
names(1) = "John"
names(2) = "Thomas"

for each x in names
  msgbox(x & "这句相当于bat的for in语句")
next
复制代码

i=0
do while i < 10
  msgbox(i & "     ")
  i=i+1
loop
复制代码

i=0
do 
  msgbox(i & "     ")
  i=i+1
loop  while i < 10
复制代码

do 
  msgbox("123456")
  i=i+1
loop until i > 5
复制代码

msgbox("Today's date is " & date())
msgbox("The time is " & time())
rem  也可以这样,这是调用函数的一种方法
msgbox "今天的时间是" & time()
'日期和时间
复制代码

msgbox(WeekDayName(1))

msgbox(WeekDayName(2))

msgbox("Get the abbreviated name of a weekday:")

msgbox(WeekDayName(1,true))

msgbox(WeekDayName(2,true))

msgbox("Get the current weekday:")

msgbox(WeekdayName(weekday(date)))

msgbox(WeekdayName(weekday(date), true))
复制代码

出于易读和一致性的目的，请在 VBScript 代码中使用以下变量命名约定：
子类型 前缀 示例
Boolean bln blnFound
Byte byt bytRasterData
Date (Time) dtm dtmStart
Double dbl dblTolerance
Error err errOrderNum
Integer int intQuantity
Long lng lngDistance
Object obj objCurrent
Single sng sngAverage
String str strFirstName

变量应定义在尽量小的作用域中。VBScript 变量的作用域如下所示：
作用域 声明变量处 可见性
过程级 事件、函数或子过程 在声明变量的过程中可见
Script 级 HTML 页面的 HEAD 部分，任何过程之外 在 Script 的所有过程中可见


变量作用域前缀
随着 Script 代码长度的增加，有必要快速区分变量的作用域。在类型前缀前面添加一个单字符前缀可以实现这一点，而不致使变量名过长。
作用域 前缀 示例
过程级 无 dblVelocity
Script 级 s sblnCalcInProgress

对象命名约定
下表列出了 VBScript 中可能用到的对象命名约定（推荐）：
对象类型 前缀 示例
3D 面板 pnl pnlGroup
动画按钮 ani aniMailBox
复选框 chk chkReadOnly
组合框、下拉列表框 cbo cboEnglish
命令按钮 cmd cmdExit
公共对话框 dlg dlgFileOpen
框架 fra fraLanguage
水平滚动条 hsb hsbVolume
图像 img imgIcon
标签 lbl lblHelpMessage
直线 lin linVertical
列表框 lst lstPolicyCodes
旋钮 spn spnPages
文本框 txt txtLastName
垂直滚动条 vsb vsbRate
滑块 sld sldScale

[ 本帖最后由 myzwd 于 2009-3-24 20:59 编辑 ]

myzwd

rem 这是用windows图片查看器打开图片
start  e:\test\a.jpg
复制代码

rem 这是在网页中打开图片，vb中就常用这句话
start explorer e:\test\a.jpg
复制代码

系统在默认状态下打开文件是按上述方法打开。请看31楼batcher的说明。

如在vb中（不是vbs），要打开网页就可以用下面的代码：
shell "explorer http:\\www.hao123.com"
vbs是vb的简化版（轻量级别）的vb
在dos中插上两句vbs效果挺不错的。
vbs中常用的两句话是
msgbox 和inputbox

 
x=msgbox ("提示信息",48,"窗口标题")
复制代码

x是运行函数msgbo的返回值，为1-7的值。这个返回值可以用于编程时的条件判断语句。
48是提示框样式(style)数字，可以查表查找比如说可以输入0，1，2，4，32，等等
如果只需要提示信息，代码可以按如下的方法写

msgbox “提示"&"自己想添加的字符串"
复制代码

inputbox函数就的用法是

y=inputbox ("提示信息","","默认值")
复制代码

同常了解这两句就够了。

[ 本帖最后由 myzwd 于 2009-4-13 20:36 编辑 ]

myzwd

是这样的？我从没试过。谢谢。我有长进了。呵呵。

[ 本帖最后由 myzwd 于 2009-4-13 20:18 编辑 ]