#!/bin/sh
#] 
#] *********************
#] $ bash "$d_bin""symbols compliance POI.sh"  - correct POIx expressions wrt variable reference frames
# www.BillHowell.ca  14Jul2018 initial - based on "/media/bill/SWAPPER/Qnial/MY_NDFS/z_old/translate symbols.ndf"
# 


# to run $ bash  "/media/bill/SWAPPER/Qnial/MY_NDFS/symbols compliance POI.sh"


dater=$(date +"%y%m%d %kh%Mm")

d_Luca="/media/bill/SWAPPER/Lucas - Universal Force/"

if [[  "$HOWELL_computer" = "RaspPi"  ]]; then
   d_temp="/media/bill/RaspPi_ext4_32Gb/temp/"
else
   d_temp="/media/bill/ramdisk/"
fi



# [REBF][op][cd][vsh]
# A     [op][cd]

(POIo(t))

#] varR_trans()  - 

	varR_trans()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1o\1\2(POIo)/g"			>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1o\1\2(POIp(t),t))/g"		>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1p\1\2(POIo(t),t))/g"		>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1p\1\2(POIp)/g"			>"$d_temp""f_trans4.txt"  
}  


#] varA_trans()  - 

	varA_trans()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)(POIo\(.\{0,5\}\))/$1o\1(POIo)/g"				>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)(POIp\(.\{0,5\}\))/$1o\1(POIp(t),t))/g"		>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)(POIo\(.\{0,5\}\))/$1p\1(POIo(t),t))/g"		>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)(POIp\(.\{0,5\}\))/$1p\1(POIp)/g"				>"$d_temp""f_trans4.txt"  
}  


#] varAO_E0DIFF()  - 

	varAO_E0DIFF()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)(POIo\(.\{0,5\}\))/$1o\1(POIo,∂(t))/g"		>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)(POIp\(.\{0,5\}\))/$1o\1(POIp(t),∂(t)))/g"	>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)(POIo\(.\{0,5\}\))/$1p\1(POIo(t),∂(t)))/g"	>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)(POIp\(.\{0,5\}\))/$1p\1(POIp,∂(t))/g"		>"$d_temp""f_trans4.txt"  
}  


#] varBE_trans()  - 

	varBE_trans()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1o\1\2(POIo,t)/g"			>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1o\1\2(POIp(t),t))/g"		>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1p\1\2(POIo(t),t))/g"		>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1p\1\2(POIp,t)/g"			>"$d_temp""f_trans4.txt"  
}  



#] varBaseALL_trans()  - 

	varBaseALL_trans()
{  
varR_trans	"R"
varR_trans	"Rθ0"
varR_trans	"Rφ"
varR_trans	"RθPI2"

varA_trans	"Aθ"
varA_trans	"Aφ"

varA_DIFF	"Aθ_E0DIFF"

varBE_trans "E0"
varBE_trans "EI"
varBE_trans "EI_LENZ"
varBE_trans "EI_BARN"
varBE_trans "ET"
varBE_trans "ET_LENZ"
varBE_trans "ET_BARN"

varBE_trans "B0"
varBE_trans "BI"
varBE_trans "BI_LENZ"
varBE_trans "BI_BARN"
varBE_trans "BT"
varBE_trans "BT_LENZ"
varBE_trans "BT_BARN"
}  


#] test_example()  - 

	test_example()
{
cp   "/media/bill/SWAPPER/Qnial/code develop_test/symbols sed test data.txt"  "$d_temp""f_trans4.txt"
varBaseALL_trans
cat  "$d_temp""f_trans4.txt"
}  


#] trans_BackGrnd()  - 

	trans_BackGrnd()
{  
cp   "$d_temp$1.txt"				"$d_temp""f_trans4.txt"
varBaseALL_trans
mv   "$d_temp""f_trans4.txt"  "$d_Luca""$1.txt"  
}



trans_BackGrnd  "Howell - Background math for Lucas Universal Force, Chapter 4"
#trans_BackGrnd    "Howell - math of Lucas Universal Force"

# old code 
#trans_BackGrnd  "Howell - Background math for Lucas Universal Force, Chapter 4"		"180714 18h43m36s"
#trans_BackGrnd    "Howell - math of Lucas Universal Force "							"180710 16h41m51s"



# to run $ bash	"/media/bill/SWAPPER/Qnial/MY_NDFS/symbols compliance POI.sh"  



# enddoc