LMU/musrsim
LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added densities of some compounds to Chem.pm (not used yet).

Browse Source
This commit is contained in:
salman 2013-03-11 14:51:19 +00:00
parent bd6eb3f8fe
commit 7d9c2dbcc9
2 changed files with 58 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
trimsp/src/TrimSPGUI/Chem.pm
View File

@ -533,7 +533,7 @@ sub Elastof {
}
sub Stopicru {
# Given the element it returns A-1 to A-5 of the ziegler tables
# Given the element it returns "A-1, A-2, A-3, A-4, A-5" of the ziegler tables
my ($El) = @_;
my %Stopicru = (
@ -634,4 +634,32 @@ sub Stopicru {
return $Stopicru{$El};
}
sub Densities {
# Database of densities for different compounds
my ($Compound) = @_;
my %Densities = (
"NbN",8.47,
"Bi2Se3",7.51,
"N2",1.145,
"ZnO",5.61,
"SiO2",2.65,
"TiO2",4.26,
"KTaO3",6.967,
"LaAlO3",6.70,
"Al2O3",3.98,
"SrTiO3",5.12,
"NbSe2",6.30,
"MgO",3.58,
"YBa2Cu3O7",6.54,
"GaAs",5.32,
"Si",2.33,
"Mn12-Acetate",1.65,
"C60",1.65,
"",""
);
return $Densities{$Compound};
}
1;

30
trimsp/src/TrimSPGUI4/Chem.pm
View File

@ -533,7 +533,7 @@ sub Elastof {
}
sub Stopicru {
# Given the element it returns A-1 to A-5 of the ziegler tables
# Given the element it returns "A-1, A-2, A-3, A-4, A-5" of the ziegler tables
my ($El) = @_;
my %Stopicru = (
@ -634,4 +634,32 @@ sub Stopicru {
return $Stopicru{$El};
}
sub Densities {
# Database of densities for different compounds
my ($Compound) = @_;
my %Densities = (
"NbN",8.47,
"Bi2Se3",7.51,
"N2",1.145,
"ZnO",5.61,
"SiO2",2.65,
"TiO2",4.26,
"KTaO3",6.967,
"LaAlO3",6.70,
"Al2O3",3.98,
"SrTiO3",5.12,
"NbSe2",6.30,
"MgO",3.58,
"YBa2Cu3O7",6.54,
"GaAs",5.32,
"Si",2.33,
"Mn12-Acetate",1.65,
"C60",1.65,
"",""
);
return $Densities{$Compound};
}
1;