http://wiki-pnb.eri.ucsb.edu/index.php?action=history&feed=atom&title=CERBmathloop 2026-04-24T22:41:06Z Revision history for this page on the wiki MediaWiki 1.34.0 http://wiki-pnb.eri.ucsb.edu/index.php?title=CERBmathloop&diff=750&oldid=prev 2014-04-10T23:27:11Z

<p>Created page with &quot;&lt;pre&gt; function COPSmathloop(filename) %mathloop that only works for prr %filename = &#039;bsakrmP101216B.lcd.1&#039; domath(filename,&#039;r&#039;,&#039;LuZ320&#039;,&#039;EdZ320&#039;,0,&#039;rrs320&#039;) domath(strcat(...&quot;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> <br /> function COPSmathloop(filename)<br /> %mathloop that only works for prr<br /> %filename = 'bsakrmP101216B.lcd.1'<br /> <br /> <br /> domath(filename,'r','LuZ320','EdZ320',0,'rrs320')<br /> <br /> domath(strcat('m',filename),'r','LuZ340','EdZ340',0,'rrs340')<br /> <br /> domath(strcat('m',filename),'r','LuZ380','EdZ380',0,'rrs380')<br /> <br /> domath(strcat('m',filename),'r','LuZ395','EdZ395',0,'rrs395')<br /> <br /> domath(strcat('m',filename),'r','LuZ412','EdZ412',0,'rrs412')<br /> <br /> domath(strcat('m',filename),'r','LuZ443','EdZ443',0,'rrs443')<br /> domath(strcat('m',filename),'r','LuZ465','EdZ465',0,'rrs465')<br /> %movefile(strcat('mm',filename),strcat('m',filename))<br /> domath(strcat('m',filename),'r','LuZ490','EdZ490',0,'rrs490')<br /> %movefile(strcat('mm',filename),strcat('m',filename))<br /> domath(strcat('m',filename),'r','LuZ510','EdZ510',0,'rrs510')<br /> domath(strcat('m',filename),'r','LuZ532','EdZ532',0,'rrs532')<br /> %movefile(strcat('mm',filename),strcat('m',filename))<br /> domath(strcat('m',filename),'r','LuZ555','EdZ555',0,'rrs555')<br /> domath(strcat('m',filename),'r','LuZ560','EdZ560',0,'rrs560')<br /> domath(strcat('m',filename),'r','LuZ625','EdZ625',0,'rrs625')<br /> %movefile(strcat('mm',filename),strcat('m',filename))<br /> domath(strcat('m',filename),'r','LuZ665','EdZ665',0,'rrs665')<br /> %movefile(strcat('mm',filename),strcat('m',filename))<br /> domath(strcat('m',filename),'r','LuZ670','EdZ670',0,'rrs670')<br /> domath(strcat('m',filename),'r','LuZ683','EdZ683',0,'rrs683')<br /> domath(strcat('m',filename),'r','LuZ710','EdZ710',0,'rrs710')<br /> domath(strcat('m',filename),'r','LuZ780','EdZ780',0,'rrs780')<br /> %command = (strcat('cp ',strcat('mmmmm',filename)))<br /> %command = strcat(command,strcat('m',filename));<br /> <br /> % system('cp mmmmmbsakrmp101216B.lcd.1 mbsakrmP10121gB.lcd.1')<br /> % system(command)<br /> %system('rm mmmmmbsakrmp101216B.lcd.1')<br /> % system('rm mmmmbsakrmp101216B.lcd.1')<br /> % system('rm mmmbsakrmp101216B.lcd.1')<br /> % system('rm mmbsakrmp101216B.lcd.1')<br /> <br /> &lt;/pre&gt;</div>

Eriks