精华内容
下载资源
问答
  • 数值模拟

    千次阅读 2014-09-19 16:38:33
    Private Sub readButton_Click() FileNumber = FreeFile Open "D:\test.txt" For Input As #FileNumber Do While Not EOF(FileNumber) Line Input #FileNumber, TextLine temp = temp + TextLine + vbC
    Public getTili As Boolean
    Public buyTili As Boolean
    Public cishu As Integer
    Public dengji As Integer
    Public tili As Integer
    Public jingyan As Integer
    Public zijin As Long
    Public tianshu As Integer
    Private Sub Check1_Click()
    If Check1.Value = 1 Then
        'MsgBox "被选择"
        getTili = True
    Else
        'MsgBox "未被选择"
        getTili = False
    End If
    End Sub
    Private Sub Check2_Click()
    If Check2.Value = 1 Then
        'MsgBox "被选择"
        buyTili = True
    Else
        'MsgBox "未被选择"
        buyTili = False
    End If
    End Sub
    Private Sub readButton_Click()
    FileNumber = FreeFile
    Open "player.txt" For Input As #FileNumber
    Do While Not EOF(FileNumber)
        Line Input #FileNumber, TextLine
        temp = temp + TextLine + vbCrLf
        showTxt.Text = temp
    Loop
    Close #FileNumber
    Set re = New RegExp
    re.Pattern = "等级:(\d+).*\n当前经验:(\d+).*\n当前体力:(\d+).*\n资金:(\d+).*\n可购买体力次数:(\d+)"
    If (re.Test(temp) = True) Then
        Set re1 = re.Execute(temp)(0)
        cishu = re1.SubMatches(4)
        dengji = re1.SubMatches(0)
        tili = re1.SubMatches(2)
        jingyan = re1.SubMatches(1)
        zijin = re1.SubMatches(3)
        showMsg
    Else
        MsgBox "文件错误"
    End If
    End Sub
    Public Sub shuaFB()
    Debug.Print "刷副本"
    tili = tili - 6
    zj = 610 + 10 * Int(dengji / 5)
    zijin = zijin + zj
    Debug.Print "获得资金:" & zj
    jingyan = jingyan + 6
    End Sub
    Public Sub suanLevel()
    Dim a, b As Integer
    Set re = New RegExp
    re.Pattern = "(\d+)\t(\d+)"
    FileNumber = FreeFile
    Open "level.txt" For Input As #FileNumber
    Do While Not EOF(FileNumber)
        Line Input #FileNumber, TextLine
        If re.Test(TextLine) = True Then
            Set re1 = re.Execute(TextLine)(0)
            a = re1.SubMatches(0)
            b = re1.SubMatches(1)
            If a = dengji And b > jingyan Then
                Close #FileNumber
                Exit Sub
            End If
            If a = dengji And b <= jingyan Then
                Debug.Print "Level UP"
                dengji = dengji + 1
                jingyan = jingyan - b
                max_tili = dengji + 59
                tili = tili + 20
            End If
        End If
    Loop
    'Close #FileNumber
    End Sub
    Public Sub showMsg()
    levelTxt(0).Text = dengji
    jingyanTxt(2).Text = jingyan
    tiliTxt(1).Text = tili
    moneyTxt(3).Text = zijin
    End Sub
    Private Sub runButton_Click()
    
    If (Text1.Text = "") Then
        MsgBox "请输入天数"
    Else
        tianshu = Text1.Text
    End If
    FileNumber = FreeFile
    Open "Log.txt" For Output As #FileNumber
    For i = 1 To tianshu
        Print #FileNumber, "====  第" + Str(i) + "天  ===="
        temp = temp + "第" + Str(i) + "天:" + vbCrLf
        tili = dengji + 59
        getTili = True
        buyTili = True
        n = 0
        While tili >= 6
            Print #FileNumber, "角色等级:" + Str(dengji) + "  角色体力:" + Str(tili) + "  当前资金:" + Str(zijin)
            shuaFB
            n = n + 1
            suanLevel
            If tili < 6 And Check1.Value = 1 And getTili = True Then
                tili = tili + 120
                getTili = False
                Print #FileNumber, "领取免费体力120点"
            End If
            If tili < 6 And Check2.Value = 1 And buyTili = True Then
                tl = 120 * cishu
                tili = tili + tl
                buyTili = False
                Print #FileNumber, "购买体力" + Str(tl) + "点"
            End If
        Wend
        Print #FileNumber, "通关主线次数:" + Str(n)
        temp = temp + "当前等级:" + Str(dengji) + " 当前资金:" + Str(zijin) + vbCrLf
        temp = temp + "通关主线次数:" + Str(n) + vbCrLf
    Next i
    showTxt.Text = temp
    Print #FileNumber, "角色等级:" + Str(dengji) + " 当前资金:" + Str(zijin)
    Close #FileNumber
    End Sub
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then
    Exit Sub
    End If
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
    KeyAscii = 0
    MsgBox "只能输入数字"
    End If
    End Sub


     

    展开全文
  • 水环境数值模拟应用案例分
  • metlab数值模拟

    2014-08-18 15:00:20
    可用于数值模拟 模拟各种应力受力分析可用于数值模拟 模拟各种应力受力分析
  • 数值模拟软件Ansys

    2020-12-20 08:45:02
    一款可以进行数值模拟分析的强大软件
  • 矿山数值模拟

    2014-11-20 16:34:51
    矿山数值模拟,有关煤矿井下巷道的数值模拟,方便大家下载
  • 数值模拟方法科学研究与解决工程问题的基础在于物理实验与实物观测,例如对金属材料的凝固过程进行物理实验、对天体运行进行观测。现代科学研究方法的核心是通过实验或观测建立研究对象的数学模型,基于数学模型进行...

    数值模拟方法

    科学研究与解决工程问题的基础在于物理实验与实物观测,

    例如对金属材料的

    凝固过程

    进行物理实验、对天体运行进行观测。现代科学研究方法的核心是通

    过实验或观测建立研究

    对象的数学模型,基于数学模型进行研究与分析。这种

    研究方法可以追溯到伽利略的工作,

    成熟于牛顿的三大定律与微积分。

    采用实物

    模型进行物理实验的研究周期

    长、投入大,有时甚至无法在实物上进行,如天

    体物理的研究。在数学模型上进行的数值模拟研究具有研究周

    期短、安全、投

    入少,已经成为不可或缺的工具。

    数值模拟方法的应用对象分为三个层次

    1)

    宏观层次:常见的工程建筑、制造设备、零件等

    ;

    2)

    界观层次:

    材料的微观组织与性能,

    如金属材料的晶粒度影响其屈服强度

    ;

    3)

    微观层次:基本物理现象与机理,如金属材料凝固时的结晶与晶粒生长

    过程。宏观与界观层次的数值模拟方法包括:

    1)

    有限差分方法

    (Finite Difference Method, FDM)

    :微分方程的直接离散

    方法

    ;

    2)

    有限元单法

    (Finite

    Element

    Method,

    FEM)

    :用有限尺度的单元的集合来

    代替连续体,

    分为

    Lagrange

    方法,

    Euler

    方法,

    ALE

    方法

    ;

    3)

    边界单元方法

    (Boundary Element Method, BEM)

    :一种半解析方法

    ;

    4)

    有限体积方法

    (Finite Volume Method, FVM)

    :把空间划分成有限尺度的

    体积单元,连

    续体通过这些在空间上固定的体积单元,单元的空间位置不变

    ;

    5)

    无网格方法

    (Meshless Method)

    :只布置结点,不需要划分单元网格,有

    权函数。

    微观层次的数值模拟方法包括:

    1)

    第一原理法

    (First

    Principle

    Simulation)

    :量子力学方法,直接计算原

    子的电子结构

    ;

    2)

    元胞自动机方法

    (Cellular Automata)

    :把空间用元胞演化、元胞的局部

    相互作用来描述复杂的、全局的系统。

    3)

    蒙特卡洛方法

    (Monte Carlo Method )

    :把颗粒运动定义为随机过程,用

    势能的变化来

    判断颗粒运动能否被接受。

    4)

    分子动力学方法

    (Molecular Dynamics)

    ,分为经典方法、嵌入原子模型

    (Embedded Atom

    展开全文
  • 水环境数值模拟应用与前沿问题研讨
  • 流体力学数值模拟

    2019-03-18 13:29:51
    流体力学数值模拟,本书介绍了采用差分方法求解流体力学方程、数值模拟各种绕流流场的工作及不同类型的分离流流场的计算结果。 已打好书签
  • 预应力协同支护数值模拟,李元,李波,针对某矿深部巷道支护现状,提出预应力协同支护思想。文章采用数值模拟方法,对锚杆、锚索的协同支护进行研究;数值模拟设置锚杆
  • 海洋数值模拟

    2014-10-15 21:59:53
    数值计算原理,分析海洋数值计算原理和方法,介绍海洋数值模拟流行模式
  • 超声波声场数值模拟
  • 参激屈曲梁非线性现象的数值模拟rar-参激屈曲梁非线性现象的数值模拟.rar 参激屈曲梁非线性现象的数值模拟.rar
  • 直接数值模拟DNS

    2019-04-21 19:51:11
    ——————————直接数值模拟DNS教材与书籍——————
  • 镍氢电池的数值模拟

    2021-02-03 13:54:06
    镍氢电池的数值模拟、电子技术,开发板制作交流
  • 油藏数值模拟资料

    2018-07-24 12:07:35
    油藏数值模拟,关于石油工程的资料,入门级别的资料,
  • 地震波数值模拟

    2019-04-11 17:08:17
    利用波动方程对地震波传播进行数值模拟,利用MATLAB实现。同时还可研究不同速度及地层密度时地震波的传播。
  • 气浮池数值模拟初探

    2020-02-24 19:45:01
    气浮池数值模拟初探,黄博,,本文利用CFD技术对气浮池的分离段流场进行了二维数值模拟,对不同池型的运行工况进行了比较分析,得出了合理的结果。说明CFD技术应
  • 湍流数值模拟

    2014-09-03 10:53:11
    湍流数值模拟的经典文档,大涡模型和离散涡模型
  • 行波管中噪声的数值模拟
  • 地震数值模拟

    2015-10-21 10:24:46
    地震勘探 数值模拟 正演 matlab 程序 波动方程正演 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE ...
  • 基于ABAQUS的数值模拟,基于ABAQUS的数值模拟课件,基于ABAQUS的数值模拟PPT
  • 油藏数值模拟技术

    2014-10-30 09:32:23
    油藏数值模拟技术
  • 热加工过程的数值模拟 ABAQUS等软件应用 实例分析 铸造过程的数值模拟
  • 数值模拟模拟分支分支角度的逐渐变化对动脉血流的影响
  • 校园二氧化碳分布数值模拟,许小龙,曾忠,本文以沈阳建筑大学校园内二氧化碳分布为研究对象,运用计算流体力学数值模拟方法对校园内二氧化碳分布进行风模拟计算,采用组分
  • 数值模拟软件

    2013-01-18 10:06:36
    用来做数值模拟的软件,flac3d,用起来很好用,主要做采矿方面的模拟
  • 矩形管挤压过程数值模拟,唐妍,高锦张,本文以Al6063矩形管为例,分别利用有限元法和有限体积法对矩形管平面分流模挤压过程进行数值模拟分析,比较了2种模拟方法针对矩形�
  • 地震波场数值模拟

    2018-07-06 16:49:42
    本章先分析说明伪谱法求解波动方程的算法原理,再给出弹性波场伪谱法数值模拟的改进算法;然后,通过直接引入P波波场变量和S波波场变量,给出可实现弹性波场的P波和S波分解的波动方程,并用伪谱法实现弹性波场的P波...
  • 裂纹数值模拟

    2014-11-18 16:27:16
    沥青混合料裂纹发展过程的颗粒数值模拟,为了在细观尺度下描述沥青混合料的裂纹发展行为,运用离散元程序PFC2D内置“Fish”语言,重构了沥青混合料非均质(集料、胶浆和空隙)多层次(矿料级配)结构虚拟试件
  • 电厂粉煤灰场渗流数值模拟,纪佑军,刘建军,通过对灰坝的稳态及非稳态渗流数值模拟计算分析了在两种情况下渗透压力,水头变化规律及其对灰坝边坡稳定性的影响。数值模拟采用�

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 17,243
精华内容 6,897
关键字:

数值模拟