(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     13419,        247]
NotebookOptionsPosition[     12398,        220]
NotebookOutlinePosition[     12922,        240]
CellTagsIndexPosition[     12879,        237]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
DeletaAdinkra.nb
Deletes Adinkra.wl from the local machine\
\>", "Title",
 CellChangeTimes->{{3.431643447359375*^9, 3.43164348528125*^9}, {
   3.4332803471875*^9, 3.4332803938125*^9}, {3.439841647921875*^9, 
   3.439841676265625*^9}, {3.4399946617855*^9, 3.43999466687925*^9}, {
   3.44088192175*^9, 3.440881923578125*^9}, {3.4423479416875*^9, 
   3.442347948953125*^9}, {3.442980454609375*^9, 3.442980483234375*^9}, {
   3.443704482140625*^9, 3.443704510671875*^9}, {3.443704683796875*^9, 
   3.443704691203125*^9}, {3.44372638084375*^9, 3.443726451640625*^9}, {
   3.45355300203125*^9, 3.453553002890625*^9}, {3.454246287921875*^9, 
   3.454246303546875*^9}, {3.454246379453125*^9, 3.4542464184375*^9}, {
   3.454246473484375*^9, 3.454246483109375*^9}, {3.4544147554375*^9, 
   3.454414815859375*^9}, {3.454852671*^9, 3.4548527046875*^9}, {
   3.454856728203125*^9, 3.45485673075*^9}, {3.454926202984375*^9, 
   3.454926295546875*^9}, {3.455015384*^9, 3.455015392609375*^9}, {
   3.455015444671875*^9, 3.455015446890625*^9}, {3.455015517421875*^9, 
   3.455015519890625*^9}, {3.4550155711875*^9, 3.455015606859375*^9}, {
   3.455016320453125*^9, 3.45501632865625*^9}, {3.455042848390625*^9, 
   3.455042857671875*^9}, {3.455043636234375*^9, 3.4550436771875*^9}, {
   3.511555277628312*^9, 3.5115553207117767`*^9}, {3.511625771375633*^9, 
   3.5116258752865763`*^9}, {3.5116411679872684`*^9, 3.511641221284317*^9}, {
   3.5199454008058896`*^9, 3.5199454666306543`*^9}, {3.5199455739987955`*^9, 
   3.519945622294558*^9}, {3.5206458956356697`*^9, 3.520645943704419*^9}, {
   3.523718893836775*^9, 3.523718923873493*^9}, {3.536715674278531*^9, 
   3.5367157073544226`*^9}, {3.53853389765368*^9, 3.538533899967812*^9}, {
   3.538942345864266*^9, 3.538942357964958*^9}, {3.5389474299050565`*^9, 
   3.538947485150216*^9}, {3.5390845827297893`*^9, 3.5390846106083837`*^9}, {
   3.53908510341057*^9, 3.5390851199535165`*^9}, {3.539086064745556*^9, 
   3.5390861577368746`*^9}, {3.5451459061807747`*^9, 3.545145907619857*^9}, {
   3.54514596135293*^9, 3.5451460262956448`*^9}, {3.548677365614721*^9, 
   3.548677420252846*^9}, {3.5486904482318554`*^9, 3.5486904831498528`*^9}, {
   3.5507964280028415`*^9, 3.550796434750227*^9}, {3.5516981864105062`*^9, 
   3.5516981873125577`*^9}, {3.5517063670611444`*^9, 3.551706375990655*^9}, {
   3.5517143798937216`*^9, 3.5517143832039113`*^9}, {3.5517286202182903`*^9, 
   3.5517286597495513`*^9}, {3.5517928905442033`*^9, 3.551792917464743*^9}, {
   3.5521354453831377`*^9, 3.5521354853424234`*^9}, {3.552135534200218*^9, 
   3.552135558024581*^9}, {3.5521356059203205`*^9, 3.552135681027616*^9}, {
   3.5521357231810274`*^9, 3.5521357548318377`*^9}, {3.55231422706569*^9, 
   3.5523142637937903`*^9}, {3.552314318528921*^9, 3.552314318928944*^9}, {
   3.552314384905718*^9, 3.552314430815344*^9}, {3.552314502398438*^9, 
   3.5523146413143835`*^9}, {3.552473196132519*^9, 3.5524732208799343`*^9}, 
   3.5528371122703466`*^9, 3.5528444571634464`*^9, {3.5528449407701073`*^9, 
   3.5528450003105125`*^9}, {3.552866910465884*^9, 3.5528670764143763`*^9}, {
   3.5528755049588575`*^9, 3.552875669883291*^9}, {3.5528757974815893`*^9, 
   3.5528759485802317`*^9}, {3.552876032727044*^9, 3.5528760646078677`*^9}, 
   3.5528770280839753`*^9, {3.552905728992181*^9, 3.5529057870398817`*^9}, {
   3.552924313800542*^9, 3.552924357451039*^9}, {3.5529244139042673`*^9, 
   3.5529245023153243`*^9}, {3.5529245516931486`*^9, 3.552924613397678*^9}, {
   3.552928164005761*^9, 3.552928186311037*^9}, {3.5529298153452125`*^9, 
   3.5529298409716783`*^9}, {3.5532932040039682`*^9, 
   3.5532932496185775`*^9}, {3.553293282659467*^9, 3.553293292302019*^9}, {
   3.553293383011207*^9, 3.553293411333827*^9}, {3.5532981370511494`*^9, 
   3.553298408108653*^9}, {3.553298441734576*^9, 3.5532987180763826`*^9}, {
   3.5532987757606816`*^9, 3.5532988306618223`*^9}, {3.5533029743948298`*^9, 
   3.5533030195604134`*^9}, {3.553306886924614*^9, 3.5533068932679768`*^9}, {
   3.553311679995762*^9, 3.553311730478649*^9}, {3.553311805864961*^9, 
   3.5533118710006866`*^9}, {3.5533120465167255`*^9, 3.553312046787741*^9}, {
   3.5533122428069525`*^9, 3.5533122428069525`*^9}, {3.553312319318329*^9, 
   3.553312332850103*^9}, {3.5533123656929817`*^9, 3.5533123938585925`*^9}, 
   3.5533125753399725`*^9, {3.5533162583976316`*^9, 3.5533162749975805`*^9}, 
   3.5533163117066803`*^9, {3.5533163518819785`*^9, 3.5533164029468994`*^9}, {
   3.553357870429034*^9, 3.55335793120451*^9}, {3.553360423158042*^9, 
   3.553360477275137*^9}, {3.5533605162343655`*^9, 3.553360605248457*^9}, {
   3.55336064149253*^9, 3.5533607117395477`*^9}, {3.553360769712864*^9, 
   3.553360790017025*^9}, {3.553360827712181*^9, 3.5533608685515165`*^9}, {
   3.5533609116069794`*^9, 3.553360984719161*^9}, {3.553361035631073*^9, 
   3.5533610708610888`*^9}, {3.5533611506446514`*^9, 3.553361152577762*^9}, {
   3.553361571282711*^9, 3.553361617443351*^9}, {3.553362021762477*^9, 
   3.5533621970635033`*^9}, {3.55336225609488*^9, 3.553362258462015*^9}, {
   3.553362402136233*^9, 3.5533624518330755`*^9}, {3.553362520950029*^9, 
   3.5533625853667135`*^9}, {3.5533635314808273`*^9, 
   3.5533635853299074`*^9}, {3.553363685328627*^9, 3.553363698002352*^9}, {
   3.553363909535451*^9, 3.5533639144157305`*^9}, 3.553364219200163*^9, 
   3.5533644938708735`*^9, {3.553364575184524*^9, 3.553364599654924*^9}, {
   3.55336466183048*^9, 3.5533646655966954`*^9}, {3.553365137488686*^9, 
   3.553365145141124*^9}, {3.5533656688530784`*^9, 3.5533657248882837`*^9}, 
   3.553366821643014*^9, {3.5533671012070045`*^9, 3.5533671132246914`*^9}, {
   3.553367256017859*^9, 3.5533672954111123`*^9}, {3.5533673936717324`*^9, 
   3.553367442797542*^9}, {3.553393155762641*^9, 3.5533933527619085`*^9}, {
   3.5533934025587573`*^9, 3.55339343250747*^9}, {3.553393466195397*^9, 
   3.5533934799451838`*^9}, {3.5533936057913814`*^9, 3.553393621924304*^9}, {
   3.5533936651637774`*^9, 3.553393696448567*^9}, {3.5533938357385335`*^9, 
   3.5533938415228643`*^9}, {3.55339396837212*^9, 3.553393970315231*^9}, {
   3.553394007223342*^9, 3.5533940655636787`*^9}, {3.5533948267242146`*^9, 
   3.553394871172757*^9}, 3.5533949827821407`*^9, {3.553395879210414*^9, 
   3.55339590415384*^9}, {3.5533960192464232`*^9, 3.553396052167306*^9}, {
   3.5534453110074387`*^9, 3.5534453210730143`*^9}, {3.5543978769816384`*^9, 
   3.5543979153068304`*^9}, {3.5543979522839456`*^9, 3.554398051165597*^9}, {
   3.559413579039064*^9, 3.559414031602949*^9}, {3.5594140643608227`*^9, 
   3.559414824354292*^9}, {3.5594148673047485`*^9, 3.5594148697598886`*^9}, 
   3.559434854871258*^9, {3.5594361459001007`*^9, 3.5594361488202677`*^9}, {
   3.5594362074236193`*^9, 3.5594362074236193`*^9}, {3.5594413332417994`*^9, 
   3.559441339224142*^9}, {3.5594800125024767`*^9, 3.5594800206869445`*^9}, 
   3.55949611087125*^9, {3.5594961446901846`*^9, 3.5594963728392344`*^9}, {
   3.5594967272045026`*^9, 3.559496732893828*^9}, {3.559496827283227*^9, 
   3.559496972989561*^9}, {3.559498343667959*^9, 3.5594984776456223`*^9}, {
   3.5594985619584446`*^9, 3.5594986885086827`*^9}, {3.559504207814369*^9, 
   3.5595043347686305`*^9}, {3.5610849081423254`*^9, 3.561084919991003*^9}, {
   3.674997609869558*^9, 3.6749976403446026`*^9}, {3.7095691177887754`*^9, 
   3.7095692232638083`*^9}, {3.709569416628868*^9, 3.709569447700645*^9}, {
   3.709570025775709*^9, 3.7095700822929416`*^9}, {3.7095701212661705`*^9, 
   3.7095701302756863`*^9}, {3.7095701635905914`*^9, 
   3.7095701953544083`*^9}, {3.709570238234861*^9, 3.7095703996370926`*^9}, {
   3.7095705169488025`*^9, 3.709570536260907*^9}, {3.709570570671875*^9, 
   3.7095707000022726`*^9}, {3.7095707414556437`*^9, 3.709570911927394*^9}, {
   3.7095709420471168`*^9, 3.7095709556628957`*^9}, {3.709571091599671*^9, 
   3.7095711396634197`*^9}, {3.7095711775595875`*^9, 3.709571198140764*^9}, {
   3.709573470067711*^9, 3.7095735804760265`*^9}, {3.70957367197526*^9, 
   3.709573673761362*^9}, {3.709575309022894*^9, 3.7095753967389107`*^9}, {
   3.7108085535310116`*^9, 3.710808698160284*^9}, {3.7117169877149534`*^9, 
   3.71171700584299*^9}, {3.711843921222666*^9, 3.711843950188323*^9}, {
   3.7120954091535835`*^9, 3.712095410524662*^9}, {3.737153557144597*^9, 
   3.7371535573632975`*^9}, {3.737153660538913*^9, 3.737153677384055*^9}, {
   3.737289276440363*^9, 3.7372892764413633`*^9}, {3.7379791370084977`*^9, 
   3.7379791561145906`*^9}, {3.7379792255395613`*^9, 3.737979267044935*^9}, {
   3.738580160531347*^9, 3.7385801752121863`*^9}, {3.7422187903728733`*^9, 
   3.742218794232212*^9}, {3.74239600783539*^9, 3.742396031273322*^9}, {
   3.742396076391885*^9, 3.7423960771785297`*^9}, {3.74244271196679*^9, 
   3.742442775430687*^9}, {3.749993007084302*^9, 
   3.749993028008444*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\
6353bcfa0aa5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MachineType", " ", "=", " ", "PC"}], ";"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{"PC", ",", " ", "MAC", ",", " ", 
    RowBox[{"or", " ", "LINUX"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.74999354634788*^9, 3.74999357682591*^9}, 
   3.7499942583048396`*^9, 3.7501018175605097`*^9, {3.7539109403302608`*^9, 
   3.7539109500177164`*^9}, {3.757004868897256*^9, 3.7570048701342793`*^9}, {
   3.7570054137870207`*^9, 3.7570054618480864`*^9}, {3.757005499892633*^9, 
   3.757005523393096*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"2ec4507e-a0d4-4d36-9e8e-c85f1d06551f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"DeleteString", "[", "PC", "]"}], " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"ToString", "[", "$UserBaseDirectory", "]"}], ",", 
     "\"\<\\\\Applications\\\\Adinkra.wl\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteString", "[", "MAC", "]"}], " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"ToString", "[", "$UserBaseDirectory", "]"}], ",", 
     "\"\</Applications/Adinkra.wl\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteString", "[", "LINUX", "]"}], " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"ToString", "[", "$UserBaseDirectory", "]"}], ",", 
     "\"\</Applications/Adinkra.m\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.749993395179047*^9, 3.749993416361521*^9}, {
  3.749993582181048*^9, 3.7499936362425537`*^9}, {3.749993670428146*^9, 
  3.7499936826875067`*^9}, {3.749994146694394*^9, 3.749994147195778*^9}, {
  3.7539109527776265`*^9, 3.753910955892866*^9}, {3.7570049057486267`*^9, 
  3.757004906514207*^9}, {3.757005467420732*^9, 3.757005490501334*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"b7b4a67c-0585-4927-a55b-9a1a22379596"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteFile", "[", 
  RowBox[{"DeleteString", "[", "MachineType", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.74999306982132*^9, 3.749993073210136*^9}, {
  3.749993646899967*^9, 3.749993652009759*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"0087706b-481b-41c2-8d89-f34ab46a8117"],

Cell[BoxData[
 TemplateBox[{
  "DeleteFile","fdnfnd",
   "\"Directory or file \
\\!\\(\\*RowBox[{\\\"\\\\\\\"C:\\\\\\\\\\\\\\\\Users\\\\\\\\\\\\\\\\kstif\\\\\
\\\\\\\\\\\\AppData\\\\\\\\\\\\\\\\Roaming\\\\\\\\\\\\\\\\Mathematica\\\\\\\\\
\\\\\\\\Applications\\\\\\\\\\\\\\\\Adinkra.wl\\\\\\\"\\\"}]\\) not found.\"",
   2,5,1,33925392891321240431,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.769520146122049*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"2c8ea2b8-ce1d-4a76-81bd-3961ce0cf668"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.7695201461532984`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"8ed3d6a6-abed-4845-a320-5b41f6bb66a4"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{958, 988},
WindowMargins->{{0, Automatic}, {0, Automatic}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
CellContext->Notebook,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 8847, 122, 156, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"],
Cell[9429, 146, 626, 12, 28, "Input",ExpressionUUID->"2ec4507e-a0d4-4d36-9e8e-c85f1d06551f"],
Cell[10058, 160, 1278, 29, 67, "Input",ExpressionUUID->"b7b4a67c-0585-4927-a55b-9a1a22379596"],
Cell[CellGroupData[{
Cell[11361, 193, 304, 5, 28, "Input",ExpressionUUID->"0087706b-481b-41c2-8d89-f34ab46a8117"],
Cell[11668, 200, 543, 12, 21, "Message",ExpressionUUID->"2c8ea2b8-ce1d-4a76-81bd-3961ce0cf668"],
Cell[12214, 214, 156, 2, 65, "Output",ExpressionUUID->"8ed3d6a6-abed-4845-a320-5b41f6bb66a4"]
}, Open  ]]
}, Open  ]]
}
]
*)