Search This Blog

2010-10-10

Focus Fusion Shot Calculator

START ===== ShotCalculator.cmd
:: File:ShotCalculator.cmd - Docs at the end
@echo off
:: TURN OF ECHO IN CMD

echo SET THE BASEDIRECTORY OF THE SCRIPT
set BaseDir=D:\perl\sfw\FF\ShotCalculator
echo :: BaseDir --- %BaseDir

echo Set the full path to the Perl Script
set PerlScript=%BaseDir%\ShotCalculator.pl
echo :: PerlScript --- %PerlScript%

echo set the Initial Current - This is the initial current of 100,000 Joules enters the system
set InitialCurrent=100000
echo :: InitialCurrent --- %InitialCurrent%


echo set the PinchCurrent - About 70,000 go toward generating the “pinch” and making fusion happen.
set PinchCurrent=70000
echo :: PinchCurrent --- %PinchCurrent%

echo set the FusionYieldPerPinch - The theoretical yield of the pinch of fusion-generated energy
set FusionYieldPerPinch=33000
echo FusionYieldPerPinch --- %FusionYieldPerPinch%

echo set the time for which we would like to calculate the energy gains in time units ( seconds )
set TimeOfOperation=3600
echo TimeOfOperation --- %TimeOfOperation%

echo set the amount of pinches that are ran per second
set PinchesPerTimeUnit=5
echo PinchesPerTimeUnit --- %PinchesPerTimeUnit%

echo This is the percentage of the ennergy loss occuring per shot
set EnergyLossCoefficient=24.8125
echo EnergyLossCoefficient --- %EnergyLossCoefficient%

echo This is the percentage of the ennergy loss occuring per shot
set OutputDir=%BaseDir%\output
echo OutputDir --- %OutputDir%

echo make the OutputDir %OutputDir% if it does not exist
mkdir %OutputDir%
echo ignore any error message if it appears ...



echo Call The Perl Script as follows
echo perl %PerlScript% %InitialCurrent% %PinchCurrent% %FusionYieldPerPinch%
perl %PerlScript% %InitialCurrent% %PinchCurrent% %FusionYieldPerPinch% %TimeOfOperation% %PinchesPerTimeUnit% %EnergyLossCoefficient% %OutputDir%

echo Now open the OutputDir %OutputDir%
cmd /t30 /c start /max Explorer /e , %OutputDir%

echo Done in cmd



:: Purpose:to set the variables need for Focus Fusion Shot Calculations during time
:: VersionHistory:
:: 1.0.20101009_151621 --- Yordan Georgiev -- Initial draft based on http://focusfusion.org/index.php/site/article/how_will_we_get_there_from_here/
::
END ================== ShotCalculator.cmd

.
START ===== ShotCalculator.pl
use strict ;
package ShotCalculator ;

my $InitialCurrent = $ARGV[0] ; #This is the initial current of 100,000 Joules enters the system
my $PinchCurrent = $ARGV[1] ; #About 70,000 go toward generating the “pinch” and making fusion happen.
my $FusionYieldPerPinch = $ARGV[2] ; #The theoretical yield of the pinch of fusion-generated energy
my $TimeOfOperation = $ARGV[3] ; #This is the time for which we would like to calculate the energy gains
my $PinchesPerTimeUnit = $ARGV[4] ; #How many pinches are run per second
my $EnergyLossCoefficient = $ARGV[5] ; #Less ~20% energy lost by inefficiencies and you end up with the 106,400 Joules.
my $OutputDir=$ARGV[6] ; #The directory where the output will be saved
my $OutputFile = "$OutputDir" . '/' . "InitialCurrent" . '-' . "$InitialCurrent" . '_' . "PinchCurrent" . '-' . "$PinchCurrent" . '_' . "FusionYieldPerPinch" . '-' . "$FusionYieldPerPinch" . '_' . "TimeOfOperation" . '-' . "$TimeOfOperation" . '_' . "PinchesPerTimeUnit" . '-' . "$PinchesPerTimeUnit" . '_' . "EnergyLossCoefficient" . '-' . "$EnergyLossCoefficient" . '.csv';


sub main
{

#debug print " \$InitialCurrent --- $InitialCurrent \n " ;
#debug print " \$PinchCurrent = $PinchCurrent \n " ;
#debug print " \$FusionYieldPerPinch = $FusionYieldPerPinch \n" ;
#debug print " \$TimeOfOperation = $TimeOfOperation \n";
#debug print " \$PinchesPerTimeUnit --- $PinchesPerTimeUnit \n" ;
#debug print " \$EnergyLossCoefficient --- $EnergyLossCoefficient \n " ;

open ( OUTPUTFILE , ">$OutputFile" ) || print "Cannot open \$OutputFile - $OutputFile !!!" ;
print OUTPUTFILE "InitialCurrent PinchCurrent FusionYieldPerPinch TimeOfOperation PinchesPerTimeUnit EnergyLossCoefficient IonBeamConversionDeviceRecoveryPerTU RecoveredCurrentPerTU TotalEnergyRecoveredPerTU NetGainPerTU CumIonBeamConversionDeviceRecovery CumRecoveredCurrent CumTotalEnergyRecovered CumNetGain\n";






my ( $CumIonBeamConversionDeviceRecovery , $CumRecoveredCurrent , $CumTotalEnergyRecovered , $CumNetGain ) = 0;



for (my $TimeUnit = 0 ; $TimeUnit < $TimeOfOperation ; $TimeUnit++)
{
my ($IonBeamConversionDeviceRecovery , $RecoveredCurrent , $TotalEnergyRecovered , $NetGain) = CalculateSingleShot() ;

print OUTPUTFILE "$InitialCurrent $PinchCurrent $FusionYieldPerPinch $TimeOfOperation $PinchesPerTimeUnit $EnergyLossCoefficient " ;

#debug print " \$IonBeamConversionDeviceRecovery , \$RecoveredCurrent , \$TotalEnergyRecovered , \$NetGain \n" ;
#debug print " $IonBeamConversionDeviceRecovery , $RecoveredCurrent , $TotalEnergyRecovered , $NetGain \n" ;

my ($IonBeamConversionDeviceRecoveryPerTU , $RecoveredCurrentPerTU , $TotalEnergyRecoveredPerTU , $NetGainPerTU) = CalculatePerTimeUnit ( $IonBeamConversionDeviceRecovery , $RecoveredCurrent , $TotalEnergyRecovered , $NetGain ) ;
#debug print "\$IonBeamConversionDeviceRecoveryPerTU , \$RecoveredCurrentPerTU , \$TotalEnergyRecoveredPerTU , \$NetGainPerTU \n " ;
#debug print "$IonBeamConversionDeviceRecoveryPerTU , $RecoveredCurrentPerTU , $TotalEnergyRecoveredPerTU , $NetGainPerTU \n " ;
print OUTPUTFILE "$IonBeamConversionDeviceRecoveryPerTU $RecoveredCurrentPerTU $TotalEnergyRecoveredPerTU $NetGainPerTU " ;

$CumIonBeamConversionDeviceRecovery = $CumIonBeamConversionDeviceRecovery + $IonBeamConversionDeviceRecoveryPerTU ;
$CumRecoveredCurrent = $CumRecoveredCurrent + $RecoveredCurrentPerTU;
$CumTotalEnergyRecovered = $CumTotalEnergyRecovered + $TotalEnergyRecoveredPerTU ;
$CumNetGain = $CumNetGain + $NetGainPerTU ;

print OUTPUTFILE "$CumIonBeamConversionDeviceRecovery $CumRecoveredCurrent $CumTotalEnergyRecovered $CumNetGain\n" ;

} #eof for

#now close the file
close OUTPUTFILE ;

} #eof sub main


sub CalculateSingleShot
{
#This is the amount of energy to be recovered by the ion beam conversion device
#70,000 + 33,000 gives us 103,000 Joules of energy to be recovered in the ion beam conversion device.
my $IonBeamConversionDeviceRecovery = $PinchCurrent + $FusionYieldPerPinch ;

#The other 30,000 are not lost. They are recovered/recycled – stored in a second capacitor bank called the mirror capacitors that is charging up for the next shot.
my $RecoveredCurrent = $InitialCurrent - $PinchCurrent ;

#70,000 + 33,000 gives us 103,000 Joules of energy to be recovered in the ion beam conversion device. 103,000 Joules from the ion beam conversion device + 30,000 recovered from the shot gives us 133,000 Joules.
my $TotalEnergyRecovered = $IonBeamConversionDeviceRecovery + $RecoveredCurrent ;

#Less ~20% energy lost by inefficiencies and you end up with the 106,400 Joules.
my $NetGain = ( $TotalEnergyRecovered * (( 100 - $EnergyLossCoefficient )/100) ) - $InitialCurrent;

#return the values
return ($IonBeamConversionDeviceRecovery , $RecoveredCurrent , $TotalEnergyRecovered , $NetGain) ;
} #eof sub CalculateSingleShot
# ====================================================================


#This function calculates the vars per time unit
sub CalculatePerTimeUnit
{
my $IonBeamConversionDeviceRecovery = shift ;
my $RecoveredCurrent = shift ;
my $TotalEnergyRecovered = shift ;
my $NetGain = shift ;

$IonBeamConversionDeviceRecovery = $IonBeamConversionDeviceRecovery * $PinchesPerTimeUnit ;
$RecoveredCurrent = $RecoveredCurrent * $PinchesPerTimeUnit ;
$TotalEnergyRecovered = $TotalEnergyRecovered * $PinchesPerTimeUnit ;
$NetGain = $NetGain * $PinchesPerTimeUnit ;

return ($IonBeamConversionDeviceRecovery , $RecoveredCurrent , $TotalEnergyRecovered , $NetGain) ;

#my ($CumIonBeamConversionDeviceRecovery , $CumRecoveredCurrent , $CumTotalEnergyRecovered , $CumNetGain) = $PinchesPerTimeUnit * ($IonBeamConversionDeviceRecovery , $RecoveredCurrent , $TotalEnergyRecovered , $NetGain) ;
} #eof sub CalculateSingleShot
# ====================================================================


# Action !!!
main();


1 ;

__END__

#Purpose: This script is aimed to simulate Focus Fusion energy calculations as well as print those in simple csv files
#License: None. Do whatever you want with this software on your own responsibility ...
#VersionHistory:
#1.0.20101009_171145 --- Yordan Georgiev --- Initial Creation - Prints a csv file with all the parameters
END ================== ShotCalculator.pl
START ===== list.txt
this is the perl script - contains the logic of the calculation
ShotCalculator.pl,http://docs.google.com/document/edit?id=1PBKpmBkGLoKITleNphNaafHj4YLAsRUOqg-bvmR1QW0&hl=en

which could be called from a cmd batch file on Win , this one has the params
ShotCalculator.cmd,http://docs.google.com/document/edit?id=1xV5hnHi2hCPsIrIXQ66u3XMaoZqNJqMjr9hE22rZ5tc&hl=en

this is a fast NON-TESTED prototype for how the sh script to call it on Unix / LInux might look like ...
ShotCalculator.sh,http://docs.google.com/document/edit?id=15BMn_EMIAhJNmHD4b9NCMaWIGHzMYqhc9TbH9T4eJwc&hl=en

And here some result files
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-1_PinchesPerTimeUnit-10_EnergyLossCoefficient-20,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdGVpZ182S1Rhd2xTUnRKeFVtR29fcnc&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-10_EnergyLossCoefficient-20,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdGtadEVYVE1FRFBRVmhlWGkzSi0yU0E&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-1_EnergyLossCoefficient-20,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdE5JLW16Qm5EM0VqSWVVVU9USzExQmc&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-5_EnergyLossCoefficient-20,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdFhBalFTazRGR2M0eGxYUXpoUkpaYXc&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-5_EnergyLossCoefficient-22,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdHlibDlGc0tFQm1TamNBa2lhN3hNVVE&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-5_EnergyLossCoefficient-24,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdC1nUW93cVk0TDVsM2hBZ2hoUWk3YkE&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-5_EnergyLossCoefficient-24,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdGVvTG1ER2JHMnhQVDZIMjBKVzBSOHc&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-5_EnergyLossCoefficient-25,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdDNfVzd2S1pkUmlsaDZ4NEp4dXh5SUE&hl=en
InitialCurrent-100000_PinchCurrent-70000_FusionYieldPerPinch-33000_TimeOfOperation-3600_PinchesPerTimeUnit-5_EnergyLossCoefficient-30,http://spreadsheets.google.com/ccc?key=0AnfD4zJrQugmdHc4TV9fazE1ems1WHh5eHJyRXlZa0E&hl=en

END ================== list.txt

.

.
START ===== ShotCalculator.sh
#This is not tested ... because of basic laziness ... it might have couple of bugs ...
#File:ShotCalculator.sh - Docs at the end
#TURN OF ECHO IN CMD

echo SET THE BASEDIRECTORY OF THE SCRIPT
BaseDir=/home/userName/ff
echo #BaseDir --- BaseDir

echo Set the full path to the Perl Script
PerlScript=BaseDir\ShotCalculator.pl
echo #PerlScript --- PerlScript

echo the Initial Current - This is the initial current of 100,000 Joules enters the system
InitialCurrent=100000
echo #InitialCurrent --- InitialCurrent


echo the PinchCurrent - About 70,000 go toward generating the “pinch” and making fusion happen.
PinchCurrent=70000
echo #PinchCurrent --- PinchCurrent

echo the FusionYieldPerPinch - The theoretical yield of the pinch of fusion-generated energy
FusionYieldPerPinch=33000
echo FusionYieldPerPinch --- FusionYieldPerPinch

echo the time for which we would like to calculate the energy gains in time units ( seconds )
TimeOfOperation=3600
echo TimeOfOperation --- TimeOfOperation

echo the amount of pinches that are ran per second
PinchesPerTimeUnit=5
echo PinchesPerTimeUnit --- PinchesPerTimeUnit

echo This is the percentage of the ennergy loss occuring per shot
EnergyLossCoefficient=24.5
echo EnergyLossCoefficient --- EnergyLossCoefficient

echo This is the percentage of the ennergy loss occuring per shot
OutputDir=BaseDir\output
echo OutputDir --- OutputDir

echo make the OutputDir $OutputDir if it does not exist
mkdir $OutputDir
echo ignore any error message if it appears ...



echo Call The Perl Script as follows
echo $PerlScript $InitialCurrent $PinchCurrent $FusionYieldPerPinch $TimeOfOperation $PinchesPerTimeUnit $EnergyLossCoefficient $OutputDir

perl $PerlScript $InitialCurrent $PinchCurrent $FusionYieldPerPinch $TimeOfOperation $PinchesPerTimeUnit $EnergyLossCoefficient $OutputDir

ls -al $OutputDir

echo Done in cmd



#Purpose:to the variables need for Focus Fusion Shot Calculations during time
#VersionHistory:
#1.0.20101009_151621 --- Yordan Georgiev -- Initial draft based on h://focusfusion.org/index.php/site/article/how_will_we_get_there_from_here/

END ================== ShotCalculator.sh

Labels

perl (41) Cheat Sheet (25) how-to (24) sql server 2008 (13) windows (13) linux (12) oracle (12) sql (12) Unix (11) cmd windows batch (10) mssql (10) cmd (9) script (9) textpad (9) netezza (8) sql server 2005 (8) cygwin (7) meta data mssql (7) metadata (7) code generation (6) Informatica (5) bash (5) cheatsheet (5) energy (5) tsql (5) utilities (5) excel (4) future (4) generic (4) html (4) perl modules (4) programs (4) settings (4) sh (4) shortcuts (4) поуки (4) принципи (4) Focus Fusion (3) Solaris (3) cool programs (3) development (3) economy (3) example (3) freeware (3) fusion (3) git cheat sheet (3) morphus (3) mssql 2005 (3) nuclear (3) nz (3) parse (3) python (3) sftp (3) sofware development (3) source (3) sqlplus (3) table (3) vim (3) .Net (2) C# (2) China (2) GUI (2) Google (2) GoogleCL (2) Solaris Unix (2) ascii (2) awk (2) batch (2) cas (2) chrome extensions (2) code2html (2) columns (2) configuration (2) conversion (2) duplicates (2) excel shortcuts (2) export (2) file (2) free programs (2) informatica sql repository (2) logging (2) mssql 2008 (2) mysql (2) next big future (2) nsis (2) nz netezza cheat sheet (2) nzsql (2) ora (2) prediction (2) publish (2) release management (2) report (2) security (2) single-click (2) sqlserver 2005 (2) sqlserver 2008 (2) src (2) ssh (2) template (2) tools (2) vba (2) video (2) xlt (2) xml (2) youtube videos (2) *nix (1) .vimrc (1) .virmrc vim settings configs (1) BSD license (1) Bulgaria (1) Dallas (1) Database role (1) Dense plasma focus (1) Deployment (1) ERP (1) ExcelToHtml (1) GD (1) GDP (1) HP-UX (1) Hosting (1) INC (1) IT general (1) ITIL management bullshit-management (1) IZarc (1) Java Web Start (1) JavaScript anchor html jquery (1) Khan Academy (1) LINUX UNIX BASH AND CYGWIN TIPS AND TRICKS (1) Linux Unix rpm cpio build install configure (1) Linux git source build .configure make (1) ListBox (1) MIT HYDROGEN VIRUS (1) OO (1) Obama (1) PowerShell (1) Run-time (1) SDL (1) SIWA (1) SOX (1) Scala (1) Services (1) Stacks (1) SubSonic (1) TED (1) abstractions (1) ansible hosts linux bash (1) ansible linux deployment how-to (1) ansible yum pip python (1) apache (1) apache 2.2 (1) application life cycle (1) architecture (1) archive (1) arguments (1) avatar (1) backup (1) bash Linux open-ssh ssh ssh_server ssh_client public-private key authentication (1) bash perl search and replace (1) bash stub (1) bin (1) biofuels (1) biology (1) books (1) browser (1) bubblesort (1) bugs (1) build (1) byte (1) cas_sql_dev (1) chennai (1) chrome (1) class (1) claut (1) cmdow (1) code generation sqlserver (1) command (1) command line (1) conf (1) confluence (1) console (1) convert (1) cool programs windows free freeware (1) copy-paste (1) csv (1) ctags (1) current local time (1) cygwin X11 port-forwarding mintty xclock Linux Unix X (1) cygwin bash how-to tips_n_tricks (1) cygwin conf how-to (1) data (1) data types (1) db2 cheat sheet (1) db2 starter ibm bash Linux (1) debt (1) diagram (1) dictionaries (1) digital (1) disk (1) disk space (1) documentation (1) dos (1) dubai (1) e-cars (1) electric cars (1) electricity (1) emulate (1) errors (1) exponents (1) export workflow (1) extract (1) fast export (1) fexp (1) file extension (1) file permissions (1) findtag (1) firewall (1) for loop (1) freaky (1) functions (1) fusion research (1) german (1) git gitlab issues handling system (1) google cli (1) google code (1) google command line interface (1) gpg (1) ha (1) head (1) helsinki (1) history (1) hop or flop (1) host-independant (1) how-to Windows cmd time date datetime (1) ibm db2 cognos installation example db deployment provisioning (1) ideas (1) image (1) informatica oracle sql (1) informatica repo sql workflows sessions file source dir (1) informatica source files etl (1) install (1) it management best practices (1) java (1) jump to (1) keyboard shortcuts (1) ksh (1) level (1) linkedin (1) linux bash ansible hosts (1) linux bash commands (1) linux bash how-to shell expansion (1) linux bash shell grep xargs (1) linux bash tips and t ricks (1) linux bash unix cygwin cheatsheet (1) linux bash user accounts password (1) linux bash xargs space (1) linux cheat sheet (1) linux cheat-sheet (1) linux cheatsheet cheat-sheet revised how-to (1) linux how-to non-root vim (1) linux ssh hosts parallel subshell bash oneliner (1) london (1) make (1) me (1) metacolumn (1) metadata functions (1) metaphonre (1) method (1) model (1) movie (1) multithreaded (1) mysql cheat sheet (1) mysql how-to table datatypes (1) n900 (1) nano (1) neteza (1) netezza bash linux nps (1) netezza nps (1) netezza nps nzsql (1) netezza nz Linux bash (1) netezza nz bash linux (1) netezza nz nzsql sql (1) netezza nzsql database db sizes (1) non-password (1) nord pol (1) nps backup nzsql schema (1) number formatting (1) nz db size (1) nz table count rows (1) nzsql date timestamp compare bigint to_date to_char now (1) on-lier (1) one-liners (1) one-to-many (1) oneliners (1) open (1) open source (1) openrowset (1) oracle PL/SQL (1) oracle Perl perl (1) oracle installation usability (1) oracle number formatting format-model ora-sql oracle (1) oracle templates create table (1) oracle trigger generic autoincrement (1) oracle vbox virtual box cheat sheet (1) oracle virtual box cheat sheet (1) outlook (1) parser (1) password (1) paths (1) perl @INC compile-time run-time (1) perl disk usage administration Linux Unix (1) perl modules configuration management (1) permissions (1) php (1) picasa (1) platform (1) postgreSQL how-to (1) powerShell cmd cygwin mintty.exe terminal (1) ppm (1) predictions (1) prices (1) principles (1) productivity (1) project (1) prompt (1) proxy account (1) public private key (1) publishing (1) putty (1) qt (1) read file (1) registry (1) relationship (1) repository (1) rm (1) scp (1) scripts (1) scsi (1) search and replace (1) sed (1) sendEmail (1) sh stub (1) shortcuts Windows sql developer Oracle (1) sidebar (1) silicon (1) smtp (1) software procurement (1) sofware (1) sort (1) sql script (1) sql_dev (1) sqlcmd (1) sqlite (1) sqlite3 (1) sshd (1) sshd cygwin (1) stackoverflow (1) stored procedure (1) stub (1) stupidity (1) subroutines (1) svn (1) sysinternals (1) tail (1) tar (1) temp table (1) templates (1) teradata (1) terminal (1) test (1) testing (1) theory (1) thorium (1) time (1) tip (1) title (1) tmux .tmux.conf configuration (1) tmux efficiency bash (1) tool (1) ui code prototyping tips and tricks (1) umask Linux Unix bash file permissions chmod (1) url (1) urls (1) user (1) utility (1) utils (1) vb (1) vim perl regex bash search for string (1) vim recursively hacks (1) vim starter (1) vim-cheat-sheet vim cheat-sheet (1) vimeo (1) visual stuio (1) warsaw (1) wiki (1) wikipedia (1) window (1) windows 7 (1) windows 8 (1) windows programs (1) windows reinstall (1) windows utility batch perl space Windows::Clipboard (1) wisdoms (1) workflow (1) worth-reading (1) wrapper (1) xp_cmdshell (1) xslt (1) youtube (1)

Blog Archive

Translate with Google Translate

My Blog List

VideoBar

This content is not yet available over encrypted connections.