Как моделировать сбои и вытеснения в библиотеке флюидов

Question

Как моделировать сбои и вытеснения в библиотеке флюидов

Решение найдено.

Function Set_Row_ID()

    Dim db As DAO.Database
    Dim Tbl As DAO.Recordset
    Dim sql As String
    Dim Row_Counter As Integer
    Dim Total_Row As Integer

    Set db = CurrentDb

    'Initialising Row Counter variable
    Row_Counter = 1

    sql = "SELECT [Tbl - HOP Loan Data].[Row ID] FROM [Tbl - HOP Loan Data];"
    Set Tbl = db.OpenRecordset(sql, dbOpenDynaset)

    With Tbl
        Do Until Tbl.EOF
            If Row_Counter <= Total_Row Then
                sql = "UPDATE [Tbl - HOP Loan Data " & _
                    "SET [Row ID] = " & Row_Counter & _
                    "Where [Row ID] < " & Row_Counter & " ;"
                db.Execute (sql)
                Row_Counter = Row_Counter + 1
            End If
            .MoveNext
        Loop
    End With

End Function

0

fluid anylogic

задан Mohammad Tabesh 18 January 2019 в 18:55

1 ответ

Другие вопросы по тегам:

fluid anylogic

Похожие вопросы:

score 0 · Answer 1

Вам нужно будет создать свой собственный ресурсный агент, который будет действовать как насос, без использования блока сбора жидкости.

Блок захвата не очень сложно смоделировать самостоятельно, поскольку он просто перемещает жидкость из вашего ресурса к агенту, который нуждается в жидкости (используя блоки ввода жидкости и выхода жидкости).

С учетом вышесказанного у вас будет ресурс, который работает как любой другой с ошибками ... и вы можете создать логику, чтобы что-то делать с агентом, который не получил всю требуемую жидкость. [ 112]

Резюме: Это может быть слишком много, чтобы показать вам полную рабочую модель здесь, но урок здесь не в том, чтобы использовать блок захвата жидкости. Вместо этого имейте источник жидкости внутри вашего ресурса (так как ваш ресурс - насос) и перемещайте его вместе с блоками входа и выхода жидкости.