登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

VBA 高斯消去法求线性方程组解  

2012-03-21 13:40:13|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

VBA 高斯消去法求线性方程组解

Dim a(1 To 10, 1 To 10) As Double
Dim astart As Double
Private Sub CommandButton1_Click()
  
    For si = 1 To 5
        For sj = 1 To 6
            a(si, sj) = Sheet1.Cells(si, sj)
        Next sj
    Next si
    Dim x(1 To 10) As Double
   
    For m = 1 To 10
        x(m) = 0
    Next m
   
    Dim n As Integer
    n = 5
   
    For h = 1 To n + 1
      a(1, h) = a(1, h) / a(1, 1)
    Next h
   
    For i = 2 To n
        For j = i To n
        astart = a(j, i - 1)
            For k = i - 1 To n + 1
                a(j, k) = a(j, k) / astart - a(i - 1, k)
            Next k
        Next j
       
        For mn = i To n + 1
            a(i, mn) = a(i, mn) / a(i, i)
        Next mn
    Next i
   
    For s = n To 1 Step -1
        x(s) = a(s, 6)
        For t = n To s + 1 Step -1
            x(s) = x(s) - x(t)
        Next t
    Next s
   
    For d = 1 To 5
        For e = 1 To 6
            Sheet1.Cells(d + 7, e) = a(d, e)
        Next e
    Next d
   
    For f = 1 To 7
        Sheet1.Cells(14,f) = x(f)
    Next f

End Sub
 

  评论这张
 
阅读(891)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018