*Heading : Thermally Coupled Contact, Finite Sliding Contact With Interace Radiation, Deformable *Restart, Write, F=2 *Node,Nset=All 1,1.,1. 7,1.,7. 11,2.,1. 17,2.,7. 101,2.,3. 105,2.,5. 111,3.,3. 115,3.,5. *Ngen 1,7,1 11,17,1 101,105,1 111,115,1 *Nset,Nset=Bot,Gen 1,7,1 *Nset,Nset=Top,Gen 111,115,1 ** *Element,Type=cax4rt,Elset=Dead 1,3,1,11,13 3,7,5,15,17 *Solid Section,Elset=Dead,Material=Dead *Material,Name=Dead *Elastic 30.E6,.3 *Conductivity 10.000, *Specific Heat 0.001, *Density 1000., ** *Element,Type=cax4rt,Elset=Active 2,5,3,13,15 101,103,101,111,113 102,105,103,113,115 *Solid Section,Elset=Active,Material=Active *Material,Name=Active *Elastic 30.E6,.3 *Conductivity 10., *Density 1000., *Specific Heat .001, ** *Elset,Elset=Etop 102,101 *Elset,Elset=Ebot 3,2,1 *Surface,Name=Asurf Etop,S1 *Surface,Name=Bsurf Ebot,S3 *Contact Pair,Interaction=Smooth,Smooth=0.05 Asurf,Bsurf *Surface Interaction,Name=Smooth *Gap Radiation 7.4074e-1, 7.40744e-1 1.,0. 1.,1. *Gap Heat Generation 0.0, *Physical Constants, Absolute Zero=-273.16, Stefan Boltzmann=1.7e-6 ** *Amplitude, Name=Slide, Value=Relative, Time=Step 0.0, 0.0, 200., 1.0, 400., 0.0, 600., -1.0 800., 0.0, 1000., 0.0 *Amplitude, Name=Remove, Value=Relative, Time=Step 0.0, 1.0, 30.0, 0.0, 100.0, 0.0 ** *Initial Conditions,Type=Temp All,0.0 ** *Step,Inc=50,Nlgeom,Amp=Ramp,Unsymm=Yes Step 1 *Coupled Temperature,Deltmx=100. 1.,10. *Controls,Parameters=Field 1.0e-6, *Boundary Bot,1,1 1,2,2 7,2,2 113,2,2 *Dload 101,P3,100. 102,P3,100. *Dflux 101,S3,100. 102,S3,100. *Film 2,F1,0.,10. *Contact Print,Secondary=Asurf *Contact File,Secondary=Asurf,F=10 *Node Print Rf,Nt11,Rfl *El Print S, E, Temp, Hfl, Nflux, *El File,F=10 S,LE,Temp Nflux, *Node File,F=10 Nt,Rfl *Output,Field,Freq=10 *Element Output S,LE,Temp,Nflux *Node Output Nt,Rfl,U *Contact Output Cstress, Cdisp *Print,Contact=Yes *End Step ** *Step,Inc=50,Nlgeom,Amp=Ramp,Unsymm=Yes Step 2 *Coupled Temperature,Deltmx=100. 100.,1000.,,100. *Boundary,Fixed Top,1,1 *Boundary,Amplitude=Slide 113, 2,2, 1.5 *Output,Field,Freq=1 *Element Output S,LE,Temp,Nflux *Node Output Nt,Rfl,U *Contact Output Cstress, Cdisp *End Step ** *Step,Inc=50,Nlgeom,Unsymm=Yes Step 3 *Coupled Temperature-Displacement,Steady State 100000.,100000. *Boundary,Op=New Bot,1,1 1,2,2 7,2,2 113,2,2 *End Step ** *Step,Inc=50,Nlgeom,Unsymm=Yes Step 4 *Coupled Temperature-Displacement,Steady State 100000.,100000. *Dload 101,P3,200. 102,P3,200. *Boundary 113,2,2,0.0 *End Step ** *Step,Inc=50,Nlgeom,Amp=Ramp,Unsymm=Yes Step 5 *Coupled Temperature-Displacement,Deltmx=100. 5.0, 100.0 *Dflux, Amp=Remove 101, S3, 100.0 102, S3, 100.0 *Boundary 113, 2,2, 10.0 *Boundary,Fixed 111,1,1 113,1,1 115,1,1 *End Step