|
|
| roskiki |
Forum-Newbie
|
 |
Beiträge: 1
|
|
|
|
Anmeldedatum: 25.05.19
|
|
|
|
Wohnort: ---
|
|
|
|
Version: ---
|
|
|
|
 |
|
Verfasst am: 25.05.2019, 12:18
Titel: vba in matlab umwandeln
|
 |
| |
 |
 |
ich brauche Hilfe ich muss diese VBA skript in Matlab schreiben:
anbei ist die VBA skipt und meine Matlab code
danke sehr im voraus
If anz < 0 Then
Ti0_mK = "-"
Exit Function
End If
If anz > 8 Then
Ti0_mK = "n. zul."
Exit Function
End If
Pi = 3.14159265358979 'Zahl pi (Konstante)
l = 0.1 'fiktive Matrizenlänge 1 [m], kürzt sich später raus
alpha_i = 1E+16 'Wärmeübergangskoeffizient Pressteil (Stahl) unendlich hoch [W/(m²*K)]
a40_lambda = 0 'a0-Wert für Kern hier angegeben, da sonst zu viele Elemente in Klammer oben (Variablenangabe)
Ai0 = Pi * di0 / 1000 * l 'Mantelfläche Kern-Innen-Durchmesser [m²]
Aa0 = Pi * da0 / 1000 * l 'Mantelfläche Kern-Außen-Durchmesser [m²]
Aa1 = Pi * da1 / 1000 * l
Aa2 = Pi * da2 / 1000 * l
Aa3 = Pi * da3 / 1000 * l
Aa4 = Pi * da4 / 1000 * l
Aa5 = Pi * da5 / 1000 * l
Aa6 = Pi * da6 / 1000 * l
Aa9 = Pi * da9 / 1000 * l 'fiktive Mantelfläche Außen Werkzeuaufnahme [m²]
T0_Start = 1
T1_Start = 1
T2_Start = 1
T3_Start = 1
T4_Start = 1
T5_Start = 1
T6_Start = 1
T7_Start = 1
T8_Start = 1
T9_Start = 1
Ti0_ = 0
Ta0_ = 0
Ta1_ = 0
Ta2_ = 0
Ta3_ = 0
Ta4_ = 0
Ta5_ = 0
Ta6_ = 0
Ta7_ = 0
Ta8_ = 0
Ta9_ = 0
T0 = Ta0_ - (Ta0_ - Ti0_) / 2
T1 = Ta1_ - (Ta1_ - Ta0_) / 2
T2 = Ta2_ - (Ta2_ - Ta1_) / 2
T3 = Ta3_ - (Ta3_ - Ta2_) / 2
T4 = Ta4_ - (Ta4_ - Ta3_) / 2
T5 = Ta5_ - (Ta5_ - Ta4_) / 2
T6 = Ta6_ - (Ta6_ - Ta5_) / 2
T7 = Ta7_ - (Ta7_ - Ta6_) / 2
T8 = Ta8_ - (Ta8_ - Ta7_) / 2
T9 = Ta9_ - (Ta9_ - Ta8_) / 2
While T0_Start > T0 + 0.5 Or T0_Start < T0 - 0.5
T0_Start = T0
'Wärmeleitfähigkeit [W/(m*K)] Kern bei vorliegender Temperatur im Kern
lambda_0 = a40_lambda * T0 ^ 4 + a30_lambda * T0 ^ 3 + a20_lambda * T0 ^ 2 + a10_lambda * T0 + a00_lambda
'Wärmeleitfähigkeit [W/(m*K)] 1. Arm.-Ring bei vorliegender Temperatur im 1. Arm.-Ring
lambda_1 = a41_lambda * T1 ^ 4 + a31_lambda * T1 ^ 3 + a21_lambda * T1 ^ 2 + a11_lambda * T1 + a01_lambda
lambda_2 = a42_lambda * T2 ^ 4 + a32_lambda * T2 ^ 3 + a22_lambda * T2 ^ 2 + a12_lambda * T2 + a02_lambda
lambda_3 = a43_lambda * T3 ^ 4 + a33_lambda * T3 ^ 3 + a23_lambda * T3 ^ 2 + a13_lambda * T3 + a03_lambda
lambda_4 = a44_lambda * T4 ^ 4 + a34_lambda * T4 ^ 3 + a24_lambda * T4 ^ 2 + a14_lambda * T4 + a04_lambda
lambda_5 = a45_lambda * T5 ^ 4 + a35_lambda * T5 ^ 3 + a25_lambda * T5 ^ 2 + a15_lambda * T5 + a05_lambda
lambda_6 = a46_lambda * T6 ^ 4 + a36_lambda * T6 ^ 3 + a26_lambda * T6 ^ 2 + a16_lambda * T6 + a06_lambda
lambda_7 = a47_lambda * T7 ^ 4 + a36_lambda * T7 ^ 3 + a27_lambda * T7 ^ 2 + a17_lambda * T7 + a07_lambda
lambda_8 = a48_lambda * T8 ^ 4 + a36_lambda * T8 ^ 3 + a28_lambda * T8 ^ 2 + a18_lambda * T8 + a08_lambda
'Summand_i = 1 / (alpha_i * Ai0) 'mit Konvektion in Kernbohrung
Summand_i = 0 'worst case: keine Konvektion auf Innenseite
Summand_a = 1 / (alpha_a * Aa9) 'mit Komvektion an Matrizen-Außendurchmesser
'Summand_a = 0 'keine Konvektion auf Außenseite
If anz >= 0 Then
Summand_0 = 1 / (2 * Pi * l * lambda_0) * Log(da0 / di0)
Else
Summand_0 = 0
End If
If anz >= 1 Then
Summand_1 = 1 / (2 * Pi * l * lambda_1) * Log(da1 / da0)
Else
Summand_1 = 0
End If
If anz >= 2 Then
Summand_2 = 1 / (2 * Pi * l * lambda_2) * Log(da2 / da1)
Else
Summand_2 = 0
End If
If anz >= 3 Then
Summand_3 = 1 / (2 * Pi * l * lambda_3) * Log(da3 / da2)
Else
Summand_3 = 0
End If
If anz >= 4 Then
Summand_4 = 1 / (2 * Pi * l * lambda_4) * Log(da4 / da3)
Else
Summand_4 = 0
End If
If anz >= 5 Then
Summand_5 = 1 / (2 * Pi * l * lambda_5) * Log(da5 / da4)
Else
Summand_5 = 0
End If
If anz >= 6 Then
Summand_6 = 1 / (2 * Pi * l * lambda_6) * Log(da6 / da5)
Else
Summand_6 = 0
End If
If anz >= 7 Then
Summand_7 = 1 / (2 * Pi * l * lambda_7) * Log(da7 / da6)
Else
Summand_7 = 0
End If
If anz >= 8 Then
Summand_8 = 1 / (2 * Pi * l * lambda_8) * Log(da8 / da7)
Else
Summand_8 = 0
End If
'Verhalten in Werkzeugaufnahme
If anz = 0 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da0)
End If
If anz = 1 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da1)
End If
If anz = 2 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da2)
End If
If anz = 3 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da3)
End If
If anz = 4 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da4)
End If
If anz = 5 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da5)
End If
If anz = 6 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da6)
End If
If anz = 7 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da7)
End If
If anz = 8 Then
Summand_9 = 1 / (2 * Pi * l * lambda_9) * Log(da9 / da8)
End If
'Wärmestrom [W]
Q = (TiI - TaA) / (Summand_i + Summand_0 + Summand_1 + Summand_2 + Summand_3 + Summand_4 + Summand_5 + Summand_6 + Summand_7 + Summand_8 + Summand_9 + Summand_a)
'Temperaturen an Fugendurchmessern [°C]
'Ti0_ = TiI - Q / (alpha_i * Ai0) 'mit Konvektion in Kernbohrung
Ti0_ = TiI - 0 'worst case: Keine Konvektion in Innenseite
Ta0_ = Ti0_ - Q / (2 * Pi * l * lambda_0) * Log(da0 / di0)
Ta1_ = Ta0_ - Q / (2 * Pi * l * lambda_1) * Log(da1 / da0)
Ta2_ = Ta1_ - Q / (2 * Pi * l * lambda_2) * Log(da2 / da1)
Ta3_ = Ta2_ - Q / (2 * Pi * l * lambda_3) * Log(da3 / da2)
Ta4_ = Ta3_ - Q / (2 * Pi * l * lambda_4) * Log(da4 / da3)
Ta5_ = Ta4_ - Q / (2 * Pi * l * lambda_5) * Log(da5 / da4)
Ta6_ = Ta5_ - Q / (2 * Pi * l * lambda_6) * Log(da6 / da5)
Ta7_ = Ta6_ - Q / (2 * Pi * l * lambda_7) * Log(da7 / da6)
Ta8_ = Ta7_ - Q / (2 * Pi * l * lambda_8) * Log(da8 / da7)
Ta9_ = Ta8_ - Q / (2 * Pi * l * lambda_9) * Log(da9 / da8)
TaA = Ta9_ - Q / (alpha_a * Aa9) 'mit Konvektion an Matrizen-Außendurchmesser
'TaA = Ta9_ - 0 'Keine Konvektion an Außenseite
T0 = Ta0_ - (Ta0_ - Ti0_) / 2
T1 = Ta1_ - (Ta1_ - Ta0_) / 2
T2 = Ta2_ - (Ta2_ - Ta1_) / 2
T3 = Ta3_ - (Ta3_ - Ta2_) / 2
T4 = Ta4_ - (Ta4_ - Ta3_) / 2
T5 = Ta5_ - (Ta5_ - Ta4_) / 2
T6 = Ta6_ - (Ta6_ - Ta5_) / 2
T7 = Ta7_ - (Ta7_ - Ta6_) / 2
T8 = Ta8_ - (Ta8_ - Ta7_) / 2
T9 = Ta9_ - (Ta9_ - Ta8_) / 2
Wend
Ti0_mK = Int(Ti0_)
| Beschreibung: |
|
Download |
| Dateiname: |
ExcellTEmp.m |
| Dateigröße: |
5.76 KB |
| Heruntergeladen: |
523 mal |
| Beschreibung: |
|
Download |
| Dateiname: |
ExcellTEmp.mlx |
| Dateigröße: |
7.01 KB |
| Heruntergeladen: |
449 mal |
|
|
|
|
|
|
|
|
|
Einstellungen und Berechtigungen
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen
|
|
Impressum
| Nutzungsbedingungen
| Datenschutz
| FAQ
|  RSS
Hosted by:
Copyright © 2007 - 2024
goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks
MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.
|
|
