Автор работы: Пользователь скрыл имя, 30 Ноября 2012 в 13:15, лабораторная работа
Задание
Разработать программу для виртуальной лабораторной работы по дисциплине “Теория сварочных процессов” раздел “Сварка в среде защитного газа”.
1. Постановка задачи………………………………………………………………………………….…..4
2. Физическо-математическая модель……………………...…………………..................4
3. Метод и алгоритм численного решения…………………….………………………….....5
4. Постановка лабораторной работы……………………………………………………………..8
|
Рис. 3. Геометрические параметры дугового промежутка
|
Из капли в электрод возникает тепловой поток мощностью
Этот тепловой поток вызывает плавление электрода, что вызывает нарастание текущего объёма капли VK со скоростью
,
где HL – удельная теплота плавления.
Текущий диаметр капли определяется её объёмом
Длина дуги
скачкообразно увеличивается
В момент соприкосновения
поверхностей ванны и капли начинается
процесс формирования общей поверхности
под действием сил
где - масса капли, - сила поверхностного натяжения, - электромагнитная сила, зависящая от радиуса контакта капли с ванной
Рис.4. Изменение размеров и расположения центра тяжести капли на разных стадиях короткого замыкания
Процесс поглощения капли ванной имеет три характерных значения расположения центра тяжести:
- момент изменения направления
действия электромагнитной
- начало формирования шейки между каплей и электродом, - полное отделение капли от электрода и возбуждение дуги
Длительность короткого
Отрыв капли
без короткого замыкания
,
где g – ускорение свободного падения, a - угол наклона электрода относительно вектора силы тяжести.
Решение этого неравенства позволяет определить значение диаметра капли, при котором она будет оторвана от электрода.
Отрыв капли силой реактивной отдачи пара возможен, если температура поверхности капли достигнет температуры кипения металла. Температура капли на поверхности определяется по её среднему значению
Для воспроизведения процесса возбуждения дуги описанная система уравнений модели использованы следующие начальные условия
Образец оформления отчёта
Численное решение. Численное решение системы уравнений модели выполнено с шагом времени dt=0.1 мс и реализовано компьютерной программой TransientSim. Исходные данные этой программы и результаты расчёта средних значений показателей процесса приведены в табл.1.
Табл.1. Исходные данные и результаты имитации процесса переноса электродного металла при дуговой сварке в углекислом газе проволокой из малоуглеродистой стали
Исходные данные: | |
Диаметр проволоки, мм |
1,2 |
Длина вылета электрода, мм |
12 |
Скорость подачи, мм/сек |
100 |
Скорость сварки, мм/сек |
5 |
Напряжение холостого хода, В |
26 |
Индуктивность источника, мГн |
1 |
Сопротивление источника, Ом |
0,04 |
Результаты расчета: | |
Потребляемая мощность, Вт |
4925 |
Мощность процесса, Вт |
3339 |
Мощность дуги на электроде, Вт |
1326 |
Мощность тепловыделения в вылете электрода, Вт |
136 |
Ток дуги, А |
189 |
Напряжение дуги, В |
17,7 |
Максимальная длина дуги, мм |
2,54 |
Средняя длина дуги, мм |
0,963 |
Минимальная длина дуги, мм |
0 |
Температура подогрева вылета электрода током, 0C |
239 |
Сопротивление вылета, мОм |
4,13 |
Температура капель, 0C |
2392 |
Диаметр капель, мм |
1,4 |
Длительность короткого |
1,29 |
Период следования коротких замыканий, мс |
16 |
Программа TransientSim воспроизводит результаты расчётов в виде диаграмм изменения параметров процесса во времени после первоначального короткого замыкания электрода на деталь. Результаты решения, полученные при разных значениях параметров процесса сварки в CO2, представлены на рис.5…7.
Моделирование
процесса сварки тонкой проволокой от
источника с очень жесткой
характеристикой и малой
Увеличение диаметра проволоки и сопротивления сварочной цепи позволяет получить устойчивый режим горения дуги. При низком напряжении холостого хода источника питания процесс протекает с периодическими короткими замыканиями, рис.6.
Увеличение напряжения холостого хода вызывает удлинение дуги и переход к капельному переносу без коротких замыканий, рис.7.
Рис.5. Результат имитации процесса возбуждения дуги при диаметре электродной проволоки 0,8 мм, длине вылета 10 мм, скорости подачи 60 мм/с при питании дуги от источника с напряжением холостого хода 30 В, сопротивлении 0,02 Ом и индуктивности сварочной цепи 1 мГн, скорость сварки 10 мм/с
Рис.6. Результат имитации процесса возбуждения дуги при диаметре электродной проволоки 1,2 мм, длине вылета 12 мм, скорости подачи 100 мм/с при питании дуги от источника с напряжением холостого хода 26 В, сопротивлении 0,04 Ом и индуктивности сварочной цепи 1 мГн, скорость сварки 10 мм/с.
Рис.7. Результат имитации процесса возбуждения дуги при диаметре электродной проволоки 1.2 мм, длине вылета 12 мм, скорости подачи 100 мм/с при питании дуги от источника с напряжением холостого хода 32 В, сопротивлении 0.04 Ом и индуктивности сварочной цепи 1 мГн, скорость сварки 10 мм/с.
Рабочее задание: построить область допустимых значений сопротивления сварочной цепи в зависимости от скорости подачи электродной проволоки для различных диаметров электрода, на которой выделить область устойчивости процесса и область переноса с периодическими коротками замыканиями.
Указания по выполнению задания:
Содержание отчёта
Приложение А
unit Preprocessor;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, pmSpin, Math,IniFiles, Menus;
const
//Ko_tkz=1000;// коэффициент, регулирующий длительность короткого замыкания
//STT=4;//Признак включения STT 1-без импульса КЗ, 2 - с импульсом КЗ 3-ток капли без импульса кз
//Time_Imp=0.02;//sek, длительность импульса, формирующего каплю
//Time_Zad=0.0015;//сек, время задержки подачи импульса при коротком замыкании
//Tok_0=40;// А, ток дежурной дуги
//Tok_Kap=270; //Ток плавления капли
//Tok_kz=350;//Импульс тока короткого замыкания
dt = 0.00005;//шаг по времени, сек
U0 = 14;//В, падение напряжения в приэлектродных областях дуги
Uel_max = 8;//В, эффективное напряжение
Uel_min=6;
Temkip = 2800;//град., температура кипеня металла электрода
Tpl = 1450;//град., температура плавления металла электрода
Q = 50;//В/cм, напряженность эл. поля в столбе дуги
g = 981;//cм/сек^2, уск. св. падения
plot = 7.85;//плотность материала, г/cм^3
sigma = 0.01;///100;//кф пов. натяж, Н/cм
//ntr = 0.50000;//кф внутр. трения распл.
стали?????????????????????????
nd = 0.8;//кпд дуги
lamb = 0.34;//кф теплопроводности, Вт/(cм*К)
k0 = 2.0E-09;//Н/А^2/см электродинамический коэф. давления тoка
Cg = 4.5;//(10)Удельная объемная теплоемкость металла электрода, Дж/см^3*K
C1g = 2000;//(1610)Удельная теплота плавления металла электрода, Дж/см^3
C2g = 4.5;//(6.1)Удельная объемная теплоемкость металла электрода в расплавленном состоянии, Дж/см^3*K
alfa1 = 0.0035;//1/град
alfa2 = 0.0015;//1/град
ro0 = 20E-6;//Ом*см
T0 = 20;
e = 2.71828;
//TokKZ=900;
im = 100;
jm = 100;
type
TMas = array[0..im,0..jm] of single;
var
{ PrepF: TPrepF;
TokMid, NapMid, TemKapMid,TemVyl,TkzMid,N_kz,
Per_kap, Per_kz,LdMid, LdMin, LdMax, PowSw, PowDuEl, PowVyl, PowObh,
Vkap,Dkap,D_otr, TemKap,t_kz,
de,L,Rist,R,Vp,Vcv,lv,time,t,
Tok,Vpl,Ld,Ls,Ldn,Lvan,
B,Ps,w,ff,Uxx,Ud,qn,Fe,dx: single;
Rvyl: single;}
Tim_Imp_kz:single=0;//
stad_proc:byte=0;
KZ_pri:byte=0; //Признак приварки электрода
PrepF: TPrepF;
Dol_El,Dol_Kz,Dol_Vap:single;
TokMid, NapMid, TemKapMid,TemVyl,TkzMid,N_kz,
Per_kap, Per_kz,LdMid, LdMin, LdMax, Pow_vap, PowSw, PowDuEl, PowVyl, PowObh,
R_kap,Vkap,Dkap,D_otr, TemKap,t_kz,
de,L,Rist,TokKZ,R,Vp,Vcv,lv,
Uel_ef,Tok,Vpl,Ld,Ls,Ldn,Lvan,
B,Ps,w,ff,Uxx,Ud,qn,Fe,dx: single;
H,MasW,Rvyl, Time_Imp,
Time_Zad, Tok_0, Tok_Kap: single;
Tok_KZ:single=350;
{ Tez,} Te, ro: array [0..100] of single;
Res: array [0..10,0..10] of single;//Результаты
i,j,k, STT: integer;
KzamDug,PizDug,Calc: boolean;
//////////////////////////////
kt: integer;
x0,y0,il,jl,ilik: byte;
Pluh,Rluh,Pmaxdt, Vw,TempPre,Bdt,KoefTepl,Tf1,
Lam,Cro,Tisp, Tli, Tso,dy,dz,Lamdt,Vdt: single;
Mas, Temp, TemNew: TMas;
IImax, IImin, JJmin, JJmax: integer;
Pool_Width, Pool_Length: single;
//////////////////////////////
IniFile:TIniFile;
St, Strok: string;
Pss: integer;
procedure MainCalc;
var
Tok_kl,t_imp,R_kap_pr:single;/
time_fin_kz,
Kap,//признак отрыва капли
kvyl,iii:byte;
N_kap,iter:integer;
Z1,Z2,Z3,
LdL, Uel,
Pot_El,TemMax,TemKipKap,
Qkap,vPla,PowKa,xKZ,TKZ,
begin
PapamCicl;
For iii:=0 to 0 do
begin//цикл папметрического исследования
//Uxx:=18+iii;
//Lv:=0.5+0.2*iii;
//Rist:=0.01+0.01*iii;
//vp:=5+iii;
Tok:=0;//(Vp*Fe*(C1g+C2g*Tpl)/
Ud:=Uxx-Tok*Rist;
Uel:=Uel_min+(Uel_max-Uel_min)
Tok_kl:=Tok;
////////////////
if Ud<2*Uel then KZ_pri:=8 else KZ_pri:=0;
Stad_proc:=0;
t:=0;
t_imp:=0;
Kap:=0;
Qkap:=0;
D_otr:=de;//Диаметр отрыва
Dkap:=de/16;
Vkap:=de*de*de/16;//Текущий диаметр капли
Vpl:=Vp;
R:=Rist;
Ldn:=0; Ls:=0; LdL:=0; Ld:=0;
Tok:=0;
dx:=de;
kvyl:=round(lv/dx);
TemKipKap:=TemKip+C1g/Cg;//
iter:=round(time/dt);
TemMax:=Tpl;
Per_G:=0; Per_Vap:=0; Per_kap:=0; Per_kz:=0; Per_obr:=0; LdMid:=0; LdMin:=Lv; LdMax:=0;
PowSw:=0; PowDuEl:=0; PowVyl:=0; PowObh:=0; TokMid:=0; NapMid:=0; DkapMid:=0;
TemKapMid:=0; TemVyl:=0; TkzMid:=0; N_kz:=0; N_kap:=0; Pow_vap:=0; Pow_vap_mid:=0;
for k:=1 to 100 do Te[k]:=20;
PizDug:=True; //Не обрыв дуги - Горение или Короткое замыкание
KzamDug:=False; //Не короткое замыкание
DkPpre:=0;
TemKap:=Tpl;
for i:=0 to iter do //Главный цикл имитации
begin
t:=t+dt;
DkPpre:=Dkap; //Предыдущий размер капли
//Мощность тепловлохения
дуги с теплоотводом в
Uel:=Uel_min+(Uel_max-Uel_min)
if (Ld>0) or (Kap=1) then PowKa:=Tok*Uel-(TemKap-Te[1])*
else PowKa:={5*}Tok*Tok*R_kap{(ro[
TemKap:=(dKap*TemKip+de*Tpl)/(
VPla:=PowKa/(C1g+C2g*(TemKap-
//Объём капли
Vkap:=Vkap+vPla*fe*dt;
if i=iter then
Pot_El:=(TemKap-Te[1])*2/(dx+
if Vkap<fe*de/8 then
begin
Vkap:=fe*de/8;
vpla:=0;
end;
//Размер капли по оси электрода
if (Vkap>de/8*Fe) then Dkap:=de/8+(exp(ln (Vkap-de/8*Fe )/3))
else Dkap:=(Vkap/FE);
//Изменение длины дуги во времени
Ldn:=Ldn-(Vp-vpla)*dt+DkPpre-
Kap:=0;
//Энтальпия капли
Qkap:=Qkap+PowKa*dt;
TemKap:=(Qkap-c1g*Vkap)/(Vkap*
if TemKap<Tpl then TemKap:=Tpl;
TemMax:=2*TemKap-Tpl;
if TemMax>Temkip then
begin
Pow_vap:=(PowKa)*(TemMax-