mirror of
				https://asciireactor.com/otho/phy-4660.git
				synced 2025-11-04 11:38:05 +00:00 
			
		
		
		
	
		
			
	
	
		
			14 lines
		
	
	
		
			162 B
		
	
	
	
		
			R
		
	
	
	
	
	
		
		
			
		
	
	
			14 lines
		
	
	
		
			162 B
		
	
	
	
		
			R
		
	
	
	
	
	
| 
								 | 
							
								K = c(0.1808,.4897,.4975)
							 | 
						||
| 
								 | 
							
								E3min = K*1.9
							 | 
						||
| 
								 | 
							
								E3mac = K*2
							 | 
						||
| 
								 | 
							
								E3m*
							 | 
						||
| 
								 | 
							
								E3min
							 | 
						||
| 
								 | 
							
								E3max
							 | 
						||
| 
								 | 
							
								E3mac
							 | 
						||
| 
								 | 
							
								ave=(E3max-E3min)/2+E3min
							 | 
						||
| 
								 | 
							
								ave=(E3mac-E3min)/2+E3min
							 | 
						||
| 
								 | 
							
								err
							 | 
						||
| 
								 | 
							
								err=(E3mac-E3min)/2
							 | 
						||
| 
								 | 
							
								err
							 | 
						||
| 
								 | 
							
								quit()
							 |