Home > atphysics > Radiation > atsetenergy.m

atsetenergy

PURPOSE

atsetenergy(ring,Energy) sets the Energy field in all

SYNOPSIS

function newring = atsetenergy(ring,E)

DESCRIPTION

atsetenergy(ring,Energy) sets the Energy field in all
elements to the value given by E.  If no such field exists, it creates it.

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

SOURCE CODE

0001 function newring = atsetenergy(ring,E)
0002 %atsetenergy(ring,Energy) sets the Energy field in all
0003 %elements to the value given by E.  If no such field exists, it creates it.
0004 newring=ring;
0005 for j=1:length(ring)
0006     newring{j}.Energy = E;
0007 end