Acero - Calculo Tamaño de Soldadura
Cargado por
Jorge PenichéAcero - Calculo Tamaño de Soldadura
Cargado por
Jorge PenichéESCUELA SUPERIOR POLITECHICA DEL LITORAL
Facultad de Ingeniera Mecnica
-I&$$pw-
CALCULO COMPUTARIZADO DEL TAMAWO
DE SOLDADURA
PROYECTO DE GRADO
Previa a la obtencin
del Ttulo de
INGENIERO MECANICO
Presentado por:
Jorge Eduardo h a r r e t e Loor
Guayaquil
- Ecuador
1992
AGRADECIMIENTO
A m i s padres
A m i s hermanos
A l ING. OMAR SERRANO
por
su valiosa colaboracion en
todo momento.
DEDICATORIA
A m i s padres
A m i s hermanos
todas
l a s personas
que c o n f i a r o n en m en
todo momento.
DECLARACION EXPRESA
"La responsabilidad
expuestas en
este
por
los
proyecto
hechos,ideas
de
Grado,
me
doctrinas
corresponden
exclusivamente; y, el patrimonio intelectual del mismo a
la ESCUELA SUPERIOR POLITECNICA DEL LITORAL".
(Reglamento de Tpico de Graduacin)
JORGE NAVARRETE LOOR
ING. OMAR SERRANO
DIRECTOR
FAC. ING. MECANICA
ING. JORGE DUQUE
MIEMBRO DEL TRIBUNAL
PROYECTO DE GRADO
ING. LUIS RODRIGUEZ
MIEMBRO DEL TRIBUNAL
Debido a que
los programas computacionales ofrecen una
informacion tcnica
invalorable, tanto
Ingenieros como
fabricantes reciben
los
los
beneficios
de
denominados
programas EXPERTOS que sintetizan el conocimiento en uno
de los campos ms importantes de la Ingeniera como es el
de la Soldadura.
En particular, el uso de computadoras en el Diseo de \,
uniones soldadas
soldadura
para
apropiado del
permite
obtener
los
esfuerzos
en
la
luego calcular de esta forma el tamao
cordn.
En el presente estudio se presentan diferentes tipos de
uniones soldadas, mediante los cuales se podr obtener el
tamao de soldadura adecuado en base a l o s parmetros que
el usuario deber establecer previamente.
Este programa
.aplica el cdigo AWS D1.1 para realizar sus clculos .
Se analizarn diferentes aplicaciones, en las cuales las
uniones
estarn
sometidos
esfuerzos
de
tensin
compresin, flexin y torsin- Se proceder a calcular
el
tamao mnimo de soldadura, para luego estimar el costo en
;,
base a los diferentes tipos de electrodos existentes en el
comercio nacional y al proceso de soldadura que el usuario
seleccione.
El exceso en el tamao de soldadura es uno de los mayores
factores que eleva el costo de las uniones, por esto la
importancia de
los
mtodos
computacionales
determinacin exacta del tamao del cordn.
en
la
INDICE GENERAL
CAPITULO 1
INTRODUCCION TEORICA
1.1 Fundamentos del diseo de soldadura
. _ . _ . _ . _ .1_
4:. . .
1.1.2 Ventajas ...................................
15.
... , ' ".
1.1.3 Tipos de uniones soldadas segn la A.W.S ... 17
1.2 Tamao de la soldadura _ . _ _ _ _ ~ . _ _ . . _ . .21
...._~.
1.3 Influencia del tamao de soldadura en el costo ... 26
1.4 Recomendaciones del AISC aplicables
la soldadura
....................................
1.5 Clculo de cargas y esfuerzos en soldadura
1.6 Frmulas especficas de esfuerzo
1.6.1 Soldaduras fileteadas para
28
- - - - - . . - - . . . .34
-.conecciones
angulares .................................
1.6.2 Soldaduras
fileteadas
27
para
35
cargas
__---.excntricas . _ _ . _ . _ _ . . . _ _ _ . _ _ _38
1.7 Esfuerzos permisibles
soldaduras
para
el
diseo
de
......................................
1.7.1 Soldaduras para
41
estructuras de edificios.. 42
1.7.2 Soldaduras para
estructuras de puentes.... 43
1.7.3 Soldaduras para estructuras sujetas
fatiga.....................................
1.8 Clculo del costo de la soldadura
44
.........-..... 47
CAPITULQ 11
CALCUIX) COMPUTARIZADO DEL TAMAO DE SOLDADURA APLICANDO
EL CODIGO AWS Dl-1.
2.1 Importancia de los mtodos computacionales en
este campo .......................................
2.2 Descripcin del programa
2.2-1 Diagramas de flujo
- . . . _ . _ _ . . . . _ . _ _ 52
.__..-.. . . . . . _ . . . _ . _ _ . _ . _52
.._--...
2.2.1.1 Subrutina para el
datos
51
ingreso de
..._.--_.-_......_-._------.I
54
2.2.1.2 Subrutina para
esfuerzos
el
clculo de
. . - . - - . . _ - . - . _ . _ . . _56. . . - . -
2.2.1.3 Subrutina para deteminar el tamao mnimo de soldadura
. _ . . _ . _59
_..
2.2.1.4 Subrutina para convertir el tamao de soldadura en fraccin
2.2.1.5 Subrutina de
resultados
2.2.2 Manual de operaciones
- . . . _62
presentacin de
l.._.._.____.___l6
_3
_.....
. . _ . . . _ _ . _ . . . _ _ . . . _67_ _ - I . .
C A P I W 111
APLICACIONES DEL PROGRAMA
3.1 Soldaduras sometidas a esfuerzos de flexin y
corte
........................................... 75
3.2 Soldaduras sometidas a
esfuerzos
de flexin
corte y tensin ..................................
CAPITULO
87
CONCLSIONES Y RCOMKNDACIONES _ _ _ _ _ _ _ _ _ - _ _ _ _ _ _ _ _ _ 103
___
APENDICR
BIBLIOGRAPIA
INDICE DE FIGURAS
1.- Tipos de soldaduras.
2.- Tipos de juntas.
3.-
Cordn de soldadura de borde desigual.
4.- Cordn de soldadura de igual borde.
5.- Tamao de filete soldado desigual -
-,;.cd;
t !
6.- Tamao de filete soldado igual.
7.- Tipos de cargas en una soldadura.
8.- Propiedades de las uniones soldadas tratadas como
lineas.
9--
Soldadura fileteada para conecciones angulares.
10.- Soldadura fileteada para cargas excentricas.
11.- Tipos de categoras en uniones para puentes.
l Z - - Rango de esfuerzos para
diferentes estructuras en
puentes.
13.- Soldadura sometida a esfuerzos de flexion y corte.
,.
14.- Clculo del costo de soldadura.
,
ig
$#.
'
15.- Tamao de soldadura
16.- Influencia de carga y angulo en el tamao de la
soldadura tipo 2 .
17.- Influencia de carga y ngulo en el tamao de la
soldadura tipo 3.
18.- Soldadura sometida a esfuerzos de flexin y corte.
19.- Clculo del costo de soldadura.
20.- Tamao de soldadura .
21.- Tamao de soldadura para tipo 1.
XI 1
22.- Tamao de soldadura para tipo 3.
23.- Soldadura sometida a esfuerzos de flexin, corte y
.
_._
tensin.
24.-
Clculo del costo del proceso.
25.- Tamao de soldadura
26.-
Influencia
de
carga
ngulo
en
tamao
de
la
ngulo
en
tamao
de
la
ngulo
en
tamao
de
la
soldadura tipo 1.
27.- Influencia
de
carga
soldadura tipo 3.
28.- Influencia
de
carga
soldadura tipo 4 .
29.- Soldadura sometida a esfuerzo de flexin, corte y
tensin.
30.- Clculo del costo de soldadura.
31.- Tamao de soldadura.
32.- Tamao de soldadura para tipo 3.
LISTA DE ABREYIATURAS
AISC
- American Institute of Steel Construction.
AW S
- American Welding Society.
- Fuerza aplicada en la soldadura.
Ex
- Excentricidad de la fuerza con respecto al eje X.
EY
- Excentricidad de la fuerza con respecto al eje
Ez
AW
- Area de soldadura.
- Longuitud de la soldadura.
Ix
- Momento de Inercia en
X.
IY
- Momento de Inercia en
Y.
Jw
- Momento polar de inercia; J= Ix+Iy.
Y.
Excentricidad de la fuerza con respecto al eje Z.
Distancia del centro de gravedad a diferentes
puntos -
- Mdulo de seccin; C= I/C.
Momento;
producto
de
la
fuerza
por
la
excentricidad.
Esfuerzo aplicado en la soldadura; este podr ser
de flexin, torsin. traccin o de corte.
M C/ 1.
Qf
- Esfuerzo de flexin; Qf=
Qt
- Esfuerzo de torsin: Qt= T C / J.
Qtn
- Esfuerzo de tensin: Q=F/Aw.
Qc
- Esfuerzo de compresin; Q=F/Aw.
Qr
- Esfuerzo resultante-
CAPITULO 1
INTRODUCCION TEORICA
FNDAMENTOS DEL DISEO DE SOLDADURA
1 1
En el
diseo
de
una
unin
soldada
siempre
ser
necesario establecer de antemano la funcin que ir a
desempear la
parte
estructura
propuesta,
la
transferencia de carga,las condiciones ambientales y
las restricciones fsicas
impuestas por
el
mismo
proceso de soldadura.
La mayora de l o s diseos en soldadura estn basados
en un anlisis de l o s esfuerzos aplicados sobre la
la unin soldada.
El criterio para el diseo de uniones soldadas es
mantener l o s esfuerzos calculados dentro del esfuerzo
de trabajo permisible, este ser el mximo nivel de
esfuerzos necesario para disear.
El programa que
se
presenta en el siguiente trabajo
ayuda a disear las uniones
soldadas en base
a las
15
especificaciones dictadas
el
por
cdigo
de
la
AWS.
1- 1 1
IMPORTANCIA
En la actua1,dad
se ut liza mucho los procesos de:
unin de piezas mediante soldadura para operaciones
de manufactura.
Siempre que
se
w@+
tenga
que
unir
ensamblar las
partes de un dispositivo se tiene que considerar un
proceso de soldadura antes de realizar el diseo
preliminar. Una de las principales caractersticas
de la soldadura es que la unin ofrece excelente
resistencia y rigidez. (REF.1)
Una unin soldada resiste ms cargas
minimiza la
localizacin de esfuerzos, de tal manera que la
eficiencia
la economa pueden ser consideradas en
el ensamblaje de materiales. La
soldadura tambien
puede ser diseada para equiparar los esfuerzos en
las piezas de metal a ser unidas
1 - 1 - 2 VENTAJAS
Una de las ventajas de la soldadura est en e l rea
de
la
economa, ya
que
el
uso
de la soldadura
16
permite grandes ahorros en el peso del material
utilizado. Las
estructuras
utilizadas
permiten
eliminar un gran porcentaje de las Flacas de unin
y
de empalme, tan necesarias en las estructuras
remachadas o empernadas, as como la eliminacin de
las cabezas de remaches o tornillos.(REF 2).
Las estructuras
soldadas
rgidas, porque
los
soldados
miembros
directamente
para estructuras
son
uno
estructuras
normalmente
ms
estn
a otro. Las conexiones
remachadas
generalmente
se
realizan a travs de ngulos de conexin o placas
que se deforman debido a la transferencia de carga,
haciendo ms flexible a la estructura (REF 2).
El proceso
de
unir
estructuras sean
las
partes
realmente
hace
que
las
continuas,
esto
se
traduce en la construccin de una pieza.
Debido a que las juntas soldadas son tan fuertes o
ms que el metal base, no se presentan
restricciones en las uniones.
Es ms
fcil
realizar
cambios en
corregir errores durante el montaje
costo) si se usa soldadura
el
diseo
(y a menor
17
Se requiere menos precauciones de seguridad para el
pblico en reas congestionadas en comparacin con
las necesarias
para
una
estructura
remachada
donde el uso de estos es indispensable.
1-1-3- TIPOS DE UNIONES SOLDADAS SEGUN LA A - W - S -
Existen tres tipos de uniones, las mismas que se
describirn en
estn basadas
los
siguientes
p6rrafos,
en el tipo de soldadura
estas
realizada
posicin de la soldadura y tipo de junta.(HEF 21.'
Los
dos
tipos
las soldaduras
principales
de soldaduras son
filete
las soldaduras a
de
tope. Existen adems las soldaduras de tapn y de
ranura, que
no
son
comunes
en
el
trabajo
estructural. Estos cuatro tipos de soldaduras se
muestran en la figura(1)-
Las soldaduras de filete han demostrado ser ms
dbiles que las soldaduras a tope; sin embargo, la
mayora de
las
conexiones
estructurales
realizan con soldaduras de filete.
se
18
SOLDADURA DE FILETE
SOLDADURAS A TOPE
SOLDADURA
DE RANURA
SOLDADURA DE PUNTO
SOLDADURA DE FILETE
TIPOS DE SOLDADURAS
FIGURA 1 (REF. 2 )
19
De acuerdo a su posicin se clasifican en:planas
horizontales, verticales
las
sobre cabeza, siendo
las ms econmicas y las sobre cabeza
planas
las ms costosas.(REF 2 ) .
Las soldaduras tambin se clasifican de acuerdo
con el tipo de junta usado: a tope, traslapada en
te, de
canto, en
esquina, etc. Estos
tipos
de
juntas se presentan en la FIGURA (2)-
Desde
el
punto
impacto y a
de
vista
de la resistencia al
esfuerzos cclicos y la cantidad de
metal de aporte requerido; las soldaduras
son preferidas a las soldaduras de
embargo en
la
gran
estructurales se
filete.
mayora
prefiere
de
que
a tope
filete, sin
las soldaduras
estas
sean
de
Probablemente la mayor desventaja de la
soldadura a tope es el problema que representa la
preparacin de las piezas para su ensamble .
Las soldaduras de filete son ms resistentes a 1::
tensin
a la compresin que al corte.
sea necesario
usar
soldadura
de
Cuando
filete
es
conveniente arreglar las conexiones, de modo que
estn sometidas a esfuerzos de corte, y no a la
combinacin de
compresin.
corte
tensin, o
de
corte y
20
A TOPE
TRASLAPADA
EN TE
DE CANTO
EN ESQUINA
TIPOS DE JUNTAS
FIGURA 2 (REF-2)
21
1-2 TAMAO DE LA COLDADURA
Debido a que l o s esfuerzos dependen de la orientacin
de la superficie sobre la cual actan las fuerzas, un
rea dentro de la soldadura es escogida para ser el
rea efectiva
de
soldadura
para
el
clculo
de
esfuerzos. Esta asuncin simplifica el procedimiento
de clculo para esfuerzos en soldadura.
El cdigo AWS define que el rea efectiva de la
garganta de un filete soldado es igual a la longitud
efectiva de la soldadura por la garganta efectiva.
La garganta efectiva est
distancia desde
definida como
la raz del
superior del mismo.
la menor
cordn hasta
la cara
(RF.F 3)-
De acuerdo al cdigo AWS,
el tamao de soldadura de
un filete soldado es medido por el mayor tringulo
rectngulo que puede ser inscrito dentro del cordn.
Esta definicin permite cordones de
bordes desiguales (FIGURA 3). La AWS
soldaduras de
estipula que el
mayor tringulo inscrito debe ser issceles limitando
de esta manera que el tamao de soldadura (W) del
filete sea igual(F1GURA 4 ) . En estas figuras se puede
comparar el incremento de metal de aportacin.
22
incremento de la garganta
efectiva. 1262 t
incremento de
metal soldado
1'
2w
FiGURA 3 (REF 3)
CORDON DE SOLDADURA DE BORDE DESIGUAL
incremento de la garganta
efectiva= 1262 t
incremento de
metal soldado
1262 W
FIGURA 4 (REF 3)
CORDON DE SOLDADURA DE IGUAL BORDE
Los lados desiguales
del filete
soldado son muchas
veces utilizados para obtener un rea adicional de
garganta cuando el tamao vertical de la soldadura no
puede ser incrernentado (FIGURA 5 ) -
Cuando el espacio lo permite, una forma ms eficiente
de obtener
el
mismo
incremento
en
el
rea
de la
garganta o resistencia es incrementar ambos bordes
del cordn para mantener un tamao de filete soldado
igual con
(FIGURA 6
un
)-
menor
En
incremento
ambas
en
figuras
metal
se
de aporte
aprecia
la
comparacin de bordes de un cordn de soldadura.
La longitud efectiva de soldadura est definida como
la longitud de la soldadura a todo lo largo de la
garganta del filete, incluyendo los retornos en sus
extremos.
En uniones conectadas
slo por
filetes
cordones
soldados, el tamao mnimo de soldadura corresponde a
lo establecido en la TABLA 1. Este est determinado
por el espesor de la placa ms gruesa a soldarse;
pero no tiene que exceder el espesor de la parte ms
delgada. Si se visualiza la conexin soldada como una
linea simple se puede asumir el rea soldada como la
longitud total del cordn.
24
B
FIGURA 6 (REF 3)
TAMAflO DE FILETE SOLDADO DESIGUAL
W
FIGURA 6 (REF 3
TAMARO DE FILETE SOLDADO IGUAL
'
.
,
v@,
,_-
I I
\WbI
\ i 1-1
TI
Tamao mni.mo de soldadura(AWS)
Tipo de Unin Espesor placa
ms gruesa
Soldadura
fileteada
Soldadura
acanalada
Tamao mlnimo
de soldadura
hasta 1/4" incl.
ms de 1/4" hasta 1/2"
ms de 112" hasta 314"
ms de 314" hasta 1 1/2"
ms de 1 1/2" hasta 2 1/4"
ms de 2 1/4"hasta 6"
ms de 6"
hasta 114 " incl.
ms de 1/4" hasta 1/2"
ms de 112" hasta 314"
mCis de 3/4"
1/8"
3/16"
1/4"
5/16"
318"
1/2"
5/8"
1/8"
31 16"
1/4"
5/16"
26
1-3 INPLENCIA DEL TAMAO DE SOLDADURA EN EL COSTO
El sobretamao en soldadura es uno de l o s factores
principales que elevan el costo de la misma. Es as
que para obtener un bajo costo se debe calcular el
tamao correcto de cordn para la unin.
Un buen mtodo para estimar costos debera dar el
costo final rpidamente e indicar que parte de la
En el manual
de
procedimiento
de
A
. >>-
obtener
el
peso
del
material
de aporte
requerido por unidad de longitud en lbs/pie- Si no se
dispone de las tablas este clculo se puede realizar
-
manualmente obteniendo el rea transversal del cordn
de soldadura y multiplicndolo por la longitud de la
soldadura a aplicar dando como resultado el volumen
de soldadura.
Una
vez
calculado
el
volumen
de
soldadura este se multiplica por el peso espec
del material
de
aporte,
obtenindose el
material de aporte requerido.
E l peso del material de aporte
libra de
electrodo determinan el
.%
soldadura de la
Lincoln (REF 4), se presentan tablas, de las cuales
se puede
e,-.
..
operacin es la ms cara.
pes
?
el precio de la
costo total del
material de aportacin requerido en el proceso.
'- ,
27
Para obtener un
estudio completo del cost.0 de la
soldadura es necesario tomar en cuenta r l se utiliza
fundente y el tipo de gas a utilizarse, si el proceso
de soldadura lo amerita.
Tambin debe tomarse en
cuenta la tasa de deposicin
el precio por hora del
soldador.
El rea de la seccin transversal de una soldadura
generalmente vara
con el cuadrado del tamao de
soldadura (REF 3). Por ejemplo, realizar un filete
con tamao de soldadura de 5/16 pulgadas, cuando solo
requiere de 1/4 de pulgada, incrementa el tamao de
la soldadura en un 25% mientras que el rea aumenta
en un 56%.
1-4
RECOMENDACIONES DEL AISC APLICABLES A LA SOLDADURA
Entre las
recomendaciones
ms
importantes
establecidas por la sociedad americana de acero se
tienen:
1.- La longitud mnima de una soldadura de filete
no debe ser
menor de 4 veces la dimensin
nominal del lado de la soldadura.Si su longitud
real es menor
de este valor, el ancho de la
soldadura considerada efectiva debe reducirse a
1/4 de la longitud de la soldadura.(REF 2).
20
2.- El ancho mximo de una soldadura de filete, para
material de hasta 1/4", es de 1/4". Para planchas
ms gruesas, no debe ser mayor que el espesor de
la misma, menos 1/16", si es que la soldadura no
\
se arregla especialmente para dar un grueso
.'i
completo de la garganta.
'YI,
3.- L o s anchos mnimos de soldadura de filete estn
dados en la TABLA 1,
4.- Las vueltas de
reduccin de
ocurren en
extremo son muy tiles en la
concentraciones de
los
extremos
particularmente para
de
esfuerzos que
las soldaduras,
conexiones
vibracion considerable
donde
excentricidad
hay
en
la
carga.
1-5 CALCULO DE CAFGAS Y ESPUKRZOS EN SOLDADURA
La PIGuRA(7) muestra los 5 tipos de cargas a los que
puede estar
sometida
una
soldadura.
transversales, longitudinales,
momento,
Estas
torsin
son
y
cargas combinadas. (RBF 5).
En la FIGURA 7 - A se presenta una soldaduria a tope
bajo la accin de cargas transversales las cuales
transmiten la
tenain (o
compresin).
de
carga
travs
compresin,
si
de
la
un
mecanismo de
carga
est
en
29
&
CARGA
SOLDADURA
9JO FLEXION
(D)
SOLDADURA
SOLDADURA BAJO
BAJO TORSION
FLEXION Y
TORSION
TIPOS DE CARGAS EN UNA SOLDADURA
FIGURA 7 (REF.5)
30
En la FIGURA 7.B se presentan cargas longitudinales,
sin embargo es
aclarar que si la carga es
necesario
aplicada, sea esta en tensin o compresin a lo largo
de los bordes
de
la unin, la soldadura est en un
aspecto secundario y es usado solamente para mantener
la integridad de la unin, no hay
esfuerzos en
la
soldadura.
La FIGURA 7 - C muestra una unin soldada sometida a un
momento flector. Los momentos mximos de esfuerzos
ocurren tanto en la base como en la parte superior de
la soldadura, en
donde
se
realizan
los clculos
crticos del diseo.
La FIGURA 7 D muestra una soldadura bajo torsin la
cual est sometido a esfuerzos cortantes.
Para
soldadura circular, el esfuerzo cortante es uniforme
a lo
largo
La FIGURA
de
la
longitud
7 E muestra
combinadas.
de
soldadura.
las condiciones de carga
Todos l o s esfuerzos
ser tomados en cuenta
la
momentos deben
En una estructura soldada puede existir un nmero de
soldaduras que
transmiten
estructural a otro.
Los
la
carga
de un miembro
esfuerzos de reaccin.en
estas soldaduras son una respuesta a las cargas en
DE INERCIll (pulg")
31
J r dW12
Sr d w 3
su=-
4bdtd
2
JU=
2
d
Sr b d t
6
Sr-
sr-
Jc--
PiM
4
(bt2d)
-3
JUZ
2
2
d (dtb)
(b+2d)
4(btd)
3
b
t -
3
2 5
b t3bd +d
Ju=
2
d
3
d (4btd)
JUZ
t -
12
2
d
6
(bid)
Jr
SU= 2db
b (btd)
(2btd)
12
Srbd
(2btd)
2
2bdtd
4bdtd
12btd)
Ju--
2
d
Sr b d t
3
su=-
4 22
(btd) -6b d
2b
2 3
6bd t d
Ju=
4 ;
pi+ d
PMPIEDADES DE LA SOLDADURA TFWTADA COMO LINEA (REF-1)
FIGURA 8
32
las reas combinadas de soldadura
L o s esfuerzos en soldadura son calculados en base a
la iteraccin
de
soldadura. L o s
cargas
reas
efectivas
de
esfuerzos resultan de cuatro tipos
\
bsicos de cargas:
tensin axial o carga de compresin, carga cortante,
carga de momento
carga torsional.(REF 5).
El mtodo normal usado en el clculo de esfuerzos es
dividir la carga en reas efectivas de soldadura para
la carga y
carga cortante. Para carga torsional y
flexionante , el momento y el torque es dividido por
mdulos de secciones del rea efectiva.
1
donde Qa
Qb
Qb=M/S 6 TC/J
son
los
1-2
esfuerzos
axial
de
flexin (o torsin) respectivamente.
P representa tanto la carga axial como laaarga
cortante.
T son el momento flexionante y momento de
33
torsin respectivamente.
S es el mdulo de seccin con respecto a la flexin
producida sobre el eje neutral del total efectivo
de rea soldadaEl valor
de
ser
obtenido
del
producto
del
momento de inercia 1 para C.
En la FIGURA 8 se presentan los momentos de inercia
y modulo
de
seccin
para
los
tipos
de uniones
soldadas.
J es el momento polar de inercia del rea total
sobre el centro de torsin.
C es la distancia desde el punto ms distante del
centro de torsin hasta dicho centro.
Aw es el rea total efectiva de soldadura.
El esfuerzo resultante Qr tiene componentes tanto
en
X,Y y Z. Qr
debe ser ms bajo que el esfuerzo
permisible establecido por
el cdigo de la AWS.
Ntese que Qz es una componente puramente cortante
dirigida a lo largo de la soldadura y que Qx y Qy
incluye tanto la componente normal como cortante.
El esfuerzo resultante es:
Br=(Qx-2+Qy^2+QzA2)^2
1-3
34
Los ejes x,y y z pueden ser orientados en cualquier
direccin arbitraria.
En los casos ms
prcticos, las
soldaduras son
reducidas en comparacin con su longitud.
En la prctica la soldadura puede ser tratada como
una lnea la cual tiene el mismo contorno que la
conexin.
En
vez
de
tratar
de
determinar
el
esfuerzo en la soldadura, el problema se vuelve ms
El clculo del tamao de soldadura depende del tipo
de electrodo a utilizarse
siendo su ecuacin la
siguiente:
WO=Qr/(0_3*RESISTENCIA MAXIMA*0_707)
1.6
1-4
FORMULAS ESPECIFICAS DE ESFUERZO
En esta seccin las frmulas de esfuerzos usadas para
uniones estructurales son presentadas.
35
1.6.1
SOLDADURAS FILETEADAS PARA CONECCIONES ANGULARES
La FIGURA 9 muestra una conexin angular simple
sometida a una carga axial se asume que la carga
acta a lo largo del eje neutro del ngulo.
formas de realizar
la conexin de
Dos
soldadura se
muestran en la figura 9. En el caso 1 se presentan
dos soldaduras longitudinales
longitudinales ms una
transversal deben
fuerza sobre
el
en el caso 2 dos
transversal. La soldadura
ser puestos para balancear la
eje
axial
eliminar
la
excentricidad cuando los miembros estn sometidos a
variaciones de
equilibrio de
esfuerzos.
fuerzas y
Las
condiciones
de
momentos
sobre el
eje
neutral de la esquina del miembro da el radio de la
longitud de los dos soldaduras longitudinales.
Para las dos soldaduras longitudinales se tiene
que :
36
L1
L1
rn
U
L2
CASO 1
U
L2
CASO 2
SOLDADURAS FILETEADAS PARA
CONECCIONES ANGULARES
FIGURA 9 (RE.5)
Para d o s
soldaduras
longitudinsles
con
una
soldadura transversal:
Tratando la soldadura como una lnea, la unidad de
fuerza de corte
puede ser expresado como:
L o s esfuerzos de soldadura pueden, por
lo tanto,
ser determinados dividiendo la fuerza de soldadura
para el espesor efectivo del cordn de soldadura:
30
1.6.2
SOLDADURA FILETEADA PARA CARGAS EXCENTRICAS
La FIGURA
10
muestra
una
Flaca
cargada
excntricamente, la cual est soldada a un borde de
la columna que sirve como apoyo de la carga
aplicada P. El tamao del filete de soldadura es
'
asumido el mismo en cada uno de l o s tres lados de
r\'
*,:s.<
%.,*
y1PIi- Iil)-if;~" A
la placa soporte.
E l valor de la fuerza en la soldadura debido a la
aplicacin de la carga P es mxima en el punto A ,
el cual
representa
el
punto
ms
alejado
del
centroide en la longuitud total de soldadura.
Las componentes de la fuerza cortante en X y Y por
unidad de
longitud
de
soldadura
en
el
punto A
debido directamente a l cortante son:
&Kp=Pcos o/L
donde L representa la longuitud total del filete de
soldadura y O es el ngulo de inclinacin de la
carga en el eje X.
39
PUNTO A
m
Qa
QY
SOLDADURA FILETEADA PARA
CARGAS EXCENTRICAS
FIGURA 10 ( REF.5 )
40
La componente de la fuerza cortante por unidad de
longitud en
la
misma
localizacin
debido
al
momento de torsin es:
Qxm=M Ya/Jw
Qym=M Xa/Jw
Donde Xa y Ya indican la localizacin d e l punto A
con respecto al centroide de soldadura; M y Jw son
l o s momentos de torsin y momento de inercia en la
soldadura tratada como una lnea. E s t o s valores son
determinados de la siguiente manera:
Jw=(2b+d-3)/12+ba2(b+d)-2/(2b+d)
La fuerza resultante por
soldadura en el punto A es:
unidad
de
longitud de
41
E l esfueryo de soldadura en el punto A puede ser
obtenido dividiendo Qr para la garganta efectiva de
soldadura.
Ntese que la convencin de signos que se muestra
en la figura 10 indica valores positivos cuando la
componente de
positivo y
fuerzas son dirigidos en el eje X
positivo,
el
momento
acta
en
la direccin de las agujas del reloj.
El punto crtico de la soldadura (es decir el punto
mximo de esfuerzo) puede estar en cualquier lugar,
si la carga inclinada es mayor de 90"
soldadura longitudinal
longitud.
son
de
la
si la
misma
Sin embargo, el punto mximo de
esfuerzos resultante es crtico para el diseo.
1.7 ESFUERZOS PERMISIBLES PARA EL DISEO DE SOLDADURAS
Como se
mencion
en
secciones
anteriores, muchos
diseos de soldaduras son basados en clculos simples
de esfuerzos de soldaduras permisibles.
En esta
seccin
los
esfuerzos
de
soldadura
permisibles, especificados por AWS se presentan. E s t e
cdigo no es adecuado par el uso de aceros que tienen
un esfuerzo de fluencia sobre l o s 100 kpsi.
42
1.7.1
SOLDADURAS PARA ESTRUCTURAS DE E D I F I C I O S .
L o s esfuerzos
permisibles
presentadcs
en
esta
seccin se usan para el diseo y construccin de
estructuras de acero- Se tiene que tomar en cuenta
que las
cargas
proporciones de
de
fatiga
influyen
los miembros de
en
las
la estructura o
sus conexiones.
La tabla 2 recopila l o s esfuerzos permisibles para
soldaduras fileteadas a
ser usados en edificios
segn la AWS de las siguiente manera:
ESFUERZOS EN
LA SOLDADURA
Cortante en el
area efectiva
de soldadura
Tensin
Compresin
ESFUERZOS
PERMISIBLES
0.30 de la
mxima resistencia de la
soldadura
el mismo del
metal
REQUERIMIENTOS
DE RESISTENCIA
DE LA SOLDADURA
metal soldado
con nivel de
resistencia
igual o mayor
que el del metal
base
TABLA 2 (REP-5)
ESPUERZOS PERMISIBUESS EN SOLDADURAS PARA EDIFICIOS
43
PARA ESTRUCTURAS DE PUENTES,
1-7-2 SOLD-S
L o s esfuerzos
permisibles
presentados
en
esta
seccin se usan en uniones con las consideraciones
especificadas para diseo y construccin de vas
rpidas o vas de ferrocarril y puentes.
E l metal base de acero a ser soldado bajo este
cdigo debe estar bajo
ltima edicin de la
L a TABLA
reune
los
requerimientos de la
ASTM.
los
esfuerzos
soldaduras para ser usados en
permitidos
en
puentes; segn la
AWS:
~
ESFUERZOS EN
ESFUERZOS
REQUERIMIENTOS
LA SOLDADURA
PERMISIBLES
DE RESISTENCIA
DE LA SOLDADURA
cortante en
en el area
efectiva de
soldadura
0.27 de la
resistencia
mxima de la
soldadura
Tensin
compresin
E l mismo que
en e l metal
base
Soldadura con
una resistencia
igual o menor
que el de los
metales a soldar
ESrmERZOS PERMISIBLES EN SOLDADURAS PARA
ESTRUCTURAS DE PUENTES
TABLA 3(REP,5)
44
1.7.3
SOLDADURAS PARA ESTRUCTURAS SUJETAS A
FATIGA
Para puentes sometidos a cargas cclicas, sir .t.iJmar
en cuenta
vas rpidas o ferrocarriles, l o s rangos
de esfuerzos se obtenienen de
la TABLA 4 y las
FIGURAS 11 Y 12 -
El ciclo de vida puede ser deteminado en base a los
requerimientos de la estructura de el puente. Para
soldaduras fileteadas se tiene:
CATEGORIA DE
SITUACION
ESFUERZO
VW FIG-12
EJEMPLO
VER FIG-11
m e t a l base soldado
sometido a c a r g a s long,
donde e l r a d i o de empate
es menor de 2" y cuando
l a longuitud L p a r a l e l a
a l o s e s f u e r z o s es
L < 2"
2" =< L < 4"
L>=
D
E
4-
12,14,15, le
12
12
n e t a 1 base soldado
paralelo a l a d i r e c c i n
3e e s f u e r z o s s i n importar
la longuitud y e l r a d i o
d e e m p a t e de 2'' o ms,
R>=24"
24"> R >= 6"
6"> R >= 2''
Esfuerzos c o r t a n t e s en l a
garganta de l a soldadura
B
C
D
13
13
13
0a
RANGO DE ESFUERZOS PARA CONDICIONES APROPIADAS
CICLOS DE VIDA EN PUENTESTABLA 4 (REP-5)
45
TIPOS DE CCITEGORICIS EN UNIONES PARA PUENTES
FIGURA 11 (REF.5)
CURVAS DE ESFUERZOS PARA ESTRUCTURAS
(CATEGORIA A HASTA F)
U
60
R
A
N
Q
O
D
E 10
E
8
F
3
(
E
R
O
8
(KSI)
m
1 6
10-
lo- CICLOS DE VIDA
CAT. F
* CAT. C
10-
- CAT. A
+ CAT. B
CAT. D
* CAT. E
4*10
7
~
47
1.8
CAUUIX)
DEL COSTO DE LA SOLDADURA
El costo
de
la
soldadura
es
bsicamente
combinacin de l o s costos de material y
s de
la
4).
labor.(REF
Dentro de
la
el costo en
los
costos de
material se incluyen:
-Costo del electrodo
-Fundente
-Consumo de gas
-Otros materiales consumibles
L o s costos de labores incluyen:
-El costo del soldador .
-El
uso
El
costo
del proceso
del
electrodo
consumido por
metro de
soldadura consumido ea multiplicado por el peso del
electrodo en
kilogramos
por
metro
lineal
(WE)
consumido por el costo del electrodo por kilogramo
(CE)
Para obtener el peso
del electrodo consumido
debe realizarse el siguiente clculo :
V=volumen de soldadura=W^2*L(
W= tamao de la soldadura.
L= longitud de la soldadura
WW= peso del metal depositado
se
48
WW= VOLUMEX*PECO ESPECIFICO
N=eficiencia del proceso a utilizarse -
EL COSTO DEL ELECTRODO POR METRO DE SOLADRA=WE*CE
El costo
del
fundente
por
metro
es
el
peso del
fundente (WF) requerido por metro lineal de soldadura
multiplicado por el
costo del fundente por kilogramo
(CF)-
COSTO
DEL FUNDENTE POR METRO DE COLDADLJRA=(W)*(CP)
El costo del consumo de gas por metro de soldadura es
el volumen
de
gas
requerido
soldadura (VG) multiplicado
por
metro
lineal de
por el costo del gas en
sucres por metro cbico.
~~~
ICOSTO DEL GAS POR METRO DE SOLDADURA=(VG)*(CG)I
48
ww=
ESPECIPICO~
VOWMKN*PESO
N=eficiencia del proceso a utilizarse .
EL COSTO DEL ELECTRODO POR
El costo
del
fundente
METRO
por
DE cOLDADURA=WE*CE
metro
es
el
peso del
fundente (WF) requerido por metro lineal de soldadura
multiplicado por el
costo del fundente por kilogramo
(CF)-
COSTO
DEL FUNDENTE POR METRO DE SOLDADRA=(WF)*(CP)
El costo del consumo de gas por metro de soldadura es
el volumen
de
gas
requerido
soldadura (VG) multiplicado
por
metro
lineal de
por el costo del gas en
sucres por metro cbico.
~~~
ICOSTO DEL GAS POR METRO DE SOLDADURA=(VG)*(CG)(
49
El costo del material
por metro de soldadura (CM)
ser la suma de l o s valores antriormente expuestos:
Se debe tomar en cuenta que el costo del consumo de
gas es
cero para
soldadura en
arco
sumergido y
electrodo con fundente en el nucleo debido a que en
estos procesos no se necesita aporte de gas.
Igualmente el costo del fundente es cero para todos
los
procesos
excepto
el de
arco sumergido. A este
valor obtenido es necesario sumarle el
correspondiente a costos relacionados con factores de
operacin y el costo de la mano de obra ; este valor
ser:
donde :
OF = factor de operacin cuyo valor va desde 0 . 2 a
0.6 en nuestro trabajo el valor asignado ser de 0.4.
CR = costo del trabajador por hora .
T = tiempo estimado de soldadura .
El valor de T ser el peso del material depositado
50
dividido para la tasa de d e p o s i c i n d e l material
El valor total d e l costo de l a soldadura ser:
C A P I II
~
CALCLO
COMPTARIZADO DEL TAMAO DE GOLDADURA
APLICANDO EL CODIGO AWS Dl-1
2-1 IMPORTANCIA DE LOS METODOS COMPUTACIONALES EN ESTE
CAMPO,
Una unin perfecta nunca puede obtenerse aunque toda
la tecnologa
necesaria
Ingeniero, el
costo
est
el
tiempo
disposicin
del
requeridos para
obtener una unin perfecta podra no ser factible.
si la estructura soldada se
Uno se debe preguntar
ajusta a
los
propsitos
que
se
tenan;
si
la
respuesta es correcta el diseo para obtener un menor
costo debe ser la solucin para la industria.
Una de
las
grandes
ventajas
en
el
clculo
computarizado d e l tamao de soldadura es la velocidad
con la cual se realizan los trabajos y la variedad de
alternativas que presenta el mismo.
El diseo preliminar debe ser analizado con respecto
a las
fuerzas
globales
en
los
miembros
de
la
estructura. Mediante
puede
de
producir el
1i
soldadura
computadora ha
el
uso
efecto
adecuado
adecuada.
sido
el
de las computadoras se
El
y la aplicacin
diseo
fundamento para
con
la
recientes
desarrollos tecnolgicos y tendr un gran efecto en
el futuro
Se puede
resumir
que
la
importancia del
uso
de
mtodos computacionales se centra principalmente en
el tiempo y
los
costos que este tipo de pruebas
demandara hacerlo experimentalmente.
2.2 DESCRIPCION DEL PROGRAMA
El programa
"clculo computarizado del
tamao
de
soldadura" est escrito en turbo basic debido a la
extensin del mismo. Este programa tiene un nmero de
17910 lneas.
El programa consta de varias subrrutinas importantes
que son las que realizan los clculos para obtener
los esfuerzos en la soldadura, tamao de soldadura y
costo de la misma.
2.2.1
DIAGRAMAS DE FLUJO
Los pasos a seguir para la realizacin de un
53
diagrama de flujo son los siguientes:
-Pleno conocimiento del problema a resclver
-Forma de resolver el problema .
-Desarrollo del diagrama de flujo -
Se debe tomar en cuenta que todo el programa ha
sido desarrollado en basic.
De acuerdo a lo complicado del programa este puede
ser escrito en forma de subrutinas, lo cual ayuda a
un mejor entendimiento del mismo.
A continuacin se presentan las subrutinas antes
mencionadas .
54
2.1.1.
SUBRRUTIHCI INGRESO DE DCITOS
0
INICIO
1NPUT
"F"
F2 CIFY lSFZ
D E U I CIT 1ON
SI
<=.01
I
PRI NT
"ESTR DI R E C C I ON
DE CINGULOS Y/N
"CILGUNCI
I
"CILGUNCI OTRCI
FUERZCI"
P R I NT
FNRNDF
IDEUIATION)
55
s
I=l+l
P R l NT
"Hfi Y"
PRI NT
"HBY"
SI
SI
P R l NT
"NI NGUN"
PRI NT
"NI
P R l NT
"OTRO"
P R l NT
"OTRO"
SI
1
I
NO
HO
0
1 NPUT
TMX=TMX+MX
NGUN"
56
SUBRUTINci PciRci EL CciLCULO DE ESFUERZOS
QZ TOP LEFT=
QZ TOP RIGHT=
QZ BOTTOM LEFT=
QZ BOTTOU RIGHT=
QFX=TFx/ciW
QFY=TFy/ciH
TFz/CIW + TMX/SXUL -TMY/SYUL
TFz/BW + TMX/SXUR - TUY/SYUR
TFz/fiW + TMX/SXLL - TUY/SYLL
TFz/CIW + 'iHX/SXLL + TWY/SYLR
Q Tx TOP LEFT=TTzWXTL/JW
Q TY TOP LEFT=-<TTzHXTL/JW>
Q Tx TOP- RIGHT=TTz~XTR/JW
Q T Y TOP RIGHT=TTzMXTR/JW
Q T X BOTTOU LEFT=-<TTzMXBL/JW)
Q Tu BOTTOU LEFT=-<TTz*YBL/JW)
Q T X BOTTOH RIGHT=-CTTz*XBR/JW)
Q YY BOTTOU RIGHT= TTzMXBR/JW
:FT=C<QFx+QTXTOPLEFT~A2+4QFy+QTyTOPLEFTlA2+<Qz
TOPLEFT)A21A2
G H T = C < Q F X + Q T X T O P R I G H T ~ ~ ~ + < Q F ~ + Q T ~ T O P R I GTOP
H T ~RIGHTlA21A2
~~+<Q~
I L E F T = I < Q F x + Q T X B O T L E F T ~ ~ ~ + < Q F ~ + Q T ~ B O T L E BOT
F T ~ LEFT>"2IA2
~~+<Q~
I RIGHT=C<QFx+QTXBOTRIGHTl~2+<QFy+QTyBOTRIGHTlA2+<Q~B~TRIGHTlA2l
57
BLO=l
QBOTLEFT=B
BRO=l
QBOTRI G H T = 9
l
SI
1HPUT
RESISTEHCIfi
nfix3 ufi
RESISTENCIfi
SI
l
QUfiX=QTOP LEFT
1
NO
WO=QMfiX/8.3*ULa.797
58
NO
QMfiX=
QBOTTOM LEFT
QUfiX=QBOTTOH
RI GHT
A
ci.
RETURN
59
, 3 S U B R U T I N I P A R I D E T E R U I N I R EL TfiUfiNO M l N l M O D E SOLDfiDUIi:
SI
10
SI
NO
10
SI
l
NO
ER=1
E+
ER=
ER=B
60
SI
SI
ER=I
Ui=3/d
>I
61
SI
SI
W=T
wi=w0
Wi=. 2s
ER=
-;<
-?
?
ER=
1.4
62
SUBRUTINb P b R b CONVERTIR EL TRHbNO DE SOLDbDURb EN FRbCCl ON
UN=ii*I6
NU=I6*INI(UN/16~
1 WELDSIZES=STR$CINTCWN/ld))
T R 8 < UN) +/16
INo
RETURN
SI
1 WELDSI ZES=l
RETURN
NO
I
CINT<WN~WN/16))
I
1NT WN-16*1 NT C WN/6) 1 +11
SI
WELDSIZE$=STRSCINTCWN~l6~+
S U B R U T I N B D E P R E S E N T f i C I O N DE RESULTBDOC
L.1.5
63
7
INICIO
R O k 1
COL=l
xx=79
<>-
ROk24
COL=l
I y=8
xx=79
lNo
SI
f
P R I NT
I y=N/B
l
GOSUB 14129
P R I NT
FNRHDDF
COL=l
YY=24
1
GOSUB 14188
Sw=N/B
R O k 1
COL=79
YY=24
iOSUB
14188
1
P R I NT
FNRNDF
14188
SI
P R I NT
sx=9
P R I NT
FNRHDF
ROk3
COL=38
xx=21
I
P R I HT
FNRNDF
oP
Sx=8
ROU=4
COL=48
YY=21
iOSUB
P R I NT
l-
P R I NT
sxt=a
IN0
P R I NT
FNRNDF
CSYI)
64
PRI NT
f
P R I NT
Syl=N/fh
,
7
1
7
lNO
FNRNDF
<i
c1=a
P R I NT
FNRNDF
P R l NT
FNRNDF
< Sxb)
SI
f
PRl NT
Cl=N/fh
1
NO
I
P R l NT
FNRNDF
0
CXT=H
P R l NT
FNRNDF
SI
i
P R l NT
FNRNDF
ccxt.)
SI
1
Cxt=N/fh
65
o
SI
1
PRX N'I
TFz=8
PRI NT
FNRNDF
CTFzI
_7_j
Cxb=8
SI
PRI NT
Cxb=NPi
'
I
PRXNT
FNRNDF
CCxbI
lNQ
1
P R I NT
FHRNDF
I
SI
NO
I
FNRNDF
CCyrI
SI
7
PRlT
i
PRX NT
FNRNDF
CTTzI
FNRNDF
CTFxI
SI
SI
l
NO
f
FNRNDF
CTFyI
I
'
NO
Y
I
SI
66
P R I NT
FNRNDF
CQUBXI
P R l NT
S 1 GUiRULTI M B
L
TE
SI
P R l NT
WELDSl ZES
01
I
SI
Q T O P R l GHT
INo
P R l N'I
FNRNDF
CTOPRIGHTI
P R l NT
Q T O R l GHT=
/
SI
1
QBOTTOH
LEFT=N/L
QBOTTOH
SI
U
P R l HT
I"O
QBOTTOH
R l GHT=N/B
67
2-2-2 MANUAL DE OPKRACIONES
El usuario de este programa debe seguir el orden
que se presenta para poder ejecutar:
1.- Si la computadora que se usa es una IBM carge
el
TURBO BASIC, para luego llamar al programa
en si.
2.- Luego
de cargar el programa, aparecer una
pantalla de bienvenida
3.- En la siguiente pantalla se pregunta que tipo
de computador est utilizando.
4.-
En las siguientes tres pantallas se presentan
explicaciones de lo que se puede lograr con el
programa, l o s simbolos usados
una tabla donde
se presenta la seleccin del electrodo en base
al material que se va a soldar.
5.- El men presenta 9 opciones mediante las cuales
el usuario
podr
seleccionar
el
tipo
de
soldadura con la cual trabajar.
6.- El usuario ingresar los datos en el siguiente
orden:
68
-PUERZA APLICADA
-EXCENTRICIDADES CON RESPECTO A IQS EJES X 7 Y 7 Z
-ANGUW DE LA PUERZA CON FESPEO A
IX)S
EJES
x7y7z
-MOMENTOS PUROS TANTO EN X COMO EN Y
-TORQUE PIJFK) EN EL EJE Z
-TIPO DE ELECTFDIXI APLICADO
-ESPESORES DE IQS MATERIALES A SOLDAR
7.- La siguiente pantalla presenta la alternativa
al usuario de obtener el costo de la soldadura
a aplicarse; dependiendo el mismo d e l proceso
de soldadura a utilizar, el tipo de material a
soldar y otros factores ms.
A continuacin
se
presentan
hojas
siguiendo el orden de las pantalla.
individuales
69.
70
EXPLICACION
EL SIGUIENTE PROGFiAMA APLICARA EL CODIGO AWS D1.1
PARA CALCULAR LOS ESFUERZOS CRITICOS EN SOLDADURAS
SIENDO DADO COMO PARAMETROS LAS CONDICIONES DE
DEPOSICION DE SOLDADURA . TAMBIEN SERVIRA PARA
DETERMINAR EL TAMANO MINIMO DE SOLDADURAEL PROGRAMA LO QUE HACE PRIMERAMENTE ES TRANSFERIR
TODA LA ESTRUCTURA DE DEPOSICION HACIA EL CENTROIDE DE LAS AREAS COMBINADAS DE SOLDADURA. SEIS SON
LAS COMPONENTES DEFINIDAS EN LAS COORDENADAS CARTESIANAS. LA TEORIA BASICA PARA EL CALCULO ES ASU
MIR LA SECCION DE SOLDADURA COMO UNA LINEA.
LAS
TRES COMPONENTES DE FUERZA EN EL PUNTO CRITICO DE
LA AREA DE SOLDADURA SON CALCULADOSEL TOTAL DE LOS ESFUEZOS DE SOLDADURA ES UN VECTOR SUMA DE LOS TRES COMPONENTES DE UNIDADES DE
FUERZA DIVIDIDO PARA LA GARGANTA EFECTIVA DE SOLDADURA
PRESIONE LA BARRA ESPACIADORA PARA CONTINUAR
EN LAPRESENTE PANTALLA SE EXPLICAN LOS SIMBOLOS
UTILIZADOS EN ESTE PROGRAMA
ta aplicada en la soldadura
Zz=distancia a la que esta aplicada la
fuerza con respecto al origen.
3. de soldadura,esta ser la suma de l o s lados
snto de inercia en x
snto de inercia en y
incia del centro de gravedad a diferentes puntos
3nto polar de inercia; J= Ix+Iy
Lo de seccin; S=I/C
3rzo aplicado en la soldadura, este podra ser
Lexion,torsin,traccin y de corte
[;Qt=MC/J;Qtr=F/Aw;Qcot=F/Aw
icto de la fuerza por la excentricidad
LA BARRA PARA CONTINUAR
T*
SOLDADURAS ESPECIALES
TO
AWS
FUNDIDO
E N i C1
E St
PROCESO
PRODUCTO
ARCO ELECTRICO
IMIENTO PROTECTOR
E Fe Mn ARCO ELECTRICO
INOXIDABLES CONVENCIONALES
R- 60
E308L-16
ARCO ELECTRICO
R- 63
E316L-16
ARCO ELECTRICO
R- 65
E 3 0 9 L M o - 6 ARCO ELECTRICO
R- 72
E309L-16
ARCO ELECTRICO
CORTE Y BISELADO
x-99
ABLES ESPECIALES
E312- 16
ARCO ELECTRICO
E310-16
ARCO ELECTRICO
PROCESO
AWS
ARCO ELECTRICO
PRESIONE LA BARRA
SOLDADURA SEMIAUTOMATICA
4MBRES MIG-MAG
3DUCTO
PROCESO
AWS
ER
ER
ER
ER
ER
70s-6
308L
312
4043
5356
METAL
METAL
METAL
METAL
METAL
ER
ER
ER
ER
308L
312
4043
5356
TUGSTENO
TUGSTENO
TUGSTENO
TUGSTENO
ACTIVO
INERTE
INERTE
INERTE
INERTE
GAS
GAS
GAS
GAS
GAS
(MAG)
(MIG(MIG)
(MIG)
(MIG)
3ILLAS-TIG
INERTE
INERTE
INERTE
INERTE
GAS(T1G)
GAS(T1G)
GAS(T1G)
GAS(T1G)
I A EXPLICACION MAS AMPLIA DE LOS ELECTRODOS(S/N)
60( 70)
70
A36 A53 Gr B
A106 Gr B A131
A139 Gr B A375
GrB A500 A573
A381 G r Y35
A501 A516
A524 A529
A570 Gr D,E
Gr65 API 5L
ABS Gr A,B,C,
D,E,R,Gr55,60
A242 A441
A537 CLASE1
A516 Gr65,70
A572 Gr42-60
A588 A618
API 5LX Gr42
ABS G r AH,DH
EH
80
110
A537
A514
clase 2
A572 Gr 65
2-1/2
y ms
A514
A517
presione la barra para continuar
JRAS AGA PARA ACEROS AL CARBONO Y BAJA ALEACION
:COS CONVENCIONALES
AWS
E-6011
PROCESO
ARCO ELECTRICO
:COS ESPECIALES
E 6010
ARCO ELECTRICO
E 7010-Al ARCO ELECTRICO
HIERRO EN POLVO
PRODUCTO
RH-10
AWS
E 7024
PROCESO
ARCO ELECTRICO
BASICOS BAJA ALEACION
B-10
E 7018
ARCO ELECTRICO
VARILLAS NO ALEADAS
H 43
RG-60
OXIACETILENICO
)S
E 6013
E 6013
ARCO ELECTRICO
ARCO ELECTRICO
COBRE Y ALEACIONES
RbCuZn-C OXIACETILENICO
BRONCE C
PRESIONE LA BARRA
NOTA: LOS PROCESOS DE ARCO ELECTRICO SON MANUALES
73
o
$I
IH
o
CAPITULX) 111
APLICACIONES DEL PROGRAMA
Debido a la extensa aplicacin de este programa se tratar
de dar un enfoque prctico con la finalidad de cubrir l o s
casos principales de esfuerzos a l o s cuales podra estar
sometido una unin soldada, esto es:
-Esfuerzos de torsin .
-Esfuerzos de compresin
-Esfuerzos de flexin .
-Esfuerzos de tensin
Se presentarn cuatro problemas tipo, l o s cuales tendrn
diferentes condiciones de deposicin.
Tambin se
estudiar
el
comportamiento del
cordn de
soldadura en funcin de la seleccin de las condiciones de
deposicin
del tipo de unin
problema planteado
soldada para un mismo
Finalmente, en base a los tipos de electrodos existentes
en el mercado nacional (eate programa fue hecho en base a
los electrodos distribuidos por AGA),
se realizar un
estudio del costo del proceso en cada problema.
75
3-1 SOLDADURAS SOMMlIDAS A ESFUERZOS DR FLEXION Y COFTE
En el figura 13 presenta dos piezas de acero que sern
soldadas. La unin estar sometida a una carga de 15
kpi y un ngulo de aplicacin de O grados con respecto
a la vertical- Esta unin estar sometida a esfuerzos
de corte y de flexin.
Se desea averiguar el tipo de unin ms conveniente
que presente un menor tamao de soldadura.
Calcular
el costo del proceso bajo las condiciones utilizando
un electrodo ER 70 S- 6 bajo un proceso MIG y como gas
de proteccin COZ- El amperaje a utilizar es de 400
amperes con
la
tcnica
spray
una
velocidad
de
alimentacin de 1447 cm/min. El costo del soldador por
hora es
de
S/
1000
sucres.
Los
espesores
de l o s
materiales son respectivamente 2 y 1.5 pulgadas.
SOLUCION :
En este caso de problemas la soldadura estar sometida
a esfuerzos tanto de torsin como de corte.
No existen
esfuerzos
de
presentan fuerzas normales
problema se
presenta
en
traccin
a
dos
la
ya
que
no
se
soldadura.
Si
el
como
el
dimensiones
expuesto, las excentricidades sern tanto en X como en
Y.
No existir excentricidad en z ya que esto produce un
76
momento con respecto al centro de gravedad de la
soldadura y esto ocasiona un esfuerzo de torsin
Las figuras 14 y 15 presentan tanto el clculo del
costo del proceso como el tamao de soldadura.
En las
figuras
16 y
17
se
presentan la variacin
comportamiento del tamao de soldadura en funcin del
tipo de unin seleccionada.
1P 1)
CYI Cyr
H.8 PULG.
B= 4 PULG.
Di10 PULG.
F=15KPI
SOLDADURA SOMETIDA A ESFUERZOS
DE FLEXION Y CORTE
FIGURA 13
77
CALCULO DEL COSTO DE LA SOLDADURA
JALOR DEL TAMANO DE SOLDADURA (W) ES=> 5/16 PULG.
FESE ESTE VALOR PARA EL CALCULO==>? 5/16
RECE EL VALOR DE L EN PULG.==>18
IESE EL TIPO DE MATERIAL A SOLDAR==>ACERO
TIPO DE PROCESO VA A UTILIZAR==>PROCESOMIG-MAG
TIPO DE ELECTRODO A UTILIZADO==>ER 70 S- 6
rIPO DE GAS VA A UTILIZAR=>C02
ES EL COSTO POR KG. DE C02=>3000
ZSE LA VELOCIDAD DE DEPOSICION EN LB/HR. =>5
1 DEL SOLDADOR POR HORA=>1000
)STO ES=> 139.960 SUCRES
? CORRECTO LOS VALORES INGRESADOSN
FIGURA 14
CALCULO DEL COSTO DE SOLDADURA
I
1
I
1
1
1
1
1
1
1
1
l
1
1
l
I
1
1
I
l
1
l
I
I
I
I
I
I
I
l
I
I
1
1
1
I
I
I
I
-#
I
l
4
CU
I
I
I
I
I
I
I
I
I
I
I
11 I I
- L
I I
l
I
I
I
n5i
FIGURA 15
TAMAO DE SOLDADURA
79
\
O
Q)
c3
..
...:.:
.......
. .. .<
........
...........
FIGURA 16
TAMARO DE LA SOLDADURA TIPO 3
0.8
A
M
A
0.6
0.4
0.2
O
O
45
ANGULO
90
135
81
En la FIGURA 18 se tiene un tanque el cual tendr
soldado cuatro soportes para su cimiento. El tanque
estar sometido a una fuerza de tensin de 400 kpi.
Se desea determinar el tamao mnimo de soldadura para
cada uno de l o s cuatro soportes
que se encuentran
equidistantes al tanque-
Adems se
desea
determinar
el
costo
del
proceso
utilizando un electrodo R-72 para acero inoxidable con
un proceso
de
ARCO
SUMERGIDO
SEMIAUTOMATICO. El
dainetro del alambre ser de 5/32 pulg. y el arnperaje
que se utilizar ser de 300 amperes y una velocidad
de alimentacin de 1500 cm/min - El costo del soldador
p o r hora es de S / .
1200 sucres. L o s espesores de los
materiales son 3 y 1.5 pulgadas.
SOLUCION
Como se aprecia en la figura 18 la soldadura estar
sometida a esfuerzos de corte y de flexin , por lo
tanto las excentricidades sern en X y Y. Debido a que
tiene que esxistir un equilibrio entre las fuerzas es
decir:
Fx=O
Entonces:
82
Debido a que el valor de F es de 400 kpi se deduce que
P tendr un valor de 100 kpi. En la figura 19 se
presenta el clculo del cnsto del problema planteado.
Este ser el valor que se ingresar como fuerza para
el clculo del tamao de soldadura.
En las figuras 20,21
22 se presenta l o s diferentes
tamaos de soldadura dependiendo del tipo de unin
seleccionada.
B= 3 PULG.
D= 15 PULG
P= 100 KPI.
E= 11 318 PULG.
F=400 KPI.
SOLDADURA SOMETIDA A FLEXION Y CORTE
FIGURA 18
83
CALCULO DEL COSTO DE LA SOLDADURA
VALOR DEL TAMANO DE SOLDADURA W) ES=> 10/16 PULG.
RESE ESTE VALOR PARA EL CALCULO==>? 10/16
RESE EL VALOR DE L EN P U L G . = = > 3 6
RESE EL T I P O D E MATERIAL A SOLDAR==>ACERO INOXIDABLE
T I P O DE PROCESO VA A U T I L I Z A R = = > A R C O SUMERGIDO
T I P O DE ELECTRODO A U T I L I Z A D O = = > R - 7 2
O D E L FUNDENTE P O R KILOGRAMO=>4000
ESE LA VELOCIDAD DE D E P O S I C I O N EN LB/HR.
3 DEL SOLDADOR P O R H O R A = > 1 2 0 0
3 S T O E S = > 26165.574 SUCRES
N CORRECTO LOS VALORES INGRESADOS
=>3.5
FIGURA 19
CALCULO DEL COSTO DE SOLDADRA
84
I
i
I
I
I
1
1
I
1
I
1
1
I
1
I
I
l
1
I
I
i
l
I
l
I
l
I
I
I
I
I
I
I
I
I
I
I
I
I
I
f
f
aN--
G I L 4 1
La>
w
#
--
U
P=
a
n
U
4
O
--
\rcP-
FIGURA 20
f
i
a
m
a
n
a
n
I-i
10
G.3
W
c ? I
85
1
1
l
I
1
1
1
I
I
i
I
l
1
I
i
I
I
I
I
1
-ril
z
W
1
l
I
I
I
3
I
m
ie;l
--
- 5
m a a m c4
I I
II i l
--
FIGURA 21
=>
L:
I I
E I
S I
=.
a
I
I
I
I
I
I
I
I
I
I
I
s I
3 l
FIGURA 22
3 . 2 SOLDADURA SOMETIDAS A ESFUERZOS
DE FLEXION, CORTE
Y TENSION.
En la figura 23 se muestra dos piezas de acero
cuales van a ser soldadas.
Esta unin soldad
.
presenta las caractersticas de un empotramiento'
el cual estar sometido a una carga de 200 kpi con
--E
..\SI " '
un ngulo de aplicacin de 45 grados con respecto
a la horizontal. Determinar cual es el tipo de
unin que
presente
Averiguar el
menor
tamao
del
proceso
costo
de
de
soldadura.
soldadura
utilizando un electrodo ER 3 0 8 L con un proceso MIG
y como gas de proteccin
alambre sera de 0.030
ARGON. El dimetro del
pulg. y el amperaje a ser
utilizado ser de 300 amperes, con una tcnica
"spray" y
una
velocidad
alambre de 1447 cm/min.
hora ser de S/
de
alimentacin
del..I'
***
r'
Los espesores &e
l o s materiales a soldar sern de 2 y 3 pulgadas.
..,
A'
SOLUCION:
Antes de ingresar l o s datos en la computadora debe
el usuario tener claro que tipo de esfuerzos se
presentan.
En la figura 24 se presenta el clculo del costo
del proceso, mientras
El costo del soldador p w '
2000 la hora.
que
en
la
figura
25 se
1:
-+y
aa
presentan tanto l o s esfuerzos a l o s cliales estar
sometido la soldadura como el tamao de la misma.
Para nuestro caso el empotramiento estar sometido
a esfuerzos de flexin, corte y tensin.
Ez=excentricidad con respecto al eje z .
Ey=excentricidad con respecto al eje y.
En las figuras 26, 27
28 se puede apreciar la
variacin del tamao en funcin de la fuerza y el
ngulo de aplicacin de la misma,dependiendo del
tipo de unin seleccionado.
FP
A
D,
P
--
y-3.5
Ez= 4
P= 200 kpi
B= 2
D=)O
ANG= 45.
SOLDADURA SOMETIDA A ESFUERZOS DE
FLEXION, CORTE Y TENSION
FIGURA 23
89
CALCULO DEL COSTO DE LA SOLDADURA
7ALOR DEL TAMANO DE SOLDADURA (W) ES=> 9/16 PULG.
?ESE ESTE VALOR PARA EL CALCULO==>? 9/16
BSE EL VALOR DE L EN PULG.==>24
BSE EL TIPO DE MATERIAL A SOLDAR==>ACERO
TIPO DE PROCESO VA A UTILIZAR==>PROCESO MIG-MAG
TIPO DE ELECTRODO A UTILIZADO==>ER 308
rwo DE
GAS VA A UTILIZAR=>ARGON
ES EL COSTO POR KG. DE ARGON=>4125
{SE LA VELOCIDAD DE DEPOSICION EN LB/HR. =>6.53
> DEL SOLDADOR POR HORA=>2000
>STO ES=> 1746.129 SUCRES
? CORRECTO LOS VALORES INGRESADOS
FIGURA 24
" C A L 0 DEL COSTO DEL PROCESO
"
- - i d
a --
\-++
==
l l I I 11
Li
M-
--
U
P=
a
n
n
d
F4
I I
I I
m a u m m
I I II
I I II I I
I I 1143
24
2
- 3 X 3 X X X - i
- -
I I I I
I I
U X X
FIGURA 25
T U 0 DE SOLDADURA DEL PROBLEMA
as
91
O
n
i=
\"
a
U
n
a
n
c/>
a
I
a
2
a
F
2
2
FIGURA 26
TAMAlVO DE LA SOLDADURA TIPO 3
...................................................
...........................................................................
"
2.5
T
A
M
A
2
1.5
1
O0
0.5
O
45
90
ANGULO
135
TAMAKIO DE LA SOLDADURA TIPO 4
....
.............................
........................................................................................................................
"
1.8
1.6
1.4
A
M
A
1.2
1
0.8
Ip 0.6
0.4
0.2
O
O
45
ANGULO
90
135
.................................................
94
Calcular el tamao de soldadura adecuado para la irniri
la FIGURA 29, La unin
soldada presente en
estar sometida
una
fuerza
vertical
de
:dada
kpi
aplicada a una distancia de 30 pulgadas con respecto a
la unin soldada.
L o s espesores de los materiales a
soldar son de 2 . 5 y 1 pulgadas.
El material
del
soporte ser
de
aluminio; para su
unin se utilizar un electrodo
proceso MIG
como
gas
de
ER 5356
proteccin
con un
ARGON.
El
dimetro del alambre ser 0.035 pulgadas y el amperaje
de 400 amperios con un proceso de corto circuito y una
velocidad de alimentacin de 1000 cm/min- El costo del
soldador por hora es de S/. 1200.
SOLUCION
Se supone en espte problema que la mxima fuerza es
aplicada en la parte exterior del soporte, la unidad
entera tiende a pivotear sobre la esquina inferior ,
donde este ejerce una presin contra la parte baja de
la barra.
El producto de la fuerza por la distancia
ser igual tanto en la soldadura como en el momento
que produce la fuerza aplicada de 4 kpi por brazo de
30 pulgadas.
Esta soldadura est sometida a esfuerzos de traccin
flexin y
de
corte.
Debido
que
la
suma de l o s
95
momentos en la soldadura aplicada es igual
a cero, el
valor de la fuerza aplicada directamente en la
soldadura s e r :
En base a esta frmula tenemos:
Fa(15)=4(30)
Donde el valor de Fa ser:
Fa= 8 kpi
Este ser el valor utilizado para el clculo del
tamao
mnimo de soldadura. La FIGURA 30 muestra
clculo del costo del proceso.
En las FIGURAS 31
de soldadura
seleccionado.
en
32 se aprecia como vara el tamao
funcin
del
tipo
de
unin
96
3
E= 3 PULG.
012.5 PULG.
B= 1.5 PULG.
J= 30 PULQ.
H= 15 PULG.
SOLDADURA SOMETIDA A ESFUERZOS
DE FLEXION, CORTE Y TENSION
FIGURA 29
97
CALCULO DEL COSTO DE LA SOLDADURA
JALOR DEL TAMANO DE SOLDADURA (W) ES=> 10/16 PULG.
IESE ESTE VALOR PARA EL CALCULO==>? 10/16
?ESE EL VALOR DE L EN PULG.==>16
?ESE EL TIPO DE MATERIAL A SOLDAR==>ALUMINIO
TIPO DE PROCESO VA A UTILIZAR==>PROCESO MIG-MAG
TIPO DE ELECTRODO A UTILIZADO==>ER 5356
:IPO DE GAS VA A UTILIZAR=>ARGON
ES EL COSTO POR KG. DE ARGON=>4125
(SE LA VELOCIDAD DE DEPOSICION EN LB/HR. =>4-45
1 DEL SOLDADOR POR HORA=>1200
S T O ES=> 1967.494 SUCRES
i CORRECTO LOS VALORES INGRESADOSN
FIGURA 30
CALCULO DEL COSTO DE SOLDADURA
86
99
;I
I
I
1
i
l
I
I
I
1
l
L
E
l
l
I
I
f
l
i
i
I
I
I
I
G?
draarc
FIGURA 32
CAPITUIQ IV
ANALISIS DE RESULTADOS
Si se observa la variacin del tamao de soldadura tanto
para uniones soldadas sometidas a esfuerzos de corte,
flexin y tensin como las sometidas a esfuerzos de corte
y flexin, especialmente en las figuras 17 y 27, se tiene
que mientras mayores sean l o s esfuerzos a l o s que est
sometida la soldadura mayor ser el cordn de la unin
soldada.
En especial
para
soldaduras sometidas a
esfuerzos de
flexin y corte, se observa en las figuras 16 y 17 que e l
tamao mximo de soldadura se obtiene al aplicar la fuerza
a O grados con respecto a la horizontal, esto se debe a
que la soldadura estar sometida a
esfuerzos de flexin y
de compresin lo cual no sucede para los otros ngulos de
aplicacin.
Se puede observar en las figuras 17 y 27 que para una
carga de aplicacin de 50 kip el tamao de soldadura vara
de una figura con respecto a la otra
esto se debe a que
los esfuerzos en soldaduras sometidas a esfuerzos de
101
flexin y
tensin varan
en un rango muy
pequeo. El
comportamiento es de esta forma ya que el programa escoge
el tamao de soldadura en funcin de los espesores de los
materiales y para estas condiciones el tamao no vari.
Para los dos casos de soldaduras sometidas a diferentes
tipos de esfuerzos se intent estudiar el comportamiento
del cordn de soldadura para una unin tipo O; pero los
espesores de los materiales que fueron seleccionados eran
demasiados pequeos para las condiciones a las cuales iba
a estar sometida la unin soldada y no se pudo realizar.
Es interesante anotar, que tanto para el segundo ejemplo
de aplicacin de
soldaduras
sometidas a
esfuerzos de
flexin, corte y tensin como de flexin y corte se podra
escoger la unin soldada tipo 3, teniendo en cuenta las
recomendaciones de la Sociedad Americana de Soldadura que
establece que la soldadura debe ser aplicada a todo lo
largo de la garganta del filete incluyendo los retornos en
sus extremos que ser dos veces el tamao de la soldadura.
Para soldaduras sometidas a esfuerzos de flexin, corte y
tensin,
7
se
puede observar en las figuras 26,
27
28
donde se representa la influencia de la carga y ngulo de
aplicacin en el tamao de soldadura, que a medida que
vara el ngulo de aplicacin de la fuerza, el tamao de
soldadura tambin
vara
alcanzando un
mximo
para
un
102
ngulo de
aplicacin
de
45
grados
con
respecto
la
vertical (eje y ) , ya que tanto los esfuerzos de flexin,
corte como de traccin tienen la misma direccin y esto
har que el esfuerzo resultante sea mucha mayor.
Se puede observar en la figura 26 que para un ngulo de
135 grados para diferentes cargas
ser mnimo,
esto
se
debe
el tamao de soldadura
que
para
ese
ngulo de
aplicacin e l esfuerzo en la soldadura ser mnimo.
En la
misma figura se observa que para una fuerza de 50 kpi el
tamao de soldadura no vara en funcin del ngulo, esto
se debe a que l o s esfuerzos a que est sometido no tienen
un rango muy amplio de variacin, lo cual influye en el
tamao de soldadura.
S e tiene entonces que la unin soldada adecuada para este
problema es la tipo 4 .
Eata seleccin
es
ventajosa en
cuanto a la resistencia de la unin pero no en cuanto al
costo del proceso, ya que este tipo de soldadura demanda
un costo mayor si se compara con la unin tipo 1 (FIGURA
26) y la unin 3 (FIGURA 27), ya que tiene una longitud
mayor de soldadura.
CAPITULCI
CONCUISIONES Y RECOMENDACIONES
1.-
El diseo de uniones utilizando computadoras es ms
ventajoso que cualquier mtodo manual
de clculo,
esto es debido a su rapidez y a que no se necesita
construir un prototipo para ser ensayado disminuyendo
de esta forma los costos.
2.- Una de las mayores ventajas del programa presentado
en este trabajo es la determinacin exacta del tamao
del cordn; evitndose de esta forma el exceso del
mismo, lo cual es uno de l o s mayores factores que
elevan el costo de la soldadura.
3.- En base al nalisis computacional se determina que el
tamao de soldadura ser mayor mientras mayores sean
los esfuerzos
los
que
este
sometido
la unin
soldada; independiente de las condiciones de carga y
aplicacin. Esto se pudo apreciar para las uniones
soldadas sometidas a esfuerzos de flexin, tensin
corte, donde el tamao de soldadura es mucho mayor
que en las soldaduras sometidas a
flexin y corte.
4.-
Se debe tener en cuenta que el programa calcula los
esfuerzos en la soldadura en l o s puntos ms distantes
con respecto
al
centro
de
gravedad
de
la
unin
soldada. Esto se lo realiza con finalidad de que la
soldadura tenga una mayor
resistencia y
se pueda
obtener el tamao adecuado de soldadura.
Finalmente se recomienda:
1.-
De l o s resultados obtenidos dependiendo del tipo de
carga y
ngulo de aplicacin para
los diferentes
tipos de aplicaciones, se recomienda la seleccin de
la unin tipo 3 ya que esta presenta un tamao de
soldadura mayor que el de la unin tipo 2 y a su vez
tiene una menor longitud de soldadura que la unin
tipo 4 , lo que presenta un costo menor.
2.-
Para anlisis posteriores a este
trabajo se debe
incluir otros tipos de uniones, de esta forma
se
puede ampliar la capacidad de seleccin de uniones
soldadas en el programa. Tambien se podra modificar
el programa
para
que
graficar los resultados
ofrezca
y
la
oportunidad
as poder
de
analizar el
comportamiento del tamao de soldadara, con respecto
a otras variables.
APRNDICE
LISTADO DEL PROGRAHA
"CALCULX)
DEL TAMAO DE S0LDAl')URA"
106
1,O : COLOR 1,3 : KEY OFF : CLS
(O,O)-(319,199),2,B : LINE (1,1)-(318,198),2,B : LINE (2,2)-(317,197),7,B : LINE (3,3)-(316,196),2,8 : LINE (4,4)-(:
E 4,8 : PRINT 'ESTE PROGRARA SIRVE PARA'
I 5,4 : PRINT 'EL CALCULO DEL TAHANO DE SOLDADURA'
E 6,5 : PRINT 'APLICANDO EL CODIGO DE AWS D 1.1'
I 10,t: PRINT ' los esfuerzos en el metal base'
I 11,lZ: PRINT 'no son verificados'
I 15,7 : PRINT 'ESCRITO POR: Hsing-Sen Hsiao'
I 16,b: PRINT'ADAPTADO POR: J. Navarrete Loor'
'E 17,9 : PRINT ' DIRECTOR: Ing. Oaar Serrano V.'
'E 20,6 : PRINT 'todos los derechos son reservados';
1991'
'E 21,15 : PRINT '
'E 22,7 : PRINT 'Pres. la barra para con inuar'
'E 23,2 : DI=INPUTI(l)
4HRS(32) THEN 60TO 180 ELSE PRINT CHRI 7 )
130
CHRS (271
I 16220
SCREEN 1,0 : KEY OFF
NTYPE = 2 THEN COLOR 2,2 ELSE COLOR 1,3
3.1415926541
NRNDF (X )=INT( lOOOtX 1/lo00
(O,80)-(319,140),2, B
E 12,2 : PRINT 'INGRESE EL ASPECTO DE LA PANTALLA:'
E 14,lO:PRINT '1. IBH 3270 --- 1.6'
E 15,lO : PRINT '2. PC or XT --- 2.4'
E 17,lO:INPUT '1 or 2 ';ANS#ER
SWER = 1 THEN ASPECT = 1.6
SWER = 2 THEN ASPECT = 2.4
SWER 0 1 AND ANSWER O 2 THEN CLS:GOTO 230
16330
N 0:COLOR 2,O:WIDTH B0:CLS
:X2=66: Y1=2: Y2=23
16550
E 3,32:PRINT ' EXPLICACION'
E 4,15:PRINT 'EL SIGUIENTE PROGRARA APLICARA EL CODIGO A#S Dl.1'
E 5,15:PRINT 'PARA CALCULAR LOS ESFUERZOS CRITICOS EN SOLDADURAS'
E 6,15:PRINT 'SIENDO DADO COHO PARAHETROS LAS CONDICIONES DE'
E 7,15:PRINT 'DEPOSICION DE SOLDADURA , TAHBIEN SERVIRA PARA'
E 8,15:PRINT 'DETERHINAR EL TAHANO HINIHO DE SOLDADURA.'
Z 9,15:PRINT 'EL PROGRARA LO OUE HACE PRIHERAilENTE ES TRANSFERIR'
I 10,15:PRINT 'TODA LA ESTRUCTURA DE DEPOSICION HACIA EL CENTROI-'
E 11,lJ:PRINT 'DE DE LAS AREAS CORBINADAS DE SOLDADURA, SEIS SON'
f 12,15:PRINT 'LAS CORPONENTES DEFINIDAS EN LAS COORDENADAS CAR-'
f 13,15:PRINT 'TESIANAS. LA TEORIA BASICA PARA EL CALCULO ES ASU'
i 14,15:PRINT '[IR
LA SECCION DE SOLDADURA COHO UNA LINEA. LAS'
I 15,15:PRINT 'TRES COWPONENTES DE FUERZA EN EL PUNTO CRITICO DE'
16,15:PRINT 'LA AREA DE SOLDADURA SON CALCULADOS.'
17,15:PRINT ' EL TOTAL DE LOS ESFUEZOS DE SOLDADURA ES UN VEC-'
i 18,15:PRINT 'TOR SUHA DE LOS TRES COHPONENTES DE UNIDADES DE'
: 19,lJ:PRINT 'FUERZA DIVIDIDO PARA LA GARGANTA EFECTIVA DE SOL-'
: 20,15: PRINT 'DADURA'
: 22,lfl:PRINT 'PRESIONE LA BARRA ESPACIADORA PARA CONTINUAR'
23,2: DI=INPUTS(l)
CHRI(32) THEN 60TO 580 ELSE PRINT CHRS(7)
1
'
60
CHRS(27)
0:COLOR 2.0:WIDTH 8O:CLS
107
:ATE 5,15:PRINT 'EN LA PRESENTE PANTALLA S E EXPLICAN LOS SIHBOLOS'
:ATE 6,15:PRINT '
UTILIZADOS EN ESTE PROGRAHA '
:ATE 9,6:PRINT 'F=fuerza aplicada en la soldadura'
ATE 10,L:PRINT 'Ex:Ey:Ez=distancia a la que esta aplicada la'
:ATE 11,L:PRINT '
fuerza con respecto al origen.'
ATE 12,b:PRINT 'Aw=area de soldadura,ista ser la 5uia de 10s lados'
'ATE 13,6:PRINT 'Ix=aomento de inercia en x '
ATE 14,6:PRINT 'Iy=ioiento de inercia en y'
ATE 15,L:PRINT 'C=distancia del centro de gravedad a diferentes puntos'
ATE 16,6:PRINT 'Jw=ioiento polar de inercia; J= IxtIy'
ATE 17,b:PRINT 'S=adulo de seccin; S=I/C'
ATE 18,6:PRINT 'Q=esfuerzo aplicado en la soldadura, este podra ser'
ATE 19,6:PRINT ' de f lexion, torsin, traccidn y de corte'
ATE 20,6:PRINT 'Qf=HC/I;Qt=HC/J;Qtr=F/Aw;Qcot=F/An'
ATE 21,L:PRINT 'H=producto de la fuerza por la excentricidad'
ATE 24,4:PRINT 'PRESIONE LA BARRA PARA CONTINUAR':
ATE 2312: DJ=INPUTJ( 1)
D%=CHRJ(32) THEN 60TO 810 ELSE PRINT CHRJ(7)
O 760
NT CHRJ(27)
EEN 0:COLOR 2,O:WIDTH 8O:CLC
5: X2=76:Yi=3:Y2=21
UB 16550
12:Y1=3:Y2=21
I=Y1+1 TO Y2-1
ATE 1,Xl:PRINT ' 1 '
T I
28: Y 1=5: Y 2=21
I=Yl+l TO Y2-1
ATE 1,Xl:PRINT ' 1 '
T I
42: Y 1.5: Y2=21
I=Y1+1 TO Y2-1
ATE 1,Xl:PRINT ' 1 '
T I
5:X1=12:X2=76
I=Xl+l TO 12-1
ATE Y1,I:PRINT '-'
T I
=7:X1=5: X2=76
R I=X1+1 TO 12-1
CATE Y1,I:PRINT '-'
XT 1
-54:Y 1=5: Y2=21
R I=Y1+1 TO Y2-1
CATE 1,W:PRINT '1'
KT 1
=60:Y1=5:Y2=21
R I=Yl+l TO Y2-1
CATE 1,X:PRINT '1'
KT 1
=68:Y1=5:YZ=21
R I=Y1+1 TO YZ-1
:ATE 1,Xl:PRINT ' 1 '
KT 1
:ATE 14,7:PRINT 'TIPO'
:ATE 15,7:PRINT ' DE '
-8TC
1I 7.DDlUT
'8i'CPi'
ICATE 6,15:PRINT '60(6 70)
KATE 6,30:PRINT '
70'
ICATE 6,44:PRINT ' 80'
ICATE 6,55:PRINT ' 90'
ICATE 6,61:PRINT ' 100'
ICATE 6,O:PRINT '1 10'
ICATE 10,13:PRINT 'A36 A53 6r B'
ICATE 11,13:PRINT 'Al06 6r B A131'
ICATE 12,13:PRINT 'A139 6r B A375'
CATE 13,13:PRINT '6rB A500 A573'
ICATE 14,13:PRINT 'A381 6r Y35'
ICATE 15,13:PRINT 'A501 A516 '
ICATE 17,29:PRINT 'EH'
CATE 11,44:PRINT 'A537 '
CATE 12,44:PRINT 'clase 2'
CATE 13,44:PRINT 'A572 6r 65'
'CATE 12,bZ:PRINT 'A514 '
CATE ll,b2:PRINT 'A517'
CATE 13,bZ:PRINT '2-112 '
CATE 14,bZ:PRINT 'y as'
CATE 13,70:PRINT 'A514 '
CATE 14,70:PRINT 'A517'
CATE 16,13:PRINT 'A524 A529'
CATE 17,13:PRINT 'A570 6r D,E'
CATE 18,13:PRINT "6r65 API 5L'
CATE 19,13:PRINT 'ABS 6r A,B,C,'
CATE 20,13:PRINT 'D ,E,R,6r55,60g
CATE 10,29:PRINT 'A242 A441'
CATE 11,ZT:PRINT 'A537 CLASE1'
CATE 12,29:PRINT 'A516 6r65,70'
CATE 13,29:PRINT 'A572 6r42-60'
CATE 14,29:PRINT 'A588 A618'
CATE 15,29:PRINT 'API 5LX 6r42'
CATE 16,29:PRINT 'ABS 6r AH,DH'
CATE 2,L:PRINT 'SELECCION DEL ELECTRODO EN BASE AL HATERIAL'
CATE 22,18:PRINT 'presione l a barra para continuar'
CATE 23,2:DS=INPUTS(l)
DS-CHRS(32) THEN 6010 1600 ELSE PRINT CHRS(7)
TO 1550
INT CHRS(27)
REEN 0:COLOR 2,O:WIDTH 8O:CLS
=3: X2=78:Y1=3:Y2=21
SUB 16550
CATE 4,6:PRINT 'SOLDADURAS A6A PARA ACEROS AL CARBONO Y BAJA ALEACION'
CATE 6,J:PRINT 'CELULOSICOS CONVENCIONALES'
CATE 12,5:PRINT 'CELULOSICOS ESPECIALES'
CATE 14,5:PRINT 'C-1OP'
CATE 15,5:PRINT 'C-24'
CATE 17,S:PRINT 'RUTILICOS'
CATE 19,J:PRINT 'R-10'
CITE 20,5:PRINT 'R-15'
CATE 8,5:PRINT 'PRODUCTO'
CATE 8,lL:PRINT 'AWS'
CATE 8,26:PRINT 'PROCESO'
CATE 10,5:PRINT 'C-13'
CATE 10,14:PRINT 'E-6011'
CATE 10,24:PRINT 'ARCO ELECTRICO '
CRTE 14.14:PRINT 'E 6010'
108
109
)O LOCATE 15,24:PRINT 'ARCO ELECTRICO '
10 LOCATE 8,42:PRINT 'PRODUCTO'
!O LOCATE 8,54:PRINT 'AWS'
;O LOCATE 8,66:PRINT "PROCESO'
O LOCATE 19,14:PRINT 'E 6013'
O LOCATE 19,:l:PRINT
'ARCO ELECTRICO '
O LOCATE 20,14:PRINT 'E 6013'
O LOCATE 20,24:PRINT 'ARCO ELECTRICO
O LOCATE 10,41:PRINT 'RH-10'
O LOCATE 6,44:PRINT 'HIERRO EN POLVO'
O LOCATE 10,52:PRINT "E 7024'
D LOCATE 10,62:PRINT 'ARCO ELECTRICO'
3 LOCATE 12,41:PRINT 'BASICOS BAJA ALEACION'
1 LOCATE 14,41:PRINT 'B-10'
1 LOCATE 14,52:PRINT 'E 7018'
1 LOCATE 14,62:PRINT 'ARCO ELECTRICO'
LOCATE 6,)l:PRINT 'VARILLAS NO ALEADAS'
1 LOCATE 17,41:PRINT 'H 43'
1 LOCATE 17,52:PRINT "RG-60'
1 LOCATE 17,62 :PRINT 'OX 1ACETI LENI CO'
LOCATE 19,41:PRINT 'COBRE Y ALEACIONES'
LOCATE 20,41:PRINT 'BRONCE C'
LOCATE 20,52:PRINT 'RbCuZn-C'
LOCATE 20,62:PRINT 'OX IACETILENICO'
LOCATE 22,lB:PRINT "PRESIONE LA BARRA'
LOCATE 23,lE:PRINT 'NOTA: LOS PROCESOS DE ARCO ELECTRICO SON HANUALES'
LOCATE 23,2:DS=INPUTS ( 1)
IF DS=CHRS(32) THEN 60TO 2100 ELSE PRINT CHRS(7)
60TO 2040
PRINT CHRS( 27)
SCREEN 0:COLOR 2,O:WIDTH 8O:CLS
x1=5: x2=78:~ 1 = :Y3 2=21
6OSUB 16550
LOCATE 4,29:PRINT 'SOLDADURAS ESPECIALES'
LOCATE 6,6:PRINT 'PRODUCTO AWS
PROCESO'
LOCATE 7,6:PRINT 'HIERRO FUNDIDO'
LOCATE 8,6:PRINT 'X-41'
LOCATE 8,lS:PRINT ' E Ni C1 ARCO ELECTRICO'
LOCATE 9,6: PRINT 'X-48'
LOCATE 9,15:PRINT ' E St'
LOCATE 11 ,6:PRINT 'RECUBRIHIENTO PROTECTOR'
LOCATE 12 ,b:PRINT "8-80'
-OCATE 12,lS:PRINT 'E Fe Hn ARCO ELECTRICO'
.OCATE 13,6:PRINT 'B-83'
.OCATE 14,b:PRINT '8-84'
.OCATE 16,42:PRINT 'CORTE Y BISELADO'
.OCBTE 17,42:PRINT 'X-99
ARCO ELECTRICO'
.OCATE 17,6: PRI NT 'INOX IDABLES ESPECIALES'
E312-16 ARCO ELECTRICO'
OCATE 18,6:PRINT 'R-91
E310-16 ARCO ELECTRICO'
OCATE 19,6:PRINT 'R-67
AWS
PROCESO'
OCATE 6,42:PRINT 'PRODUCTO
OCATE 8,42 :PRINT '1 NO! 1DABLES CONVENCI ONALES'
ARCO ELECTRICO'
OCATE 9,42:PRINT 'R-60 E308L-16
ARCO ELECTRICO'
OCATE 10,42:PRINT 'R-63 E316L-16
OCATE 11,411:PRINT 'R-65 E309L no-lb ARCO ELECTRICO'
ARCO ELECTRICO'
OCATE 12,42:PRINT 'R-72 E309L-16
OCATE 22,30:PRINT 'PRESIONE LA BARRA'
]CATE 23.2:S=INPllT111~
1
110
INT CHRS(27)
REEN 0:COLOR 2,O:WIDTH 8O:CLS
=5: X2=76:Y 1=3: Y 2=22
SUB 16550
CATE 5,15:PRINT 'SOLDADURA SEHIAUTOHATICA'
CATE 7,lO:PRINT "ALAflBRES HI6-tA6'
CATE 8,lO:PRINT 'PRODUCTO
AWS
PROCESO'
HETAL ACTIVO 6AS (HA6)'
CATE 11,lO:PRINT '
ER 70s-6
CATE 12,lO:PRINT '
ER 308L
HETAL INERTE 6AS (HI6-'
CATE 13,lO:PRINT '
ER 312
METAL INERTE 6AS (HI61'
CATE 14,lO:PRINT '
ER 4043
HETAL INERTE 6AS (HI6)'
CATE 15,lO:PRINT '
ER 5356
HETAL INERTE 6AS (HI6)'
CATE 17,lO:PRINT 'VARILLAS-TI6'
CATE 18,lO:PRINT "
ER 308L
TUGSTENO INERTE 6AS(TI6)'
CATE 19,lO:PRINT '
ER 312
TUGSTENO INERTE 6AS(TI6)'
CATE 20,lO:PRINT '
ER 4043
TUGSTENO INERTE 6AS(TI6)'
CATE 21,lO:PRINT '
ER 5356
TUGSTENO INERTE 6AS(TI6)'
CATE 24,5:PRINT 'DESEA UNA EXPLICACION HAS AHPLIA DE LOS ELECTRODOSISIN)'
IUT A$
AS="'
OR A$=%' THEN 60TO 3070
A W S ' OR AS='s' THEN LUCATE 25,5:INPUT 'QUE TIPO DE ELECTRODO=> ',DI
EAD DS
DS='ER 70s-6' 60TO 2640
DS='ER 308 L' 60TO 2820
iEEN 0:COLOR 2,O:WIDTH 8O:CLS
~ 5 X2=76:Y1=3:
:
Y2=21
XIB 16550
:ATE 5,15:PRINT 'ALAHBRE HI6 PARA ACERO DE BAJO CARBONO'
:ATE 7 ,6:PRINT 'APLICACIONES: '
:ATE 8,6:PRINT 'Para soldar acero dulce en toda posicion,mediante'
:ATE 9,b:PRINT 'proceso HA6,usando Anhidrido Carbonico(COZ1.'
:ATE 10,6:PRINT 'Utilizacion en estructuras en general ,maquinarias'
:ATE 11,b:PRINT 'bastidores de autos, puen tes,ruel les, torres, etc'
:ATE 12,6:PRINT 'PESO POR ROLLO:15 Kg.'
:ATE 13,6:PRINT 'HETAL DEPOSITADO: C 1% Si 0.90 X Hn 1.50 %'
:ATE 14,6:PRINT 'COSTO:S/.3696 POR Kg.'
:ATE 16,6:PRINT 'NOTA: EL COSTO FUE CALCULADO A 1150 SUCRES POR DOLAR'
:ATE 22,lE:PRINT 'PRESIONE LA BARRA'
:ATE 23, Z:DS=INPUTS( 1 )
DS=CHRS(32) THEN 60TO 3120 ELSE PRINT CHRS(7)
10 2770
INT CHRS(27)
iEEN 0:COLOR 2,O:WIDTH 8O:CLS
:5: X2=76: Yl=2: Y2=21
iUB 16550
:ATE 3,17:PRINT 'ALAHBRE DE ACERO INOXIDABLE PARA PROCESO HI6'
:ATE 4,T:PRINT 'Alambre continuo que deposita un acero un acero auste -'
:ATE 5,9:PRINT 'nitico.Posee gran resistencia a l a corrosion y gracias'
:ATE 6,9:PRINT 'a su extra bajo contenido de carbono es minina la foma-'
:ATE 7,T:PRINT 'cion de carburo de cromo en el retal soldado.'
:ATE 8,9:PRINT 'Posee buena resistencia a los agentes oxidantes,ducti -'
:ATE 9,B:PRINT 'bilidad y alta resistencia a l impacto, inclusive a tea-'
:ATE 10,T:PRINT 'peraturas muy bajas. '
:ATE 11,6:PRINT 'APLICACIONES: '
:ATE 12,T:PRINT 'Recomendado para inoxidables tipo 18 CrI8Ni;para la '
:ATE 13,T:PRINT 'union de los aceros inoxidables 201,202,301,302,302b,'
:ATE 14,T:PRINT '303,303Se,304,304L ,305,308,~21,347,348,405,410,420"
'ATC i &OnDDIUT
1E-s.i-m-
---.
_-_----
-1----i--
i1:---bm-
..
i..;-:imiI
111
CATE 18,b:PRINT 'ELONGACION EN 2 PULG: 39'
CATE 19,b:PRINT 'LIHITE DE FLUENCIA:46 O00 LB/PUL6"2'
CATE 22,lE:PRINT 'PRESIONE LA BARRA PAR CONTINUAR'
CATE 23,2:D5=INPUTC( 1)
D$=CHR5(32) THEN 60TO 3120 ELSE PRINT CHRI(7)
TO 3020
INT CHR5(27)
CATE 23,lE:PRINT 'PRESIONE LA BARRA PARA CONTINUAR'
CATE 24,Z:PRINT DC=INPUT5(1)
D5=CHR5(32) THEN 60TO 3120 ELSE PRINT CHRS(7)
TO 3070
INT CHRC(27)
CREEN 2,O: KEY 0FF:CLS
=32
R 1=1 TO 3
NE ( 1-1,I-1)- (640-1,200-1),,B
XT 1
CATE 3,22 : PRINT 'PROPIEDADES DE CONECCIONES SOLDADAS ';
1NT
CATE 4,27 : PRINT 'TRATADAS COHO UNA LINEA';
CATE 7,26 : PRINT 'TIPOS DE CONEXIONES SOLDADAS'
HE (0+4,28+YO)-(639-4,ZEtYO)
CATE 9,2 : PRINT 'TIPO O'
CATE 9,lO : PRINT 'TIPO 1'
CATE 9,18 : PRINT 'TIPO 2'
CATE 9,26 : PRINT 'TIPO 3'
CATE 9,34 : PRINT 'TIPO 4'
CATE 9,42 : PRINT 'TIPO '5
CATE 9,50 : PRINT 'TIPO 6'
CATE 9,58 : PRINT 'TIPO 7'
CATE 9,66 : PRINT 'TIPO 8'
CATE 9,74 : PRINT 'TIPO 9'
VE(0+4,44tYO)-(639-4,44+YO)
YE (0+4,92+YO)-(639-4,92+YO)
YE( 0+4,28+YO1-1 0+4,92+YO)
1E (63,28tY0 ) - (63,92tYO)
YE( 127 ,28tYO)- ( 127 92+YO)
UE(l91,28+Y0)-(191,92+YO)
YE (255,28+YO)- (255,92+YO)
IE(319,28+YO)-( 319,92+YO)
YE ( 383,2B+YO)- ( 383,92tYO)
IE( 447,28tYO)- (447,92+YO)
YE( 51 1,28+YO 1-( 511,92+YO)
(E( 575,28+YO)- ( 575,92+YO)
YE (639-4,28+YO)-(639-4,92+YO)
iNT=CINT ( 50/ASPECT)
iNT=52tAC1NTtY O
IE (32,52tYO)-(32,BCINT) 'TIPO O
YE ( 90,52+YO)-( 90,BCINT) 'TIPO 1
IE (102,52+YO)-( 102,BCINT )
1E(134,BCINT)-(l34,52+YO) 'TIPO 2
IE -(184,52+YO)
IE (248,BCINT)- ( 198,BCINT) ' TIPO 3
JE -(198,52+YO)
IE -(248,52+YO)
(E (312,BCiNT)-(262,BCINT) 'TIPO 4
IE -(262,52+YO)
IE -1312.52tYOI
112
NE (326,52tYO)-(376,52+YO) 'TIPO 5
NE (326+LEFS,52tYO)-(326+LEFS,BCINT)
NE (326+RI6TS,52tYO)- (326tR16TS,BCINT 1
NE (390,52+Y0)-(440,52+YO) 'TIPO 6
NE (390,57+YO)-(440,57+YO)
NE (390+LEFS,57tYO)-(39O+LEFS,BCINT1
NE (390+RI6TS,57+YO)-(390tR16TS ,BCINTl
NE (454,52tYO)-( 504,52tYO) 'TIPO 7
NE (454tLEFS,52+YO)-(454+LEFC,BCINT)
NE ( 454+RI6TS,52tYO)-(454+RI6TS,BCINT )
NE (454,BCINT)-(504,BCINT)
NE (518,52tYO)-(568,52+YO)
'TIPO 8
NE (518,55tYO)-( 568,55+YO)
NE (518+LEFS,55tYO)- (SlE+LEFS,BCINT-3)
NE (518+RI6TS,55+YO)-(518+R16TSIBCINT-3)
NE (518,BCINT-3)- ( 568 ,BCINT-3)
NE (518,BCINT)-(568,BCINT)
RCLE (607,68+YO),i6,,,,l/ASPECT 'TIPO 9
CATE 24,3
PUT 'INGRESE EL TIPO DE CONEXION SOLDADA (0---9)'; TIPO
TIPOt1 6010 3810,4390,5150,6240,7180,7930,8770,9620,10410,11220
UBROUT1NE'----- 'PROPIEDADES DE LAS UNIONES SOLDADAS,TIPO#O
SUB 3840
10 4040
ubroutine
'screen of type #O
C : CCREEN 1,0
MONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
NE (O, 160)-( 319,199),2,BF ' window
NE (0,0)-(319,159),1,B 'green boundary
USERS O " AND UCERS O ' ' THEN 60SUB 16470
NE (159,O)-(159,159),1
' whi t e axes
NE (80,40)-(80,120)
NE (40,80)-(120,80)
CATE 11,5 : PRINT 'x
CATE 11,16 : PRINT 'x'
CATE 5,lO : PRINT 'y
CATE 15,lO : PRINT 'y
'green scaie iines
HE (83,55)-( 110,55),1
NE (83,105)-(110,105),1
HE (100,55)-(100,105),1
CATE 9,13 : PRINT 'd=Au'
' red weids
HE (80,55)-(80,105),2
HE (81,55)-(81,105),2
TURN
CATE 4,22 : PRINT 'Ix = dA3/12 '
CATE 6,22 : PRINT 'Sx = d"2/6 '
CATE 22,2 : INPUT 'INGRESE D EN PULGADAS'; D
CATE 23,2: INPUT 'EL VALOR INGRESADO ESTA BIEN? (Y/N)';IS
I W N ' OR IS='n' THEN LOCATE 24,2:INPUTnREIN6RESE D';D ELSE 6010 4100
= DA3/12 : SX = DA2/6
I=D/2 : CXB=D/Z : CYL=O :CYR=O : AY=D : C=D/2 : JW=IX
rL=cxi :CXTR=CXT :CXBL=CXB :CXBR=CXB
JL=SX : SXUR=SX : SXLL=SX : SXLR=SX
JL=9.999999E-08 : SYUR=9.999999E-08 : SYLLz9.999999E-OB : SYLR=9.999999E-08
SUB 14240 ' INGRESE LAS CONDICIONES DE LAR68
;UB 14840
XIB 11900 'CALCULO DE LOS ESFUERZOS
I I R 13346
'TUfiRFSF 1NFilRMArTilN SIIRRF IlflMPnNFNTFC Y API TCAClflN
:CYTL=O :CYTR=O
:CYBL=O
:CYBR:
113
NE( O, 160)-(319,199) ,2,BF
ICATE 22,4 :PRINT'ERROR: EL COH. DE HENOS ESP. ES HUY DELG.'
' DS=CHRS(27) THEN :CLS :SCREEN O :#IDTH 80 :END
ELSE 6010 4220
' DS=CHRS(13) THEN SOTO 4180
ISUB 12390
'CONVERSION DEL TAtANO DE 'SOLDADURA A EXPRESION
'OP=QTOPLEFT : QBOTTOM=QBOTTOHLEFT
'OPLEFT=O : QTOPRISHT=O : QBOTTOHLEFT=O : QBOTTOHRIGHT=O
ICUB 3840 'screen d i s p l a y i n g
ICATE 4,21
IINT 'Ix=';
:PRINT USIN6'####,##';FNRNDF( 1%); :PRIt(T ' PA4/P'
ICATE 6,Zl
IINT ''SX='; :PRINT USING'####.?#';FNRNDF(S%);
:PRINT ' PA3/P'
ICATE 8,21
IINT 'Jw=': :PRINT USINS'####.##';FNRNDF( I X ) ; :PRINT ' PA4/P'
ICATE 10,21
IINT ' d='; :PRINT USINS'####.##';D;
:PRINT 'P '
ICATE 12,21
lINT 'Aw = '; :PRINT USIN6'####,##':AH;
: PRINT'P"Z/P'
CATE 22,2 : PRINT 'IHPRIHA LA PANTALLA CON PrtCc O'
ICATE 23,2 : PRINT 'PRES. LA BARRA PARA CONTINUAR';
i=I NPUTS( 11
. DS=CHRS(32) THEN SOSUB 16680 ELSE PRINT CHRS(7)
ITO 4350
'PROPIEDADES DE LAS UNIONES 'SOLDADAS TIPOll
subroutine
iOSUB 4420
ITO 4700
iubroutine
'screen o f type #1
.C : SCREEN 1,0
HONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
:NE (O,160)-(319,199),2,BF
'window
#E (0,O)-(319,159) ,1,B 'green boundary
' UCERS 0 " AND USERS O ' ' THEN 60SUB 16510
NE (159,O)-( 159,159),1
' n h i t e axes
NE (80,40) -( 80,120)
NE (40,80)-(120,80)
ICATE 11,5 : PRINT 'x'
ICATE 11,16 : PRINT 'x'
ICATE 5,lO : PRINT 'y'
ICATE 15,lO : PRINT 'y'
NE (60,15 ) - (60,52), 1
NE (100,15) - ( 100,52), 1
NE (60,20)-(100,20), 1
CATE 3,11 : PRINT 'b'
NE (20,551-(57,55),1
NE (20,105)-( 57,105),1
NE (30,55)-( 30,105), 1
CATE 9,4 : PRINT 'd'
NE (80,80)-( 100,105), 1
CATE 12,12 : PRINT 'c'
NE (99,55)-( 99,105) ,2
NE (100,55)-( 100,105) ,2
NE (60,55)-(60,105),2
NE (59,55)-( 59,105) ,2
TURN
CATE 4,22 : PRINT 'Ix=dA3/6'
CATE 6,22 : PRINT 'Cx=dA2/3'
CATE 8,22 : PRINT 'Jw=d/6t(3tbA2+d"2)'
PATC i r ? ??
DDiUT
li,,-LA'>tAI'>l
:LOCATE 23,4 :PRINT'PRES.
RETURN t o D16. EL
114
:ATE 16,22 : PRINT 'Aw=2td'
:ATE 23,2
'UT 'DIGITE d EN PULG.:';
D
IE ~0,160]-(319,199] ,Z,BF ' window
:ATE 23,2
W T 'INGRESE b IN PULGADAS: '; B
VE (0,1601-(319,199 ],2,BF ' window
=DA3/6 : SX=DA2/3 : IY=BA2tD/2 : SY=BlD
=D/6t(3tBA2tDA21 : C=( (BA2tDA2IA.5)/2
:2tD : CXT=D/2 : CXB=D/2 : CYL=B/Z : CYR=B/2
iL=CXT :CXTR=CXT :CXBL=CXB :CXBR=CXB
JL=SX : SXUR=SX : SXLL=S% : SXLR=SX
JL=SY : SYUR=SY : SYLL=SY : SYLR=SY
SUB 14240 ' INGRESE LAS CONDICIONES DE CARGA
3JB 14840
SUB 11900 'CALCULO DE LOS ESFUERZOS
Y B 12240
' INGRESE LA INFORHACION SOBRE EL COHPONENTE Y SU APLICACION
'CHEQUEE EL TAHANO HINIHO DE SOLDADURA POR AWS D1.l
YJB 12570
ER=O 60TO 4990
IE(O,lbO]-( 319,199) !Z,BF
:ATE 22,3 :PRINT'ERROR: EL COHP.MS DELGADO ES DEH. DELG.'
DS=CHRS(27) THEN :CLS :SCREEN O :WIDTH 80 :END
DS=CHRS(13] THEN 6010 4920 ELSE 6010 4960
U B 12390 'CONVERSIO DEL TAHANO DE SOLDADURA A UN CARACTER DE EXP.
;UB 4420
:ATE 2,21
iNT 'Ix=';
:PRINT USING'####.##';FNRNDF(
1%); :PRINT " P.^4/P'
:ATE 22,2
iNT 'EXCENTRICIDAD DE F A LO LARGO'
:ATE 6,21 : PRINT 'Jw=';FNRNDF(JW);'
P."4/P'
:ATE 8,21 : PRINT 'Iy=';FNRNDF(IY);'P.^4/p'
:ATE 10,21 : PRINT 'Sy=';FNRNDF(SY);'PA3/P'
:ATE 12,21 : PRINT ' c=';FNRNDF(Cl;'
EN'
:ATE 14,21 : PRINT ' d=';D;'EN'
:ATE 16,21 : PRINT ' b=';B;'EN'
:ATE 18,21 : PRINT 'Aw = ';AW;'PULGA2/PULG'
:ATE 22,2 : PRINT 'IWPRIWA LA PANTALLA CON PrtSc OR'
:ATE 23,2 : PRINT 'PRESS BARRA PARA CONTINUAR';
:INPUT$ (11
D$=CHRS(32] THEN 60SUB 16680 ELSE PRINT CHRS(71
10 5110
iubroutine
'PROPIEDADES DE UNIONES SOLDADAS; TYPE 12
)SUB 5180
i0 5550
ibroutine
'screen of type #l
i : SCREEN 1,0
HONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
IE (O,160)-(319,1991,2,BF
'window
IE (0,0)-(319,159) ,l,B 'green boundary
USERS O " AND USERS O ' ' THEN 60SUB 16470
IE (159,O)- ( 159,159), 1
IE (73,401 -( 73,120 1 ' nhi te axes
IE (40,68]-(120,68]
IE (60,151-(60,52),1
IE (100,15]-(100,521,1
IE (60,ZO)-( 100,20 ],1
:ATE 3,11 : PRINT 'b
IC
im
551-157 5 5 1 1
:CYTL=CYL :CYTR=CYR :CYBL=CYL :CYE
:LOCATE 23,4 :PRINT'PRES.
RETURN PARA RE
115
LOCATE 11,4 : PRINT "d'
LINE (73,68)-(100,55),1
LOCATE 8,11 : PRINT 'c'
LINE (60,108)-( 60,145), 1
LINE (73,123)-(73,145) ,1
LINE (100,108)-(100,145),1
LINE (60,140) - ( 73,140) ,1
LINE (73,132)- ( 100,132), 1
LOCATE 19,9 : PRINT 'Cyl'
LOCATE 17, : PRINT 'Cyr'
LINE( 102,55)-( 112,55), 1 :LINE( 102,105)-( 112,105), 1
LOCATE 8,14 :PRINT'Cxt'
:LOCATE 11,14 :PRINT'Cxb' :LOCATE 11,9 :PRINT'C2'
LOCATE 9,5 : PRINT 'x'
LOCATE 9,16 : PRINT 'x'
LOCATE 5, 9 : PRINT y'
LOCATE 15, 9 : PRINT 'y
LINE (100,55)-(60,55 ,2
LINE -(60,105),2
LINE (100,54)-(59,54 ,2
LINE -(59,105),2
RETURN
LOCATE 23,2
INPUT 'INGRESE D EN PULG.: '; D
J N E (0,160)-(319,199) ,2,BF 'windon
.OCATE 23,2
INPUT 'INGRESE B EN PUL6 : '; B
.INE (O, 140)-(319,199) ,2,BF 'nindow
[X=DA3/12t((4tBtD)/(BtD)) : CXT=D/bt(4tBtD)
[Y=BA3/12t( (Bt4tD 1/ ( BID) 1 : CYL=B/bt (Bt4tD1
IW=IX t IY
:XT=DA2/(2t(BtD) 1 : CXB=D/2t(ZtBtD)I(BtD) :CYL=BA2/(2t(BtD) 1
:XTL=CXT
:CXTR=CXT :CXBL=CXB :CXBR=O
iW=BtD : Cl=COR(CXTA2tCYRA2) : C2=SQR(CXBA2tCYLA2)
;XUL=SXT : SXUR=SXT : SXLL=SXB : CXLR=SXB
iYUL=SYL : SYUR=SYR : CYLL=SYL : CYLR=TEtO8
OCATE 6,22 :PRINT'USTED PODRA VER EN'
OCATE 10,22:PRINT'LA SIGUIENTE PINTA-'
OCATE 14,22 :PRINT'LLA LAS ECUACIONES'
DCATE 18,ZZ:PRINT 'DE LAS PROPIEDADES'
OCATE 22,2 : PRINT 'PRINT THE SCREEN BY PrtCc OR'
DCATE 23,2 : PRINT 'PRESS barra PARA CONTINUAR';
S=INPUTS ( 1 )
F DS=CHRS(32) THEN 60TO 5780 ELCE PRINT CHRS(7)
DTD 5740
LS : SCREEN 2
INE (0,169)-(639,1991, ,BF
: USERS = " OR USERS = ' ' 6010 5830
ICATE 2,80 - LEN(U5ERS):PRINT USERS
"E (Bt(80 - LENIUSERS)) - 16,201 - (639,0),,B
IR 1=1 TO 4
"E ( 1-1, 1-1 1-( 640-1,200-1) , ,B
:LINE(107,55)-(107,105),1 :LINE(73,
: SXB=DA2/4t( (4tBtD)/(2tBtD))
: SYR=BA2/6t((Pt4tD)/(BtZtD))
: CYR=B/2tlB+Ztlr: ibD)
:CYTL=CYL :CY i GYR
:XT 1
lClTE 2, 27 :PRINT'PROPIEDADES DE SOLDADURA
NE( 323,) O ) - ( 326,159), ,BF
ICATE 6, 2 :PRINT'Ix=dA3/12t(4fbtd)/(btd)
ICATE 6,42 :PRINT'Iy=dA3/12t( bt4td)/( bid)
ICLTE 8, 2 :PRINT'Cxt=d/6tOtbtd)
CATE 8.42 rPRINT'Cv1 = h l b l I h + l l r l \
TIPO12 '
='; :PRINT USING '111111.1 ';
='; :PRINT USIN6 '111111.1 ';
='; :PRINT USING '11111.11 ';
=I.
.DDIUT
IICTUC
~ a s a a aaa
I-
IX; :PRINT 'PA3'
IY; :PRINT 'PA3'
CXT; :PRINT 'PAZ'
-,,,
--...- -- .--
:CYBL=C'i
:ATE 12, 2 :PRINT'Cxt=dA2/(2t(btd))
='; :PRINT UC"IG '3?t49.3; ' *9
:ATE !2,42 :PRINT'Cyl=b"2/(Zt( btd))
='; :PRINT USiifi ' Q " 3 . # 3 ';
:ATE 14, 2 :PRINT"C~b=d/2t(2tb+d)/(b+d)
='; :PRINT UCINB 'i;,;a%.%D ';
:ATE 14,42 :PRINT'Cyr=b/2t(btZtd)/(btd)
='; :PRINT UCIHF *311###.O# ';
:ATE 16, 2 :PRINT'C1=sqr(CxtA2tCyrA2)
='; :PRINT UCING '#####.#O ';
:ATE lb,42 :PRINT'C2=sqr(CxbA2tCylA2)
='; :PRINT UCIldG '#####.#" ';
:ATE 18, 2 :PRINT'Jw=IxtIy
='; :PRINT UCIN6 '######.# ";
:ATE 18,42 :PRINT'Aw=btd
='; :PRINT UCIN6 '####O.## ';
:ATE 20, 2 :PRINT'b
='; :PRINT UCIN6 '####.### ';
:ATE 20,42 :PRINT'd
='; :PRINT UCING '####.##t
';
:ATE 23,2 : PRINT 'IEIPRIHA LA PANTALLA CON PrtCc O'
:ATE 24,2 : PRINT 'PRECS LA BARRA PARA CONTINUAR'; : LOCATE 22,36
:INPUT$(l)
D$=CHR$(32) THEN 60SUB 6090 ELCE PRINT CHRI(7)
O 6050
I :SCREEN 1,0
HONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
IE (0,0)-(319,159),1,B : LINE(159,0)-(159,159),1
iSUB 14240 'ANALISIS DE CARGAS
UB 14840
'INGRESO DE CARGAS
ISUB 11900
'CALCULO DE LOCESFUERZOS
UB 12240
'INGRESE EL COHPONENTE E INFORHACION SOBRE SU APLICBCION
UB 12570
'CHEPUEE EL TAHANO HINIHO DE SOLDADURA POR AWC D1.l
ER=O 60TO 6220
E(O,160)- (319,199) ,2,BF
ATE 22,3 :PRINT'ERROR: EL COHPONENTE HAS DEL. ES HUY DELG.'
ATE 24,4 :PRINT'PRES. ECC t o exit.";
ATE 22,36 :D$=INPUTI(l)
DS=CHR$(13) THEN 60TO 6150 ELSE 60TO 6190
UB 12390
'CONVERSION DEL TAHANO DE SOLDADURA A EXPRESION
UB 16680
'EXIBA LOS RESULTADOSs
ubroutine
'PROPIEDADES DE LAS UNIONES SOLDADAS; TYPO 13
SUB 6270
O 6630
broutine
'screen o f type #l
: SCREEN 1,0
HONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
E (O,160 1- (319,199 ),2,BF ' window
E (0,O)-(319,159),1 ,B ' green boundary
E (159,O)-(159,159),1
E (73,401- (73,120)
' whi te axes
E (40,EO) - (120,EO)
ATE 11,5 : PRINT 'x'
BTE 11,16 : PRINT 'x
ATE 5, 9 : PRINT 'y
ATE 15, 9 : PRINT "y'
E (60,15)- (60,52), 1
E ( 100,15)-( 100,52 1 ,1
E (60,20)-(100,20),1
LTE 3,11 : PRINT 'b
E (20,55)-( 57,55) ,l
E (20,105)-(57,105),1
E (30,55)- (30,105), 1
RTE 9,4 : PRINT 'd
E (73401- ( 100,105 ) ,1
RTE 12,12 : PRINT 'c'
E (60,108) - (60,145), 1
i 177 1311-171 1151 1
CXT; :Pi?IYT * P'
CYL; :PC!HT * P'
CX3; :PndT
P'
CYP, :PRIHT ' P'
C1 j :PRINT ' P'
C? ; :PRIHT P"
J W ; :PRINT 'PA3'
A'1 ; :PRINT ' P'
B ; :PRINT ' P'
D ; :PRINT a P'
:LOCATE 21,4 :PRINT'PRES.
RETURN PAR1
E (73,132)-(100,132),1
RTE 19,9 : PRINT 'Cyl'
RTE 17,11 : PRINT 'Cyr'
E (100,551-(60,55),2
E -(60,105),2
E -(100,1051 2
E ( 100,54)- ( 59 54),2
E -(59,106),2
E -(100,106),2
URN
E (114,80)-(120,80),O
ATE 11,14 : PRINT 'x'
E (159,0)-(159,159),O
E (116,0)-(116,159),1
ATE 3,lb : PRINT 'Ix=dA2/lZt(6tbtd)'
ATE 5,16 : PRINT 'Sx=dl6t(6tbtd)'
ATE 7,16 : PRINT 'Iy=bA3/3t(bt2td)/(2tbtd)'
ATE 9,16 : PRINT "Syl=b/3t(bt2ld)'
ATE 11,16 : PRINT "Syr=bA3/3t(bt2td)/(btd)'
ATE 13,16 : PRINT 'Jw=IxtIy' SPC(7) 'Aw=ZSbtd'
ATE 15,16 : PRINT 'C=(CyrA2t(d/2)A2)A(l/2)'
ATE 17,16 : PRINT 'Cyi=bA2/(2Sbtd)'
ATE 19,16 : PRINT 'Cyr=bt(btd)/(2tbtd)"
ATE 23,2
UT 'INGRESE d EN PULG. : ': D
E (O,160)- (319,199),2,BF ' window
ATE 23,2
UT 'INGRESE b EN PULG. : ";B
E (O, 160)-(319,199),2,BF 'window
DA2/12t(6tBtD) : SX=D/S(6tB+D) : IY=BA3/3$(B+ZtD)/(ZSBtD)
IXt IY : CYL=B"2/ (LiBtD) : CYR=Bi(BtD)/ (ZtBtD)
2tBtD : CXT=D/Z : CXB=D/L : C=(CYR"2t(D/2IA2Y.5
L=CXT :CXTR=CXT :CXBL=CXB :CXBR=CXB
L=SX : SXUR=SX : SXLL=SX : SXLR=SX
L=SYL : SYUR=SYR : SYLL=SYL : SYLR=SYR
UB 6270
ATE 2,21
NT 'Ix=';
:PRINT USING'####.##';FNRNDF( IX); :PRINT' PA4/P'
ATE 4,21
NT 'SX='; :PRINT USING'####.#I';FNRNDF(SX);
:PRINT' PA3/P'
ATE 6,21
NT 'Jw=';
:PRINT USING'####.##';FNRNDF(JW);
:PRINT' P"41P'
ATE 8,21
NT 'Iy=';
:PRINT USING'####.##';FNRNDF( IY); :PRINT ' PA4/P'
ATE 10,21
NT 'Syl='; :PRINT USING'####.##';FNRNDF(SYL);
:PRINT ' PA3/P'
ATE 12,21
NT 'Syr='; :PRINT USING'####.##';FNRNDF(SYR);
:PRINT ' PA3/P'
ATE 14,21
NT 'C.'; :PRINT USING'####.##';FNRNDF(C);
:PRINT ' P'
ATE 16,Zl
NT 'Cyi='; :PRINT USING'####.##';FNRNDF(CYL);
:PRINT ' P'
ATE 18,21
NT 'Cyr='; :PRINT USING'####.##';FNRNDF(CYR);
:PRINT ' P'
ATE 20,21
NT 'Aw = '; :PRINT USING'####.##';AW; :PRINT 'PA2/P'
ATE 2,8
NT 'h='-
*PRlNT IiSINC'lllt l'rRi
?PRINT 'P'
: SYL=B/3t(B+ZtD): SYR=BY!, 3t(B+2tD)/
:CYTL=CYL
:CYTR=CYR
:CYBL=CYL :C
:ATE 22,2 : PRINT 'IHPRIHA LA Pf,:tTXLA CC:I PrtSc UR"
:ATE 23,2 : PRINT 'PRESS LA El&A PARA CC:IINUAR';
=INPUT$( 1 1
DJ=CHR$(32) THEN 6USUB 7060 ELSE PRI CHR$(7)
i 0 7020
ISUB 14240 'ANALISIS DE LAS CARGAS
YiB 14840
'INGRESO DE CARGAS
)SUB 11900
'CALCULO DE LOS ESFUERZOS
!UB 12240 'INGRESE LA INFURHACIUN CUBRE EL COHPUNENTE Y SU APLICACION
N B 12570 'CHEQUEE EL TAHANO HINIMO DE COLDADURA CON AWS D1.l
ER=O 60TO 7160
lE(0,160)-(319,199),2,BF
:ATE 22,3 :PRINT'ERRUR: EL COHP. HAS DEL6. ES DEHASIADO DELG.'
D$=CHR$(27) THEN :CLS :SCREEN O :WIDTH 80 :END
D$=CHR$(13) THEN 60TO 7090 ELSE GUTO 7130
iUB 12390
'CUNVERSION DEL TAHANO DE SOLDADURA A EXPRESION
;UB 16680
'IHPRESIUN DE LOS RESULTADOS
iubroutine
'PROPIEDADES DE LAS UNIONES SOLDADAS; TYPO 14
)SUB 7210
10 7460
ibroutine
'screen of type 14
; : SCREEN 1,0
HONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
E (O,160)- (319,199),2, BF ' window
IE (0,0)-(319,159),1,B 'green boundary
1E (159,O)-(159,159),1
IE (80,40)-(80,120) ' whi t e axes
IE (40,801-(120,80)
:ATE 11,5 : PRINT 'x'
:ATE 11!16 : PRINT 'x
:ATE 5,lO : PRINT 'y
:ATE 15,lO : PRINT 'y
IE (60,151- (60,52),1
E (100,15)-(100,52), 1
IE (60,20)-(100,ZO) ,1
:ATE 3,11 : PRINT 'b
IE (20,55)-(57,55),1
IE ( 20,105 1- ( 57,105 ) ,1
IE (30,55)-(30,105),1
:ATE 9,4 : PRINT 'd"
IE (80,80)-(100,105),1
:ATE 12,12 : PRINT 'c
IE ( 59,54)- ( 100,106), 2, B
IE (60,55)-(99,105),2,B
'URN
:ATE 4,22 : PRINT 'Ix=dA2/6t(3tbtd)'
:ATE 6,22 : PRINT 'Sx=d/3t(3ibtd)'
:ATE B,22 : PRINT 'Jw=(b+d)^3/6'
:ATE 10,22 : PRINT 'Iy=bAZ/6t(b+3td)'
:ATE 12,22 : PRINT 'Sy=b/3t(bt3tdl'
:ATE 14,22 : PRINT 'c=((bA2tdA2)^0.5)/2'
:ATE 16,22 : PRINT 'Aw=2t(b+dl'
:ATE 23,2
'UT 'INGRESE d EN PULG.: ' j D
IE (O, 16014319,199),2,BF 'window
:ATE 23,2
rllT I i U C O C C C C Dlll C
8 .
:L@C'.X 23,4 :;UN1 TES. RETURN
113
BtD)^3/ : C=( (B"ZtD"2)^.51/2
t(DtB) : CXT=D/2 : CYB=D/Z : CYL=B/Z : CYR=B/Z
=CXT :CXTR=CXT :CXBL=CXB :CXBR=CXB
=SX : SXUR=SX : SXLL=SX : SXLR=SX
=SY : SYUR=SY : SYLL=CY : SYLR=CY
B 14240 'INGRESO DE LAS CONDICIONES DE CARGA
B 14840
B 11900 'CALCULO DE LOS ESFUERZOS
B 7210
TE 2,21
T 'Ix=';
:PRINT USING'####.##';FNHNDF(IX);
:PRINT ' P^4/P"
TE 4,21
T 'SX='; :PRINT USIN6"####.##';FNRNDF(SX);
:PRINT ' P^3/P'
TE 6,21
T 'Jw=';
:PRINT USIN6"####.##';FNRNDF( JW); :PRINT ' P^4/P'
TE 8,21
T 'Iy=';
:PRINT USING'####.##';FNRNDF(IY);
:PRINT ' PA4/P'
TE 10,21
T 'Sy='; :PRINT USIN6'####.##';FNRNDF(SY);
:PRINT ' PA3/P'
TE 12,21
T ' c='; :PRINT USIN6'####.##';FNRNDF(C);
:PRINT ' P'
TE 14,21
T ' d='; :PRINT USIN6'###.##';D;
:PRINT 'P'
TE 16,21
T ' b='; :PRINT USIN6'####.##':B;
:PRINT 'P"
TE 18,21
T'Aw = '; :PRINT USING'####.##';AW;
:PRINT'P^Z/P'
TE 22,2 : PRINT 'IHPRIHA La PANTALLA CON BY PrtSc O'
TE 23,2 : PRINT 'PRES. BARRA PARA CONTINUAR';
NPUT$( 1)
S=CHR$(32) THEN 6OSUB 7830 ELSE PRINT CHR$(7)
:CYTL=CYL
:CYTR=CYR
:CYEL=CYL
:CY
7790
' INGRESE INFORHACION SOBRE EL COMPONENTE Y SU APLICACION
'CHEQUEE EL TAHANO HINIHO DE SOLDADURA CON AWS D1.l
8 12570
R=O 60TO 7910
(O, 160)-( 319,199 ) ,Z,BF
TE 22,3 :PRINT'ERROR:COHP.
HAS DEL6. HUY DELG.'
B 12240
S=CHR$(27)
S=CHR$(13)
B 12390
B 16680
broutine
UB 7960
THEN :CLS :SEREEN O :WIDTH 80 :END
THEN 6010 7840 ELSE 60TO 7880
'CONVERSION DEL TAHANO DE SOLDADURA A EXPRESION
' IHPRIHA LOS RESULTADOS
'PROPIEDADES DE LOS UNIONES SOLDADAS; TIPO 15
8250
routine
'screen of type 15
: SCREEN 1,0
JNTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
(O,169 ) - (319,199 ),2, BF ' window
1=1 10 4
.UDE'jorge42. bas'
(I-1,1-1)-(32O-I,169-1) ,1,B 'green boundary
1
(119,O)- (119,169), 1
(O, 15)-( 60,52),1
( 100,15)- ( 100, 52), 1
fin m\-finn
:LOCATE 23,4 :PRINT'PRES.
RETURN PARA
(20,105)-(57,105),1
(30,55)-(30,105),1
E 11,4 : PRINT 'd
(80,681-(100,55),1
E 8,12 : PRINT 'C'
(80,401- (80,1201
whi te axes
(40,68]-(112,681
E 9,5 : PRINT 'x
5 9,14 : PRINT 'x'
I 5,lO : PRINT 'y
E 15,lO : PRINT 'y
50,551-1 100,561 ,2,BF
17,56)-(78,105),2,BF
32,561- (83,105],2,BF
Y
I 2,16 : PRINT 'Ix=dA3/3t(2tbtd)/
f 4,16 : PRINT 'Sxt=d/3t(Ztbtd)'
I 6,l6 : PRINT 'Sxb=dA2/3t(2tbtd)
I8,lb : PRINT '1y=bA3/12'
I 10,lb : PRINT 'Sy=bA2/6'
I 12,16 : PRINT 'Jw=IxtIy'
I 14,16 : PRINT 'Cxt=dA2/(bt2td)'
I 16,lb : PRINT 'Cxb=dt(btd)/(btZtd)'
I 18,16 : PRINT 'C=~qr(Cxt~Zt(b/2)~2)'
i 20,16 : PRINT 'Aw=btZtd"
i 23,2
'INGRESE d EN PULG.: '; D
;O,160)-(319,199),2,BF 'window
E 23,2
'ENTER b EN PUL6
'; B
IO, 1601 -( 319,199 1,2,BF ' window
1/38(21B*D)/(B+2SDl : SXT=D/38(2tBtD) : SXB=DA2/3t(2tBtD)/(BtD)
IIY : CXT=DA2/(Bt2tDl : CXB=Dt(BtD)/(Bt2tD)
!tD :CYL=B/2 :CYR=B/Z : C=S[lR(CXTA2t(D/L)"Z)
:XT
:CXTR=CXT :CXBL=CXB :CXBR=CXB
;XT : SXUR=SXT : SXLL=SXB : SXLR=SXB
iY : SYUR=SY : SYLL=TEtOB : SYLR=9Et08
7960
: 2,19
' 1 ~ ' ; :PRINT USINGB######.###';FNRNDF(IX);
: PRINT ' inA4/in'
: 4,19
'Sx t=' ; :PRINT USING'#####. ###' ;FNRNDF (SXT 1; :PRINT' PA3/P8
i 6,19
'Sxb='; :PRINT USING'#####.###';FNRNDF(SXB);
:PRINT' PA3/P'
: 8,19
'Iy=';
:PRINT USING'######.###';FNRNDF(
IY); :PRINT' P"4/P'
I 10,19
'Sy='; :PRINT USING'######.###';FNRNDF(SY)
; :PRINT' PA3/P'
I 12,19
'Jw=' ; :PRINT USIN6'######. ###' ;FNRNDF ( JW 1 ; :PRINT' PA4/P'
i 14,19
'Cxt='; :PRINT USING'####.##';FNRNDF(CKTl;
:PRINT ' P'
I 16,19
'Cx b=' ; :PRINT USING'#### .##' ;FNRNDF(CXBl ; :PRINT' P'
: 18,19
Y='; :PRINT USING'#### .##' ;FNRNDF(C); :PRINT' P'
.:
. vi1
10
:IY=BA3/12
:CYTL=CYL
: SY=B"2/6
:CYTR=CYR
:CYBL=O
:CYB'
1
:
*b='n
, :PRINT USING'###.##':B:
:PRI!f
'P*
E 6,2
'd=';
:PRINT USING'###.##';D;
:PRIHT 'P'
E 22,2 : PRINT "IHPRIHA LA PANTALLA CON PrtSc
E 23,2 : PRINT 'PRES. BARRA TO CONTINUE';
PUTS(1)
=CHRS(32) THEN 60SUB 8650 ELCE PRINT CHRS(7)
O'
8600
B 14240
14840
B 11900
12240
12570
'ANALISIS DE CAR6AS
' INGRESOS DE CARGAS
'CALCULOS DE LOS ESFUERZOS
' INGRESE INFORHACION SOBRE LOS COHPONENTEC Y SU APLICACION
'REVISE EL TAHANO HIN. SE SOLDADURA CON AWS D1.l
=O 60TO 8750
O, 160)- (319!199),Z,BF
E 22,3 :PRINT'ERRDR: EL COH. iiAS DEL6. ES HUY DELG.'
=CHRS(27) THEN :CLS :SCREEN O :WIDTH 80 :END
=CHRW13) THEN 6010 8680 ELSE 6TO 8720
12390
'CONVERSION DEL TAHAlUO DE SOLDADURA R EXPRECION
16680
'EXHIBICION DE LOS RESULTADOS
routine
'PROPIEDADES DE UNIONES SOLDADAS; TYPE 16
B 8800
9100
outine
'screen of type #6
SCREEN 1,O
NTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
(O, 169)-( 319,1991 ,2, BF ' window
-1 TO 4
(1-1, 1-1)-(320-1,169-11,1,B 'green boundary
1
(119,0)-(119,1691,l
(60,15)-(60,52),1
( 100,15)-( 100,52),1
(60,20)-(100,20),1
E 3,11 : PRINT 'b
(20,58)-(57,58),1
(20,105)-(57,105),1
(30,58)-(30,105),1
E 11,4 : PRINT 'd'
(80,68)-(100,55),1
E 8,12 : PRINT 'c'
(80,40) - (80,1201
'whi te axes
( 40,68)- ( 112,68 1
E 9,5 : PRINT 'x'
E 9,14 : PRINT 'x'
E 5,O : PRINT 'y
E 15,lO : PRINT 'y
60,55)-( 100,56),2,BF
60,61)-(100,bZ),2,BF
77,61)-(78,105),2,BF
82,61)-(83,105),2,BF
N
E 2,16 : PRINT 'Ix=dA3/6t(4tbtd)(btd)'
E 4,16 : PRINT 'Sxt=d/3t(4tbtd)'
E 6,16 : PRINT 'Cxb=dA2/3t(4tbtd / (Zibtd)'
F R 1L
DRTUT ' I v = h A 7 / A '
:LOCATE 23,4 :PRINT'PRES. RETURN to RE11
12:
E 14,lb : PRINT 'Cxt=dA2/2/(btd)'
E 16,lb : PRINT 'Cxb=d/2t(2S~td)/(btd)'
E 18,lb : PRINT 'C=sqr(CxtA2t(b/2)*2)"
E 20,lb : PRINT 'Aw=2tbt2tda
E 23,2
'INGRESE d EN PULG.: '; D
(O, lb0)-(319,199) ,2,BF ' window
E 23,2
'INGRESE b EN PULG.: '; B
(0,160)-(319,199) ,2,BF 'window
3/6l(4tB+D)I(BtD) : SXT=D/31(4tBtD) : SXB=DA2/3t(41BtD)/(2tBtD)
+IY : CXT=DA2/2/(BtD) : CXB=D/Zt(2tBtD)/(BtD)
Bt2SD :CYL=B/2 :CYR=B/2 : C=SQR( CXT*2t (D/2)*2)
CXT :CXTR=CXT :CXBL=CXB :CXBR=CXB
SXT : SXUR=SXT : SXLL=SXB : SXLR=SXB
SY : SYUR=SY : SYLL=9Et08 : SYLR=SEtOB
8800
E 2,19
'1 x=' ; :PRINT USING'###### .###' ;FNRNDF ( 1X ) ; :PRINT' P^4/P'
E 4,19
'Sxt='; :PRINT USING'######.###';FNRNDF(SXT);
:PRINT ' PA3/P'
E 6,19
'Sxb=' ; :PRINT USING'######. 111' ;FNRNDF (SXB) ; :PR INT' P*3/P'
E 8,19
'Iy=';
:PRINT USING'#######.###';FNR~DF(
IY); :PRINT' PA4/P'
E 10,19
'Sy=' ; :PRINT USING'####### .###' ;FNRNDF (SY); :PRINT' PA3/P'
E 12,19
'Jw=' ; :PRINT USING'#######. ###' ;FFNRNDF (JW) ; :PRINT' P"4/P'
E 14,19
'Cxt=';
:PRINT USING'####.##';FNRNDF(CXT);
:PRINT ' P'
E l6,19
'Cxb=';
:PRINT USING'l###.##';fNRNDF(CXE);
:PRINT P'
E 18,19
, :PRINT USING'##~#.##';FNRNDF(C); :PRINT ' P'
E 20,19
'Aw = '; :PRINT USING'####.##';AW;
:PRINT 'PA2/P'
E 18,2
'b=" ; :PRI NT U5 1 NG'####. ## ';B ; :PRINT'P '
E 20,2
'd=';
:PRINT USIN6'1###.##';D;
:PRINT 'P
E 22,2 : PRINT 'IHP. LA PANTALLA CON PrtSc O'
E 23,2 : PRINT 'PRES. BARRA PARA CONTINUAR';
PUTS(1)
=CHRS(32) THEN GOSUB 9500 ELSE PRINT CHRS(7)
9450
B 14240 'ANAL1515 DE LAS CARGAS
14840
'INGRESOS DE CARGAS
'CALCULO DE LOS ESFUERZOS
B 11900
12240
' INFORHACION SOBRE LOS COHPONENTES Y SU APLICACION
12570
'REVISE EL TAH. M N . DE SOLDADURA CON AWS D1.1
=O 60TO 9600
D, 160)- (319,199) ,2,BF
E 22,3 :PRINT'ERROR:EL
COH. HAS DELG. ES HUY DELG.'
:IY=BA3/6
: SY=BA2/3
:CYBL.0
:CYBl
:LOCATE 23,4 :PRINT'PRES.
RETURN E
:CYTL=CYL
:CYTR=CYR
U[='.
=CHRS(27) THEN :CLS :SCREEN O :WIDTH 80 :END
zCHRS(13) THEN GOTO 9530 ELSE GOTO 9570
iwon
'P~UIICDC~~Y
nri
rnmun nc cni
nnniiDA A C V D D C C ~ ~ U
123
UB 9650
9950
routine
'screen o f type 17
: CCREEN 1,0
ONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
(O, 160)-(319,199),2,BF ' windor
1=1 TO 4
( 1-1,I-1) - (320-1,160-11,1,B
' green boundary
1
,1
(60,15)-(60,52),1
(100,15)-( 100,52),1
(60,20)-(100,20),1
TE 3,11 : PRINT 'b'
(20,55)-(57,55) ,1
(20,105)-(57,105),1
(30,55)- (30,105),1
TE 9,4 : PRINT 'd
(80,80)-(100,105),1
TE 12,12 : PRINT 'C
(80,40)-(80,120) ' whi te axes
(40,801-( 120,80)
TE 11,5 : PRINT 'x
IE ll,l6 : PRINT 'x'
TE 5, 9 : PRINT 'y
IE 15, 9 : PRINT 'y
(60,55)-(100,56) ,2,BF
60,104)-( 100,105),2,BF
(77,56)-( 78,104),2, BF
[82,56)-(83,104),2,BF
( 159,O)- ( 159,159 )
iN
IE 4,22 : PRINT 'I~=d^2/6t(3tbtd)~
TE 6,22 : PRINT 'Sx=d/31(3tb+dln
IE 8,22 : PRINT 'Iy=b"3/6'
IE 10,22 : PRINT 'Sy=b"2/3'
IE 12,22 : PRINT 'Jn=IxtIy'
\TE 14,22 : PRINT 'c=sqr(b"2tdA21/2'
\TE 16,22 : PRINT 'Aw=2tbt2ida
ITE 23,2
JT 'INGRESE d EN PULG.: '; D
i ( O , 160)-(319,1Y9),2,BF ' window
ITE 23,2
11 'INGRESE b EN PULG.: '; B
(O,160)-(319,199),2,BF 'window
)"2/6t(3tB+D) : SX=D/3t(3SBtD) : IY=B"3/6
: SY=BA2/3
IXtIY : CYL=B/P
: CYR=B/L
!tBt2tD : CXT=D/2 : CXB=D/2 : C=SQR(BA2tDA2)/2
.=EX1 :CXTR=CXT
:CXBL=CXB :CXBR=CXB
.=SX : SXUR=SX : SXLL=SX : SXLR=SX
.=SY I CYUR=SY : SYLL=SY : SYLR=SY
IB 9650
ITE 2,21
IT 'Ix=';
:PRINT USING'######.###';FNRNDF(
1x1; :PRINT' PA4/P'
ITE 4,21
IT 'Sx='; :PRINT UCING'######.###';FNRNDF(SX);
:PRINT' PA3/P'
ITE 6,21
IT 'Iu='s
i D D I U T I I C T U C i 4 4 4 4 4 4 4 4 b ~ i C U D U i i C i I V I . .DDTUT'
DAdlDi
:CYTL=CYL
:CYTR=CYR
:CYBL=CYL
:E\
12..
ATE 10,21
NT 'Jw=';
:PRINT USING'####lt.###';FNRHDF(JW);
:PRINT' P^4/P'
ATE 12,21
NT 'E='; :PRINT USING'####.##';FNRNDF(C);
:PRINT' P'
ATE 14,21
NT 'Aw = '; :PRINT USING'#l##.##';AW; :PRINT'PA2/P'
ATE 16,21
NT 'b='; :PRINT USING'####,##';B; :PRINT'P'
ATE 18,21
NT 'd.'; :PRINT UCINGm####,##';D; :PRINT'P"
ATE 22,2 : PRINT "IHPRIttA LA PANTALLA CON PrtSc O'
ATE 23,2 : PRINT 'PREC. BARRA PARA CONTINUAR';
INPUT$(1)
D$=CHR$(32) THEN GOSUB 11100 ELSE PRINT CHRf(7)
O 10250
SUB 14240 ' loading analysis
UB 14840
'INGRTESO DE CAR6AS
SUB 11900
'CLACULO DE ESFUERZOS
'INGRESE LA INFORHACION SOBRE EL COH. Y SU APLICACION
UB 12240
UB 12570 'CHEQUEE EL TAHANO HIN. DE SOLDADURA CON AWS D1.l
ER=O 60TO 10390
E (O,160)- (319,199),2 ,BF
ATE 22,3 :PRINT'ERROR:EL CON. HAS DELG. ES HUY DELG.'
D$=CHR$(27) THEN :EL5 :CCREEN O :#IDTH 80 :END
D$=CHR$(13) THEN 6010 10320 ELSE 60TO 10360
UB 12390 'CONVERSION DEL TAHANO DE SOLDADURA A EXPRESION
UB 16680
'EXHIBICION DE LOS RESULTADOS
'KPROPIEDADES DE NIONES SOLDADAS; TIPO #B
ubroutine
SUB 10440
O 10760
broutine
'screen o f type #E
: SCREEW 1,0
HONTYPE = 2 THEN COLOR 0,O ELSE COLOR 7,O
E (O, 160)- (319,199),2,BF ' window
1=1 TO 4
E (1-1,1-1)-(320-1,160-1),l,B 'qreen boundary
TI
E ( 159,O) - ( 159,159 ) ,1
E (60,15)-(60,52),1
E (100,15)-(100,52),1
E (60,20)-(100,20),1
ATE 3,11 : PRINT 'b'
E (20,58)-( 57,58), 1
E (20,1021- (57,102), 1
E (30,561-( 30,102),1
ATE 9,4 : PRINT 'da
E (80,~0)-(100,105),1
ATE 12,12 : PRINT 'c
E (80,101-(80,120) 'white axes
E (40,60)-(120,60)
ATE 11,5 : PRINT 'x'
M E 11,16 : PRINT 'x'
ATE 5,lO : PRINT 'y
ATE 15,lO : PRINT 'y'
E (60,55)-( 100,56),2, BF
E (60,61)-( 100,62),2,BF
c i L n a a i - i # n n anni
'
I
nc
:LOCATE 23,4 :PRINT'PRES. RETURN PARA
i(82,61)-(83,99),2,EF
IRN
ITE 4,22 : PRIMT 'Ix=dA2/6t(6tbtd)'
ITE 6,22 : PRINT 'Cx=d/3$(6tbtd)'
ITE 8,22 : PRINT 'Iy=bA3/3'
ITE 10,22 : PRINT 'Sy=2/3tbA2'
iTE 12,22 : PRINT 'Jw=IxtIy'
iTE 14,22 : PRINT 'c=sqr(bA2+dA2)/2"
iTE 16,22 : PRINT 'Aw=4tbtZtd'
iTE 23,2
IT 'INGRESE d EN PULG.: '; D
( O , 160)-(319,199) ,2,BF ' window
iTE 23,2
IT 'ENTER b IN inches: '; B
: (0,160)-(319,199) ,2,BF 'window
iA2/bt(6tBtD) : SX=D/3t(btBtD) : IY=B^3/3
: SY=2/3tBA2
X+IY : CYL=B/2
: CYR=B/2
ttB+ZtD : CXT=D/2 CXB=D/2 : C=SQR(BA2+DA2)/2
.=CXT :CXTR=CXT :CXBL=CXB
:CXBR=CXB
.=SI : SXUR=SX : SXLL=SX : SXLR=SX
.=SY : SYUR=SY : SYLL=SY : SYLR=SY
IB 10440
iTE 2,21
IT 'Ix=';
:PRINT USING'####l#.##l':FNRNDF(
IX ; :PRINT' PA4/P'
iTE 4,21
IT 'CX=' ; :PRINT USING"#####. ###' ;FNRNDF (SX1 :PRINT' PA3/P'
iTE 6,21
IT '1 y=' ; :PRINT USING'IIII1. ###' ;FNRNDF ( IY) :PRINT' PA4/P'
ITE 8,21
IT 'Sy=' ; :PRINT USING'#####. ###' ;FNRNDF (CY) ; :PRINT' PA3/P'
iTE 10,21
IT 'Jw='; :PRINT USING"#####.##';FNRNDF(Jil);
:PRINT' PA4/P'
ITE 12,21
IT 'E='; :PRINT USING'####.##';FNRNDF(C);
:PRINT' P'
iTE 14,21
IT 'An ='; :PRINT USING'####.##';AW;
:PRINT'PA2/P'
TE lb,21
T 'b=';
:PRINT USING'####.##';B;
:PRINT 'P
TE 18,21
T 'd="; :PRINT USING'####.##';D;
:PRINT'P'
TE 22,2 : PRINT "IHPR. LA PANTALLA CON PrtSc O'
TE 23,2 : PRINT 'PRESS Spacebar TO CONTINUE';
NPUTS ( 1 )
S=CHRS(32) THEN GOSUB 11100 ELSE PRINT CHRS(7)
11060
UB 14240 'ANALISIS DE CARGAS
B 14840
'INGRESO DE CARGAS
UB 11900
'CALCULO DE ESFUERZOS
8 12240
'enter coiponent and application inforiation
B 12570 'CHEQUEE EL TAii. HIN. DE3 SOLDADURA CON AWS D1.l
R=O GOTO 11200
(0,160)-(319,199) ,2,BF
TE 22,3 :PRINT'ERROR: EL COH. HAS DELG. ES HUY DELG.'
S=CHRS(27) THEN :CLS :SCREEN O :WIDTH 80 :END
S=CHRS(13) THEN 60TO 11130 ELSE 60TO 11170
D
~ W O A
*rnuurocinu nri rAmAun nr cni nmiian
cvmrcinu
:CYTL=CYL
:CYTR=CYR
:LOCATE 23,4 :PRINT'PRES.
:CYJL=CYL
:CY
RETURN PARA
12c;
3 J B 11250
1 11490
Sroutine
'screen o f type 19
: CCREEN 1,O
IONTYPE = 2 THEN COLOR 0,O ELCE COLOR 7,O
I f0,160)-(319,199),2,BF
'window
I=1 TO 4
E (I-l,I-l)-(320-I ,160-1 1,1,B 'green boundary
TI
JCERI O " AND UCERI O ' ' THEN 60CUB 16470
i ( 159,0)-( 159,159), 1
ACPECT=2.4 60TO 11370
I(80,80)-(8Ot5OSCOS(PI/4),80-50tCOC(PI/4)tACPECT/2) ,1
1 11380
I (80,BO1- ( 80+50tCOS (P1/4)tZ/ACPECT, 60-50tCOC (P1 /4 ) ) ,1
\TE 8,13 :PRINT'r'
i (60,25)-(80,135)
'white axes
i (25,80)-( 135,80)
iTE 11,3 : PRINT 'x'
\TE 11,18 : PRINT 'x'
iTE 3,lO : PRINT 'y
iTE 18,lO : PRINT * y n
:LE(80,8O) ,50,2,,,2/ACPECT
:LE(80,80),51 ,2,,,Z/ASPECT
IRN
4,22 : PRINT 'I=pitrA3'
6,22 : PRINT "Cw=pitrY'
8,22 : PRINT 'Jw=2tpitrA3'
10,22 : PRINT 'Aw=Ztpitr'
iTE 23,2
IT 'INGRESE r EN PULG.: '; R
( O , 160)- (319,199 ),2,BF
' window
'1tRA3
: CW=PISRA2
iTE
iTE
iTE
iTE
'tIW
'tPItR
IB 11250
,TE 6,21 : PRINT 'Iw='; :PRINT USING '#######.##';IW;
:PRINT'
TE 8,21 : PRINT 'SW='; :PRINT USING "#######.##';CW;
:PRINT'
TE 10,21 : PRINT 'Jw=';
:PRINT USING '#######.##';JW;
:PRINT
TE iz,zi : PRINT ~ A W = * ;:PRINT USING w####.w;m;
:PRINT*
TE 22,2 : PRINT 'IHP. LA PANTALLA CON PrtCc O'
TE 23,2 : PRINT 'PRECS Spacebar TO CONTINUE';
NPUT$ ( 1 )
$=CHR$(32) THEN GOSUB 11690 ELSE PRINT CHRs(7)
11640
UB 14240 'ANALICIS DE CbRGAS
B 14840
'INGRESO DE CARGAS
= TFXIAW : QFY = TFY/AW : QF=SQR(QFXA2+0FYA2)
TZtR/JW
BS(TFZ/bW)tSQR( THXA2tTHYA2)/SW
=SQR( (QFtOT)A2tOZA2)
(0,160)-(319,199) ,2,BF ' window
SER$ O " bND USERS O ' ' THEN 60CUB 16510
TE 22,2 : PRINT 'ENTER ULTIHATE STRENGTH OF'
TE 23,2 : PRINT 'WELD ELECTRODE IN (ksi): ';
T CIGMAULTIHATE
D imhn
'iucnccc
I A
iucnmmrinu c n m c
I A
ADI
iriwinu
PA3'
PAZ"
' PA3'
P'
rnmnururc
ER=O GCITU 11880
E (O, 160)- (319,199 ) ,2 ,BF
RTE 22,3 :PRINT'ERRUR: CUHP. HAS DELG. ES DEH. DELG.'
DJ=CHR$(27) THEN :CLS :SCREEN O :WIDTH 80 :END
D$=CHRJ(13) THEN GDTU 11810 ELSE 60TU 1 1 8 5 0
UB 12390
'CUNVERSIUN DEL TAHANU DE SOLDADURA A EXPRESIUH
'EXHIBICIUN DE LOS RESULTADOS
UB 16680
broutine 'CALCULOS DE LOS ESFUERZDS
= TFX/AW : QFY = TfY/A#
OPLEFT = TFZ/AW + THXlSXUL - THY/CYUL
OPRIGHT = TFZlAW t THXICXUR t THYISYUR
DTTOHLEFT = TFZ/AW - THX/CXLL
THY/SYLL
OTTOHRIGHT = TFZ/AW - THXISXLR + TNY/SYLR
TDPLEFT = TTZtCXTLlJW : QTYTDPLEFT = -(TTZtCYTL/J#)
TUPRIGHT = TTZtCXTR/JW : QTYTUPRIGHT = TTZSCYTRIJW
BUTTUHLEFT = -(TTZtCXBL/JH) : QTYBUTTOHLEFT = - ( TTZICYBL/JW)
BUTTUHRIGHT = -(TTZtCXBR/JW) : QTYBUTTUHRIGHT = TTZSCYBR/J#
PLEFT = ( (QFX+QTXTOPLEFT)^i! t (QFY+QTYTOPLEFT)^2 t QZTUPLEFT^2)^( 1/2)
PRIGHT = ( (QFX+QTXTUPRIGHT )^2t ( QFYtQTYTUPRIGHT ^2+0ZTUPR16HTA2) ^ ( 1/21
TTUHLEFT=( (QFX+QTXBUTTOHLEFT)^2t ( OFYtQTYBDTTOHLEFT)^2tQZBUTTOHLEFTA2)" (1
TTOHRIGHT= ( (QFX+QTXBOTTOHR IGHT) "21 (QFY tQTYBUTTUHRIGHT )*2tQZBOTTOifR16HTA2
TLO=l THEN QTUPLEFT.0
TRO=l THEN QTUPRIGHT=O
BLO.1 THEN QBUTTDHLEFT=O
BRO=1 THEN QBUTTUHRIGHT=O
E (O,160)-(319,199),2,BF
'window
USERI O " AND USERJ 0 ' ' THEN GUSUB 1 6 5 1 0
ATE 22,2 : PRINT 'ENTER ULTIHATE STRENGTH DF'
ATE 23,2 : PRINT V E L D ELECTRODE I N (ksi): ';
UT SIGHAULTIHATE
SIGHAULTIHATE (= O THEN 6UTO 1 2 0 8 0
QTOPLEFT )= QTOPRIGHT AND QTOPLEFT >= QBOTTUiLEFT AND QTOPLEFT )=
QTOPRIGHT )= QTOPLEFT AND QTOPRIGHT )= QBUTTOHLEFT AND QTOPRIGHT )=
QBUTTOHLEFT )= OTOPLEFT AND RBDTTUHLEFT )= QTOPRIGHT AND QBOTTDflLEFT )=
o 12200
X = QTOPLEFT : 6UTO 12200
X = QTOPRIGHT
= QHAX/( .3tSIGHAULTiHATEt. 707)
URN
:LOCATE 23,4 :PRINT'PREC.
RtTURN PARA RE
/2)
)^(1/2)
QBDTTOHRIGHT THEN 6UTD 12180
QBDTTOHRIGHT THEN 6UTU 12190
QBUTTOHRIGHT THEN QMAX = QBUTTOHLEFT El
broutine INGRESE LOS ESPESORES DE LOS CDHPDNENTES DE LA ESTRUCTURA
E(O,lbO)-[ 319,199) ,Z,BF
USERJ O " AND USERS 0 ' ' THEN GUSUB 1 6 5 1 0
ATE 22,4:PRINT 'INGRESE ESP. DEL'
ATE 23,4 :PRINT' CUHP. HAS GRUESO T=> u
:LOCATE 23,25 :INPUT TC
E (O, 160)-( 319,199 ),2, BF
USERI 0 " AND USERJ 0 ' ' THEN GOSUB 1 6 5 1 0
ATE 22,4:PRINT 'INGRESE ESP. DEL'
ATE 23,4 :PRINT' CUHP. HAS DELGADO T=)
:LOCATE 23,25:INPUT T
E(O,160)-( 319,199 J,2,flF
USERJ 0 '' AND USERS O 'I ' THEN GUSUB 1 6 5 1 0
ATE 23,4 :PRINT'INGRESE LA APLICACIUN API=> ':LOCATE 24,4 :PRINT'BU/BR';
:LOCATE 23,30
URN
:INPUT AFS
123
ISINT(WNI16) : NWl=WN-N#
1 1 4 OR NWl=Z OR NW1=3 OR NW1=4 OR NW1=5 OR NW1=6 OR HW1.7 OR W1=8 OR
iNT(HN)+1-16) ( O THEN 6010 12530 ELCE IF (INT(WN)+1-16) = O THEH
iN
d=O THEN WELDCIZE$=CTR$(WN)tn/16' ELCE WELDCIZEC=CTR$( INT(IIN116) ) t u - ' +
IN
3ZE$=CTR$ ( INT (WN/16 ) )
iN
CTR$ ( INT ( WN/ 161 )
:CTR$( INT( WN-l6tINT( WN/16))+1)
SIZE$ = WN$+'-'+WN1$+'/16'
3N
SIZE$=CTR$( INT( WN)+l)t'/lL'
RN
:
routine DETERHINACION DEL TAMBNO FINAL DE SOLDADURA
C>=.25 60TO 12790
P%='bu' OR AP$='BU'
60TO lZbO
O ( 3/16 60TO 12650
O
(W1 THEN ER=1
RN
/l6
((3/16) THEN ER=1
RN
0(.125 6010 12720
O
(U0 THEN ER=1
RN
>=.125 THEN W1=.125 :RETURN
>= WO THEN Wl=T : RETURN
O : ER=1
RN
C>=.5 60TO 12910
O < 3/16 60TO 12840
O
< W1 THEN ER=l
RN
>= 3/16 THEN W1=3/16 : RETURN
>= WO THEN Wl=T : RETURN
O : ER=1
RN
C >= .75 6010 13020
O ( .25 60TO 12960
O
(W1 1HEN ER=1
RN
>= .25 THEN W1=.25 : RETURN
>=WO THEN W1.T
: RETURN
O !ER=l
NWl=9 OR HYl=lO OR N#l=ll OX NW1=12 UR
WELDSIZ3="iU ELCE IF INT(#N-lbtINT(
CTRS! &'l)+'/16'
W l b 60TO 13060
W1 THEN ER=1
N
=5/'!1 THEN #1=5/16 :RETURN
WO THEN Wl=T :RETURN
:ER=1
N
outine
'EXPOSICION DE LOS RESULTADOS
N 2 : 'CCREEN O : KEY OFF
: COL=1 : xx=79
14120
'print a line
4 : COL=1 : xx=79
14120
: COL=1 : YY=24
14180 ' p r i n t a v e r t i c a l l i n e
: COL=79 : YY=24
14180 ' p r i n t a v e r t i c a l l i n e
: COL=40 : YY=21
14180
E 2,30 : PRINT "CALCULOS DEL TABANO DE SOLDADURAa
: COL=30 : XX=21
14120
E 4,2 : PRINT ' 1. TIPO DE SOLDRDURA: #';TIPO
E 5,2
=O THEN PRINT ' 2. Iw= N/A ' ELCE PRINT ' 2. Jw=';
E 6,2
=O THEN PRINT 3. Ix= N/A ' ELSE PRINT ' 3. Ix=';
E b,21
'=O THEN PRINT ' 4. Iy= N/A ' ELCE PRINT ' 4. Iy=';
'E 7,2
I=O THEN PRINT ' 5. Saz NIA ' ELSE PRINT ' 5. Sw=';
'E 8,2
+O THEN PRINT ' 6. SX= N1A ' ELSE PRINT ' 6. SX=';
'E 8,21
'=O THEN PRINT ' 9. Sy= N/A ' ELSE PRINT ' 9. Sy=';
'E 9,2
:T=O THEN PRINT
:PRINT UCINGa######.###';IW
:PRINT USING'###I##.###";IX
:PRINT USING'######.###';IY
:PRINT USING'######.###';CW
:PRINT USING'######.###';SX
:PRINT USING"######.###';SY
' 7. Sxt= N/A ' ELSE PRINT ' 7. Sxt='; :PRINT USING'######.###';SXT
'E 9,21
'L=O THEN PRINT " 10. S y l = N/A ' ELSE PRINT ' 10. Cyl='; :PRINT USING'######.###';CYL
'E 10,2
'B=O THEN PRINT ' 8. Sxb= N/A ' ELCE PRINT ' 8. Cxb.';
:PRINT USING'######.###';SXB
'E 10,21
'R=O THEN PRINT ' 11. Syr= N/A ' ELCE PRINT ' 11. Cyr='; :PRINT USING'######.###";SYR
'E 11,2 : PRINT " 12. Jw ='; :PRINT USING'####.##';J#
'E 12,2
B=O THEN PRINT ' 13. b= N/A ' ELSE PRINT ' 13. b=';FNRNDFBl;
' pulg'
'E 12,21 : PRINT ' 14. d=';FNRNDF(D);
' pulg"
'E 13,2 : PRINT ' 15. An=';FNRNDF(AWl
'E 14,Z
:PRINT ' pulg'
: =O THEN PRINT ' 16. C= N/R ' ELSE PRINT ' 16. C= '; :PRINT USING'#####.###';C;
'E 15,2
:1=0 THEN PRINT ' 17. C1= N/A ' ELSE PRINT ' 17. C1= '; :PRINT USING'#####.###';Cl;
:PRINT ' pulg'
'F 15.71
T=O THEH PRINT 19. Cxt= H/A ' ELCE PRIHT ' 19.Cxt='; :PEI:iT ~!ST#Gn####.J3':CXf; ;;,?i:;i' ' pulg'
E 16,21
'L=O THEN PRINT ' 20. Cyl= N/A ' ELCE PRIHT ' ZO.Cyl='; :PAINT .5IN6' :K.%J";CYL; :>?l:!f ' pulq'
'E 17,2
B=O THEN PRINT ' 21. Cxb= N/A ' ELCE PRINT ' Zl.Cxb='; :PRINT UCIH6'####.##';CX8;
: P R I X ' pulg'
'E 17,21
'R=O THEN PRINT * 22. Cyr= N/A ' ELCE PRINT " iZ.Cyr='; :PRIHT UCING'####.#~';CYR;
:PAINT ' pulg'
'E 4,41
tC(TFX) (.O01 THEN PRINT ' TFx = 0' ELSE PRINT a TFx = '; :PRINT USI}~G'#I1#.DS#';JFX;
: X I N T ' t';-'
'E 5,41
IS(TFY) (.O01 THEN PRINT TFy = O' ELCE PRINT ' TFy = '; :PRINT UCIN6'####.ll#';TFY;
:PRIHT ' kip*'
'E 6,41
:PRINT ' kips"
IS(TFZ) (.O01 THEN PRINT ' TFz = O' ELCE PRINT ' TFz = '; :PRINT UCING'####.#i#';TFZ;
TE 7,41
IS(THX) (.O01 THEN PRINT ' THx = O' ELCE PRINT ' THx = '; :PRINT UCIN6'####.###';T#X;
:PRINT ' pulg-kip"
IE 8,41
E(THY) (.O01 THEN PRINT ' THy = O' ELSE PRINT ' THy = '; :PRINT USIN6'####.###';TtiY;
:PXINT ' pulg-kips'
IE 9$41
IS(TTZ1 (.O01 THEN PRINT TTz = 'O ELCE PRINT TTz = '; :PRINT UCIN6'####.###':TTZ;
:PRINT ' pulg-kips'
IE 10,41
iOP=O THEN PRINT ' Qpar.sup.= N/A' ELCE PRINT ' Qparte sup. = ';FNRHDF(QTOP);
' pulg-tsi'
IE 11!41
30TTOH=0 THEN PRINT ' Qparte inf. = N/A' ELCE PRINT ' Qparte inf. = ';
FNRNDF( RBOTTOH) ; pulg-ksi'
IE 12.41
IOPLEfT=O THEN PRINT ' Qext.sup.izq. = N/A' ELSE PRINT ' Qext.sup.izq. = '; :PRINT UCING'~ft#.t##';;OTOPLE~T; :PRINT
TE 13,41
IOPRIGHT=O THEN PRINT ' Oext.sup.der. = N/A' ELCE PRINT " Qext.sup.der. = '; :PRINT UCING'#Y#.###';QTOPR~GHT;
:PRI
TE 14,41
BOTTOHLEFT=O THEN PRINT ' Qext.inf.izq. = N/A' ELSE PRINT ' Oext.inf .izq. = '; :PRINT UCIN6'###.#%#~;Q9DTTOHLFT;
TE 15,41
BOTTOtiRIGHT=O THEN PRINT ' Qext.inf .der. = NIA' ELCE PRINT ' Qext.inf .der. = '; :PRINT UCING'###.A##';REOTTOHRIGHT
TE 16,4l : PRINT ' Qaax = '; :PRINT USING'###.###';QHAX;
:PRINT' pulg-ksi'
TE 17,41 : PRINT SPC(1) 'Reris.iaxira electrodo = '; SIGHAULTIHATE; ' ksi'
TE 18,41 : PRINT 'TAHANO DE SOLDADURA= ';WELDSIZE$; ' pulg.'
N (1000 THEN 60TO 13980
TE 20,41
T 'USTED REALIZO UN HAL TRABAJO! ! !'
SER$ = " OR USERS = ' ' 6010 14030
TE 2,78 - LEN(USER$):PRINT UCERI
TE 1,76 - LEN(UCERS):PRINT 'b'
TE 2,76 - LEN(U5ERS):PRINT 'b'
TE 3,76 - LEN(USER$):FOR 1 = 1 TO LEN(U5ERSI + 3:PRIHT '-';:NEXT
1:PRINT
TE 23,2 : PRINT 'PRECS LA BARRA PARA EJECUTARLO OTRA VEZ'
TE 24,2 : PRINT 'Press 'O' TU SALIR';
TE 22,2 : PRINT 'PRESS 'PrtSc' PARA IHPRIHIR LA PANTALLA O';
NPUT) ( 1)
ELCE PRINT CHRI(7)
sS=CHR$(32) THEN 60TO 310 ELSE IF D$='q'
OR D$='Q' THEN 60TO 14090
1 14050
EN 2 : SCREEN O : KEY ON
'greet'
iroutine
DIBUJE LINEA HORIZONTAL
iTE ROW,COL
I I I = TU X X
IT
'
'-1.
111
IRN
irniitine
'DIBUJE UNA LINEA VERTICAL
NT "&*:
T JJJ
URN
BROUT1NE'----ANALICIS DE CAR6AS-----UB 15780
E (239,121- (305,12
E( 183,68)-(239,12)
E -(246,5)
E (241,6)-(246,5)
E -(245,8)
E(239 ,12)-( 239,751
CLE (202,49),10,2,3tPI12, PI ,5/12
NT=CINT( 10/ASPECTl
IE(205,49+CCINT-3)-(202,49+CGINT)2
IE -(205,49+CCINT+3), 2
'CLE(239$65),10,2, PI 12 ,O ,5/12
IE( 236,65-iCINT+2)-( 239,65-CCINT),2
IE -(236,65-CCINT-2),2
'CLE(272,12) ,CCINT, 2,PI 12 ,O ,2
IE( 274,14)-( 277 ,12),2
IE -(280,14),2
IE (175,105)-(230,105)
IE (175,105)-(175,1501
IE (210,105)-(210,140),1
IE (175,140)-(210,140),1
IE (255,105)-(310,105)
IE (255,95)-(255,150)
IE (290,105)-(290,1401 ,1
IE (255,140)-( 290,140),1
IE (252,98)-(255,95)
IE -(258,98)
:ATE 5,24 : PRINT 'tTz'
:ATE 4,33 : PRINT *+Hx'
:ATE 8,32 : PR I N T .+ny*
:ATE 10,23 : PRINT ' - ~ t *
:ATE 1,37 : PRINT '+x'
:ATE 11,30 : PRINT '+y*
:ATE 13,29 : PRINT 'tx'
:ATE 20,22 : PRINT '+y'
:ATE 15,26 : PRINT '+Ey'
:ATE 18,24 : PRINT '+Ex*
:ATE 13,37 : PRINT '+x*
:ATE 20,32 : PRINT '-Z'
:ATE 15,36 : PRINT '-Ez*
:ATE 18,34 : PRINT '+Ex'
ICLE (210,1401,5,2,, ,lIIISPECT
ICLE (290,140),5 ,2, ,,11ASPECT
IE (182,71)-(183,68)
IE -(178,69)
IE (236,73)-(239,75)
IE -(242,73)
IE (300,10)-(305,121
E -(300,14)
(E (172,1471- ( 175,150)
1E -(178,147)
IE (225,103)-(230,105)
(E -(225,107)
IC
i7nc t n t i - i t t n t n c i
-(255,1531
iTE 22,2
IRN
lroutine
: J=1 : K=l
'
INGRESO DE LAS CARGAS
= 0:TFY = 0:TFZ = O
= 0:THY = 0:TTZ = o
(0,160]-(319,1991,2,BF
'window
SER$ 0 " AND UCERS 0 ' ' THEN 60CUB 16510
TE 23,2 : PRINT 'HAY';:IF
1 = 1 THEN PRINT ' ALGUNA FUERZA?(Y/N)';
INPUTS(1)
DS='N'l
OR (DS='n']
THEN 6010 15420
DS='Y'l
OR (DS='y'l
THEN 60TO 14950 ELCE PRINT CHRS(71
1 14900
' window
( O , 1601- (319,1991 J,BF
iTE 22,2: PRINT 'INGRESE LA FUERZA EN'
,TE 23,2 : PRINT ' (kips):F(';I;'l=';
ELSE PRINT ' AL6. OTRA FUERZA?(Y/N) ";
IT F
{=O THEN 6010 14950
(0,160)-(3191199)12,BF
'window
TE 22,2 : PRINT 'EXCENTRICIDAD DE F A LO LAR60'
iTE 23,2 : PRINT 'EJE x-(PUL~):---EX(';I;')-';
T EX
( O , 1601-(319,1991 ,2,BF
' window
SER$ 0 " AND UCERS 0 ' ' THEN 60CUB 16510
TE 22,2 : PRINT 'EXCENTRICIDAD DE LA F A LO LARGO'
TE 23,2 : PRINT 'EJE Y-(PULG):--Ey(';I;'l=";
T EY
~0,160)-(319,199),2,BF
'window
SER$ 0 " AND USERS 0 ' ' THEN GOSUB 16510
TE 22,2 : PRINT 'EXCENTRICIDAD DE F A LO LAR60'
TE 23,2 : PRINT 'EJE Z (PULGI:---EZ(';I;')=';
T EZ
(O,1601- (319,199 ),2,BF ' window
iTE 22,2 : PRINT 'DIRECCION DEL ANGULO DE F'
iTE 23,2 : PRINT 'EN (GRbDOC):---Afx(';I;']=';
IT AFX
(O,160 1- (319,199 1,2,BF ' window
ISERS O " AND USERS 0 ' ' THEN 60SUB 16510
iTE 22,2 : PRINT 'DIRECCION DEL ANGULO DE F'
iTE 23,2 : PRINT 'EN (GRADOC):---AFy(';I;')=';
IT AFY
(O,168]-(319,l99] ,2,BF ' window
ITE 22,2 : PRINT 'DIRECCION DEL ANGULO DE F'
TE 23,2 : PRINT 'EN (GRADOS):---AFZ(';I;']=';
T AFZ
(O,1601- (319,199 ),2,BF ' window
GER 0 " AND UCER$ O ' ' THEN 60CUB 16510
EVIATION(=.Ol THEN 6010 15360
ITE 24,2 : PRINT 'THECE DIRECTION AN6LEC?Y/N)'
TE 22,2 : PRINT 'ANGULO PRECICION DEVIATION= ';FNRNDF(DEVIATION)
ITE 23,2 : PRINT 'USTED TODAVIA DESEA USARLO ';
NPUTS( 1)
S='N' OR DI=%' THEN 6010 15140 ELCE IF DS='Y' OR DS='y' THEN 60TO 15360
T CHRS(7) : 6010 15320
tCOS(iFX/lEOtPI] : FY=FtCOC(AFY/lEOtPI] : FZ=FtCOS(AFZIlEOtPI 1
TFXtFX : TFY=TFYtFY : TFZ=TFZtFZ
YtFZ-EZtFY
HY=EZtFX-EXtFZ
: IZxEXtFY-EYtFX
60TO 14850
LINE (O,160)-(319,!99),2,BF
'window
IF USERJ O " AND UCERI O ' ' THEN 60CUB 16510
LOCATE 22,2 : PRINT 'HAY';:IF
J ) 1 THEN PRINT ' ALGUN OTRO' ELSE PRINT ' fi!-EZc
LOCATE 23,2 : PRINT 'HOHENTO PURO DE FLEXION ? (Y/N) ';
D$=INPUTI( 1)
IF (DI="')
OR (DI='n')
THEN 60TO 15620
IF (DI='Y')
OR (DI='y')
THEN 60TO 15500 ELCE PRINT CHRS(7)
60TO 15450
LINE (O, 160 1- (319,199) ,2,BF ' window
LOCATE 22,2 : PRINT 'INGRESE EL HOHENTO PURO DE FLEXION'
LOCATE 23,2 : PRINT 'EN EL EJE-X EN(PUL6-kips):-tix(*;;J;')=';
INPUT HX
'IF HX (= O THEN 60TO 12570
LINE (O,160)-( 319,199 ),2, BF ' window
LOCATE 22,2 : PRINT 'INGRESE EL HOHENTO PURO DE FLEXION'
LOCATE 23,2 : PRINT 'EN EL EJE-Y EN (PULG-FIPC):-Hy(";J;')=';
INPUT HY
THX=THX+tiX : TtiY=THY+HY
J=Jt1
6OTO 15420
LINE (O, 160)-(319,199) ,2,BF 'window
IF USERI O " AND USERI O ' ' THEN 60SUB 16510
K = 1 THEN PRINT ' ALGUN TORQUE YURO?(YIN)';
ELCE PRINT 'ALGUN OTRO TORQUE PURO?(Y/I
LOCATE 23,l : PRINT 'HAY';:IF
D$=INPUT$(l)
IF (DI='N') OR (D$='n')
THEN 60TO 15770
IF (DI='Y') OR (DI=*y') THEN 60TO 15690 ELSE PRINT CHRI(7)
60TO 15640
LINE (O, 160 1- (319,199 ) ,2,BF ' window
IF UCERS O " AND UCERS O ' * THEN 60CUB 16510
LOCATE 22,2 : PRINT 'INGRESE EL TORQUE PURO EN EL'
LOCATE 23,2 : PRINT 'EJE Z EN (PUL~-KIPS):-TZ(';K;')=';
INPUT TZ
TTZ=TTZ+TZ
K=K+l
GOTO 15620
RETURN
'subroutine 'DIRECCION DE LOS ANGULOC
LINE ( 159, O 1- ( 159,159 1 ,1
LINE ( 1,l)- ( 158,158 1 ,O,BF
LINE (160,1)-(31B,158),0!BF
R1=100 : R2=80 : R3=60 : R4.125 : ASP=ASPECT/2 : ZANG=ATN(ASP)
IF ACPECT=2.4 THEN 60TO 15870
Rl=CINT(RltASP) : RZ=CINT(RZtASP) : R3=CINT(R3tACP) : R4=CINT(R4tACP)
: XZ=(YZ-80)+12 : YY=CINT(R3lClN(ZAI
YX=CINT(RitSIN(ZANG))+80 : XX=(YX-80)+12 : YZ=CINT(R21CIN(ZANG))+ 80
60TO 15890
R1=80 : R2=70 : R4=100
:Y Z= (XZ-12)+80 : XY=CINT (R3tCOS(ZANl
XX=CINI(RltCOC(ZAN6))+12 : YX=(XX-12)+80 : XZ=CINT(R2tCOS[ZAN6) )+12
CIRCLE (12,801 ,R1,1,2tPI-ZAN6,2tPI ,2/ACPECT
CIRCLE (12,801 ,R2,1,2tPI-ZAN6,ZAN6,2/ACPECT
CIRCLE (12,801 ,R3,1,3tP1/2,2SPI-ZAN6,2/ASPECT
LINE (XX,YX-4)-(XX,YX),l
LINE -(XXtS,YX-2),1
t INE ( XZ ,Y7-41 - ( XZ ,Y Z 1,1
LINE -(XZt5,YZ-2),1
,INE (XY-5,YY+2)-( XY,YY) ,1
LINE -(XY,YY+4) 91
.INE f 12.80)-f 80.12)
134
E (12,80)-( 100,80)
E (12,79)-(100,791
E (12,811-(100,811
E (95,761- ( 101,801
E
-(
95,841
E (12,801-(12,140)
E (11,80)-(11,140)
E (13,80)-(13,1401
E (7,136)-( 12 ,141 )
E -(16,136)
E (12,8O)-(XF,YF),2
E (XF-2,YF-4)-(XF,YF),2
E -(XF-4,YF) ,2
CLE ( 12,80),5,2,Ot2tP1,2/ASPECT
ATE 2,5 : PRINT ' z ' l l z '
ATE 10,14 : PRINT 'x'llx'
ATE 19,2 : PRINT 'y'lly
F'
ATE 8, 8 : PRINT 'AFz'
ATE 14,lO : PRINT 'AFx'
ATE 16,4 : PRINT 'AFy'
URN
lEEN 0:COLOR 5,O:WIDTH 8O:CLS
:ATE 10,5:PRINT 'OUE TIPO DE NINITOR ESTA USTED USANDO'
:ATE 13,lO:PRINT '1. RGB color monitor'
:clTE 15,lO:PRINT '2. ionochrose i11mitor'
:ATE 17,5:1NPUT '===> ',HONTYPE
BOWTYPE ) 1 AND HONTYPE O 2 THEN 60TO 16270
lURN
IEEN 0:WIDTH 80
HONTYPE = 2 THEN COLOR 12,O ELSE COLOR 12,l
s
CATE 10,5 :PRINT 'DESEA USTED IHPRIHIR SU NOHBRE EN LOS GRAFICOS?(y/nl';
PUT ANSWERS
ANSWER) O 'y AND ANSWER) O 'Y THEN USER$ = ' ':60TO 16430
CATE 13,S:PRINT "DIGITE SU NOiiflRE (BAXIHO 10 CARACTERES) :'
CATE 15,5:INPUT '===> ',USER$
LEN(USERI1 ) 10 THEN PRINT :PRINT 'SU NOHRE ES BUY LARGO!':LOCATE 15,5:PRINT '
TURN
CATE 2,40 - LEN(USER$):PRINT USER$
NE (Et(40 - LEN(USER$)) - 16,201 - (319,0),,8
TURN
CATE 24,40
(LEN(USER$)):PRINT
USER);
NE (8t(40 - LEN(USER$)) - 16,1791 - (319,199),,B
TURN
CATE Y 1, X1:PRINT
CATE Y2,Xltl:
STRIN6C(X2-X1-1,205)
CATE Y1,XZ:PRINT ' '
rPTF
Y1 ~ Y I + l ! PRIN! STR1Nfi$W'-Xl-1.205)
':6OTO
16410
135
)
LOCATE Y1,Xltl: PRINT STRING$(X2-X1-1,205)
1 FOR I=Yl+l TO Y2-1
1 LOCATE 1,Xl:PRINT
1 NEXT 1
1 LOCATE Y2,Xl:FRINT'V
3 FOR I=Yl+1 TU Y2-1
'1'
3 LOCATE 1,X2:PRINTsI'
O NEXT 1
O LOCATE Y2,XZ:PRINT '4'
O HETURN
5 CLS
O SCREEN 0:COLOR 2,O:WIDTH 8O:CLS
o X1=4:X2=78:Y1=3:Y2=21
O 60CUB 16550
O LOCATE 4,ZO:PRINT 'CALCULO DEL COSTO DE LA SULGADURA'
O LOCATE 5,lO
0 fRINT 'EL VkLOR DEL TAHRNO DE COLGADURA (H) EC=>';#ELDSIZES; : PHINT ' PULG. '
O LOCATE 6,lO
0 INPUT 'IWGRESE ESTE VALOR PARA EL CALCULO==>';I
O LOCATE 7,lO
O INPUT'IHSRECE EL VALOR DE L EN PULG.==)',JL
O 'READ JL
o A=ls01#0/2
O V=AtJLtlm6387E-5
O LOCATE 9,lO
O INPUT 'INGRESE EL TIPO DE HATERJAL A SOLDAR==>'.X$
,O IF %$="ACERO INOXIDABLE' THEN H=7.85E3
O IF XS='ACEHO' THEN H=7.85E3
10 IF XS='BRONCE'
THEN H=8.2E3
10 IF X$='ALUHINIO' THEN Hz2.71E3
'O PAPARENTE=HtV
10 LOCATE 10,lO
10 INPUT 'QUE TIPO DE PROCESO VA R UTILIZAR==)',SS
10 IF SS='ELECTRODO REVESTIDO' THEN N=.65
10 IF SS='ELECTRODO CON FUNDENTE EN EL NUCLEO' THEN N=.BZ
10 IF SS='PROCECO HI6-HA6' THEN N=.92
50 1F S$='ARCO SUHERGIDO' THEN N=l
10 PREAL = PAPARENTE/N
j0 LOCATE 11,lO
50 INPUT 'QUE TIPO DE ELECTRODO A UTILIZADO==)',PS
10 I F P$='C-13'
THEN H=2.748E3
30 IF PS='C-10P' THEN H=2.865E3
90 IF PS='C24' THEN fl=2.529E3
30 IF PS='R-10' THEN tk2.633E3
10 IF P$='R-15' THEN N=2.197E3
20 IF P$='B-10' THEN K=3.114E3
30 IF PS='B-80' THEN k4.958E3
40 IF PS='B-83' THEN H=4.347E3
50 IF PWB-84' THEN H=9.781E3
60 IF PS='B-85' THEN k2.6565E3
70 IF PS='X-41' THEN H4.3130E4
80 IF PG'X-48' THEN tk3.861E3
90 IF PS='X-99'
THEN k8.905E3
O0 IF PSz'R-60' THEN H=2.5383E4
10 IF PIz'R-63'
THEN k2.7455E4
20 1F PS='R-b5' THEN t-2.7455E4
30 IF P$='R-L7' THEN H=2.7455E4
... .-
ri.-.r.
7.3.
z,,r.,
"-rn
7,CCT.
136
)='BRONCE C' THEN k i . 1250E4
)='i5x DE PLATA' THEN n=i.9732~4
$='ER 70s-6' THEN H=3.696E4
S='ER 308~' THEN n=i.6270~4
'J='ER 312' THEN b2.3699E4
')='ER 4043' THEN H=i.O793E4
'S='ER 5356' THEN b1.0623E4
'$='ER 308L' THEN H=1.0623E4
)S='ER 312' THEN it=2.0559E4
)$='ER 4043' THEN M=la2561E4
'$='RH 10' THEN M=4.590E3
iEALtH
CALCULO DE COSTO DEL FUNDENTE
3
C$='ARCO CUHERGIDO' THEN 60TO 17620 ELCE 60TO 17650
RTE 13,9: iNPUT"CUCT0 DEL FUNDENTE POR RILOGRAHU=i ',BZ
BZtPREAL
CALCULO DEL CONCUIIO DE 6AC
0
C W P R O C E C O tlI6-tlA6' THEN 17680 ELCE 60TO 17750
C$='ELECTRODO REVESTIDO' THEN 6010 17680 ELCE 60TO 17750
ATE 14,9:INPUT'QUE TIPO DE 6AC VA A UTILIZAR=)',J%
J$='AR60NU THEN LOCATE 15,9:INPUT"CUAL ES EL COSTO POR K6. DE ARGON=)',R
J)='COZ'
THEN LOCATE 15,T:INFUT 'CUAL ES EL COSTO POR K6. DE CU2=>',K
JJ='AGA iiI1 1020' THEN LOCATE 15,9:INPUT'IN6RECE EL COSTO POR KG.=)',Y,
'APARENTE12
KtR
CRLCULO EEL TIEtlPO EHPLEADO
:ATE 17,9:INPUT"lNGi?ECE LA VELOCIDAD DE DEPOCICION EN LBIHR.
PAPARENTEt2.205) /Y
:ATE 18,9:input'CUCTO DEL SOLDADOR POR HORA=,',G
=?',,Y
3716.4
:tZDtJCtE
= U/1150
;ATE 19,9: INPUT'INGRECE
LA CUTIZRCION GEL DOLAR=>",HJ
=HJtNT
CATE 20,T:PRINT'EL COSTO DEL PORCECO ES-)';
:PRINT US1N6'######.###";PW;
CATE 22,9:PRINT'ECTAN CORRECTOS LOS VALORES IMERECdDOC'; Y I
CATE ?2,53:INPUT Y$
Y$='N#" OR Y$='n' THEN 6OTO 16975
CATE 23,18:PRINT'PRECIONE LA BARRA PARA HOCTRAR RESULTADOS FINALES"
CATE 24,2:Dt=INPUT)(ll
G$=CHRS(32) THEN 6010 13130 ELCE PRINT CHRI(7)
110 17860
'INT CHR$(27)
TURN
:PRINT'
CUCREC'
BIBLIOGRAFIA
3.- Omer W. Blodget. DESING O F WELDING STRUCTUREC
..-- The
Lincoln Electric Company
THE PROCEDURE HANDBOOK
También podría gustarte
- Elementos de Union Fijo - SoldaduraAún no hay calificacionesElementos de Union Fijo - Soldadura43 páginas
- Resistencia de Materiales - SoldadurasAún no hay calificacionesResistencia de Materiales - Soldaduras49 páginas
- Memoria Calculo Soporte ArticuladoAún no hay calificacionesMemoria Calculo Soporte Articulado12 páginas
- Informe de Simulacion para Validacion de Modificacion de Grua Bandera SMBAún no hay calificacionesInforme de Simulacion para Validacion de Modificacion de Grua Bandera SMB10 páginas
- Memoria de Calculo-Oreja de Izaje. 0 22.10.14Aún no hay calificacionesMemoria de Calculo-Oreja de Izaje. 0 22.10.1420 páginas
- PDF Ficha 2 Diseo de Orejas de Izaje Rev1 DD100% (1)PDF Ficha 2 Diseo de Orejas de Izaje Rev1 DD1 página
- UNE-En - 1708-2 2001 Detalles de Las Uniones RAún no hay calificacionesUNE-En - 1708-2 2001 Detalles de Las Uniones R30 páginas
- Introduccion A La Inspección en Juntas SoldadasAún no hay calificacionesIntroduccion A La Inspección en Juntas Soldadas17 páginas
- Efectos Térmicos en Uniones Soldadas de Juntas A TopeAún no hay calificacionesEfectos Térmicos en Uniones Soldadas de Juntas A Tope14 páginas
- NO-90-015 - ET Montaje Estructuras MetalicasAún no hay calificacionesNO-90-015 - ET Montaje Estructuras Metalicas12 páginas
- Soldadura, Adhesión y Diseño de Uniones PermanentesAún no hay calificacionesSoldadura, Adhesión y Diseño de Uniones Permanentes13 páginas
- NMX H 118 1996 Scfi - R0 - 4mar1997Aún no hay calificacionesNMX H 118 1996 Scfi - R0 - 4mar199716 páginas
- 2022-2 Ejemplos EJERCICIOS PRACTICOS 1 RESUELTOSAún no hay calificaciones2022-2 Ejemplos EJERCICIOS PRACTICOS 1 RESUELTOS21 páginas
- Apunte Uniones Soldadas Tercera Edicion 2010Aún no hay calificacionesApunte Uniones Soldadas Tercera Edicion 201041 páginas
- Control de Distorsion en SoldaduraAún no hay calificacionesControl de Distorsion en Soldadura1 página
- Miembros Armados Soldadura IntermitenteAún no hay calificacionesMiembros Armados Soldadura Intermitente1 página
- Elección Del Tipo de Acero para EstructurasAún no hay calificacionesElección Del Tipo de Acero para Estructuras4 páginas
- Resistencia de Diseño de Las Soldaduras de Filetes AAún no hay calificacionesResistencia de Diseño de Las Soldaduras de Filetes A44 páginas
- Programa de Tesis Jose Andre Flores ChiaAún no hay calificacionesPrograma de Tesis Jose Andre Flores Chia6 páginas
- Dossier de Calidad TK Helit 0522 1mgl 01Aún no hay calificacionesDossier de Calidad TK Helit 0522 1mgl 01123 páginas
- Criterio de Aceptacion Segun Aws d1 1 40427 Downloable 3080033Aún no hay calificacionesCriterio de Aceptacion Segun Aws d1 1 40427 Downloable 30800336 páginas
- NCh0730-1974 Pefiles Estructurales Al Arco SumergidoAún no hay calificacionesNCh0730-1974 Pefiles Estructurales Al Arco Sumergido21 páginas
- Dibujo Asistido 2 Problemas Cremonas SolucionAún no hay calificacionesDibujo Asistido 2 Problemas Cremonas Solucion28 páginas
- Uniones Soldadas y Atornilladas PDFAún no hay calificacionesUniones Soldadas y Atornilladas PDF18 páginas
- Proyecto: Proyecto Nº: Autor:: SoldadurasAún no hay calificacionesProyecto: Proyecto Nº: Autor:: Soldaduras3 páginas
- Presentacion Tecnico Comercial Industrial Bloquera MexicanaAún no hay calificacionesPresentacion Tecnico Comercial Industrial Bloquera Mexicana42 páginas
- c7r2 Repercusion de La Caracteristicas Mecanicas de La MamposteriaAún no hay calificacionesc7r2 Repercusion de La Caracteristicas Mecanicas de La Mamposteria10 páginas
- Modelado de Pórticos de Concreto Armado en FTOOLAún no hay calificacionesModelado de Pórticos de Concreto Armado en FTOOL17 páginas
- C1R4 Comportamiento Ante Cargas Laterla Alternadas de Muros Construidos Con Tab MultiAún no hay calificacionesC1R4 Comportamiento Ante Cargas Laterla Alternadas de Muros Construidos Con Tab Multi8 páginas
- Cálculo de Rigidez de Marcos de Concreto Método de SchultzAún no hay calificacionesCálculo de Rigidez de Marcos de Concreto Método de Schultz7 páginas
