Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共12 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:FoxTable中如何将小数转化为分式?

1楼
狐孩儿 发表于:2008/10/13 11:24:00

如:
   0.66667→2/3,
   2.5→2 1/2

另:代码窗口中函数Floor的链接有误!

[此贴子已经被作者于2008-10-13 16:09:25编辑过]
2楼
贺老六 发表于:2008/10/13 11:43:00
没有这个东东,我看看能不能提供一个
3楼
狐孩儿 发表于:2008/10/13 11:51:00
以下是引用贺老六在2008-10-13 11:43:00的发言:
没有这个东东,我看看能不能提供一个

发现现在FoxTable中的数学函数反不如易表丰富,如易表中的Degrees,GCD,LCM,Quotient等还是有大作用嘀!

4楼
smileboy 发表于:2008/10/13 12:14:00
个人觉得分数用处很少
5楼
贺老六 发表于:2008/10/13 12:27:00

用代码最大的好处,是可以自己写,例如小数转分数的代码是:

        Dim V As Double '要转换的小数
        Dim N As Long '分子
        Dim D As Long '分母
        Dim MaxTerms As Long = 15 '最大循环次数
        Dim MinDivisor As Double = 0.000001 '最小除数
        Dim MaxError As Double = 0.00000001 '精度
        Dim F As Double
        Dim A As Long
        Dim n1 As Long
        Dim D1 As Long
        Dim n2 As Long
        Dim D2 As Long

        F = V
        n1 = 1
        D1 = 0
        n2 = 0
        D2 = 1

        For i As Long = 0 To MaxTerms
            A = CLng(Math.Floor(F))
            F = F - A
            N = n1 * A + n2
            D = D1 * A + D2
            n2 = n1
            D2 = D1
            n1 = N
            D1 = D

            If F < MinDivisor Then Exit For
            If Math.Abs(V - N / D) < MaxError Then Exit For
            F = 1 / F
        Next i
        Return N & "/" & D

[此贴子已经被作者于2008-10-13 12:40:43编辑过]
6楼
狐孩儿 发表于:2008/10/13 12:51:00
以下是引用贺老六在2008-10-13 12:27:00的发言:

用代码最大的好处,是可以自己写,例如小数转分数的代码是:

        Dim V As Double '要转换的小数
        Dim N As Long '分子
        Dim D As Long '分母
        Dim MaxTerms As Long = 15 '最大循环次数
        Dim MinDivisor As Double = 0.000001 '最小除数
        Dim MaxError As Double = 0.00000001 '精度
        Dim F As Double
        Dim A As Long
        Dim n1 As Long
        Dim D1 As Long
        Dim n2 As Long
        Dim D2 As Long

        F = V
        n1 = 1
        D1 = 0
        n2 = 0
        D2 = 1

        For i As Long = 0 To MaxTerms
            A = CLng(Math.Floor(F))
            F = F - A
            N = n1 * A + n2
            D = D1 * A + D2
            n2 = n1
            D2 = D1
            n1 = N
            D1 = D

            If F < MinDivisor Then Exit For
            If Math.Abs(V - N / D) < MaxError Then Exit For
            F = 1 / F
        Next i
        Return N & "/" & D

[此贴子已经被作者于2008-10-13 12:40:43编辑过]

哈哈,这里除了您,没几人能写出上面的代码吧!

7楼
kylin 发表于:2008/10/13 13:18:00
那就将其当作通用代码使用得了,呵呵。
收藏
8楼
lxl 发表于:2008/10/13 15:45:00

这个是表示成带分数的代码
思路是0.75 先写成 75/100
求最大公约数25  然后约分

Dim d As Double = -11.75           '要转化的小数
Dim d1str As String                    '最后结果的整数部分
Dim d2str As String                    '最后结果的分数部分

Dim d1 As Integer = Math.Truncate(d)        'd的整数部分,包括符号
If d1 <> 0 Then d1Str = d1                       '如果整数部分不为0,则保存下来

If d.ToString.IndexOf(".") > -1 Then           '如果有小数部分不为0
    Dim d2 As Integer = d.ToString.Split(".")(1)            '取得小数部分
    Dim n As Integer = d2.ToString.Length  '小数位数
    Dim num As Integer = d2                      '分子,未约分
    Dim den As Integer = 10^n                   '分母,未约分
    Dim x As Integer = num
    Dim y As Integer = den
    Dim temp As Integer
    Do While x <> 0                   'Do Loop 求最大公约数
        temp = y Mod x
        y = x
        x = temp
    Loop                              '循环结束,最大公约数保存在变量y中
    d2str = num/y & "/" & den/y       '约分
End If
Return d1str & " " & d2str

[此贴子已经被作者于2008-10-13 15:49:51编辑过]
9楼
狐孩儿 发表于:2008/10/13 15:52:00
以下是引用lxl在2008-10-13 15:45:00的发言:

这个是表示成带分数的代码
思路是0.75 先写成 75/100
求最大公约数25  然后约分

Dim d As Double = -11.75           '要转化的小数
Dim d1str As String                    '最后结果的整数部分
Dim d2str As String                    '最后结果的分数部分

Dim d1 As Integer = Math.Truncate(d)        'd的整数部分,包括符号
If d1 <> 0 Then d1Str = d1                       '如果整数部分不为0,则保存下来

If d.ToString.IndexOf(".") > -1 Then           '如果有小数部分不为0
    Dim d2 = d.ToString.Split(".")(1)            '取得小数部分
    Dim n As Integer = d2.ToString.Length  '小数位数
    Dim num As Integer = d2                      '分子,未约分
    Dim den As Integer = 10^n                   '分母,未约分
    Dim x As Integer = num
    Dim y As Integer = den
    Dim temp As Integer
    Do While x <> 0                   'Do Loop 求最大公约数
        temp = y Mod x
        y = x
        x = temp
    Loop                              '循环结束,最大公约数保存在变量y中
    d2str = num/y & "/" & den/y       '约分
End If
Return d1str & " " & d2str

這個在適用的範圍,還挺精準轉化

10楼
kylin 发表于:2008/10/13 16:38:00
老六的代码,生成的结果统统是“分子/分母”形式,如11.5生成23/2;lxl斑竹是“整数 分子/分母”,如11.5生成11 1/2
都收藏,呵呵!
共12 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.