#makeIndex.maple # # This creates the .html file pointing to the data from the # RSSS project. Its purpose is for uniformity. # ############################################################## interface(quiet=true): read(`HTML_Procedures.maple`): ######## This is for proper navigation of the pictures. Alter with care! up:="": ############################################################## if type(Files,symbol) then printf("\nTo run: maple -q -c \"read(\\""files.list\\""):\" makeIndex.maple \n"): printf(" This links all the tables in files.list \n"): quit; fi: file := fopen(TopPage,WRITE): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, " Experimental Data \n"): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, "

Experimental Data

\n"): fprintf(file, " \n"): fprintf(file, "
\n"): ##################################################################### fprintf(file, " \n"): fprintf(file, "
\n"): ##################################################################### fprintf(file, "Go To: "): for flagMan in FlagManifolds do fprintf(file, "\n %s  ",FM[flagMan],FM[flagMan]): od: fprintf(file, "\n\n"): ##################################################################### TotalGHZ_Time:=0: ##################################################################### for flagMan in FlagManifolds do fprintf(file, "\n"): directory:=convert(flagMan,string): fprintf(file, "\n",FM[flagMan]): fprintf(file, "
\n"): fprintf(file, "%s:\n",FM[flagMan]): fprintf(file, "       Go To: "): ##################################################################### for fm in FlagManifolds do if fm<>flagMan then fprintf(file, "\n %s  ",FM[fm],FM[fm]): fi: od: fprintf(file, "\n\n"): ##################################################################### fprintf(file, "
\n \n"): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, " \n"): fprintf(file, " \n \n"): for NAME in Data[flagMan] do read(sprintf("%s/%s.data",directory,NAME)): fixMachine(): ############################### Time :=(PreTime+GroebnerTime+RealTime): TotalGHZ_Time:=TotalGHZ_Time + Time*SPEED[Machine]/1000: ############################### fprintf(file, " \n"): fprintf(file, " \n",ProblemString(Small)): fprintf(file, " \n",NumberOfSolutions): fprintf(file, " \n",nops(Necklaces)): iterations:= sum(Table[1][ll],ll=1..nops(Table[1])): fprintf(file, " \n",iterations): if Time <60 then fprintf(file, " \n",Time): fi: if Time >=60 and Time < 3600 then fprintf(file, " \n",Time/60): fi: if Time >=3600 and Time < 3600*24 then fprintf(file, " \n",Time/3600): fi: if Time >=3600*24 then fprintf(file, " \n",Time/3600/24): fi: fprintf(file, " \n \n",Machine): od: fprintf(file, "
 Problem#NecklacesIterationsTimeComputer
  ",directory,NAME): fprintf(file, "Data   %s   %d     %d     %d     %3.2f sec.    %3.2f min.    %3.2f hr.    %3.2f da.    %s  
\n
\n"): od: ##################################################################### fprintf(file, "
\n"): fprintf(file, "%s\n",TimeString(TotalGHZ_Time,"GHz")): ##################################################################### fprintf(file, "
\n"): fprintf(file, " This table automatically generated using "): fprintf(file, "This Maple Script\n"): ##################################################################### fprintf(file, "
\n"): fprintf(file, " \n"): fprintf(file, "Created: %s",ssystem("date",1)[2]): fprintf(file, " \n"): fprintf(file, " \n"): fclose(file): quit;