Mein MATLAB Forum - goMatlab.de

Mein MATLAB Forum

 
Gast > Registrieren       Autologin?   

Bücher:

Elektrotechnik für Informatiker mit MATLAB und Multisim

Studierende:
weitere Angebote

Partner:


Vermarktungspartner


Forum
      Option
[Erweitert]
  • Diese Seite per Mail weiterempfehlen
     


Gehe zu:  
Neues Thema eröffnen Neue Antwort erstellen

vba in matlab umwandeln

 

roskiki
Forum-Newbie

Forum-Newbie


Beiträge: 1
Anmeldedatum: 25.05.19
Wohnort: ---
Version: ---
     Beitrag Verfasst am: 25.05.2019, 13:18     Titel: vba in matlab umwandeln
  Antworten mit Zitat      
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_)

ExcellTEmp.m
 Beschreibung:

Download
 Dateiname:  ExcellTEmp.m
 Dateigröße:  5.76 KB
 Heruntergeladen:  153 mal
ExcellTEmp.mlx
 Beschreibung:

Download
 Dateiname:  ExcellTEmp.mlx
 Dateigröße:  7.01 KB
 Heruntergeladen:  80 mal
Private Nachricht senden Benutzer-Profile anzeigen


Neues Thema eröffnen Neue Antwort erstellen



Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:

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
.


goMatlab ist ein Teil des goForen-Labels
goForen.de goMATLAB.de goLaTeX.de


 Impressum  | Nutzungsbedingungen  | Datenschutz  | Werbung/Mediadaten | Studentenversion | FAQ | goMatlab RSS Button RSS


Copyright © 2007 - 2020 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks
Partner: LabVIEWforum.de

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.