function main($argc, $argv)
{
//----- Model specific variables -----
global $nodes, $streams;
$arrivRate = 0.75;
$service_time = 1.0;
//----- Initialize the model & Give it a name ------
PDQ_Init("OpenCenter");
//----- Change unit labels -----
PDQ_SetWUnit("Customers");
PDQ_SetTUnit("Seconds");
//----- Define the queueing center -----
$nodes = PDQ_CreateNode("server", CEN, FCFS);
//----- Define the workload and circuit type -----
$streams = PDQ_CreateOpen("work", $arrivRate);
//----- Define service demand due to workload on the queueing center ------
PDQ_SetDemand("server", "work", $service_time);
//----- Solve the model -----
// Must use the CANONical method for an open circuit
PDQ_Solve(CANON);
//----- Generate a report -----
PDQ_Report();
}
function PDQ_SetTimeUnit($unitName)
{
PDQ_SetTUnit($unitName);
}
function main()
{
global $nodes, $streams;
$cname = "";
/* cache id */
$wname = "";
/* workload */
$i = 0;
/* per CPU intruction stream intensity */
$Prhit = RD * HT;
$Pwhit = WR * HT * (1 - WUMD) + WR * (1 - HT) * (1 - MD);
$Prdop = RD * (1 - HT);
$Pwbop = WR * (1 - HT) * MD;
$Pwthr = WR;
$Pinvl = WR * HT * WUMD;
$Nrwht = 0.8075 * MAXCPU;
$Nrdop = 0.08500000000000001 * MAXCPU;
$Nwthr = 0.15 * MAXCPU;
$Nwbop = 0.0003 * MAXCPU * 100;
$Ninvl = 0.015 * MAXCPU;
$Srdop = 20.0;
$Swthr = 25.0;
$Swbop = 20.0;
$Wrwht = 0.0;
$Wrdop = 0.0;
$Wwthr = 0.0;
$Wwbop = 0.0;
$Winvl = 0.0;
$Zrwht = ZX;
$Zrdop = ZX;
$Zwbop = ZX;
$Zinvl = ZX;
$Zwthr = ZX;
$Xcpu = 0.0;
$Pcpu = 0.0;
$Ubrd = 0.0;
$Ubwr = 0.0;
$Ubin = 0.0;
$Ucht = 0.0;
$Ucrd = 0.0;
$Ucwr = 0.0;
$Ucin = 0.0;
$model = "ABC Model";
PDQ_Init($model);
PDQ_SetWUnit("Reqs");
PDQ_SetTUnit("Cycs");
/* create single bus queueing center */
$nodes = PDQ_CreateNode(BUS, CEN, FCFS);
/* create per CPU cache queueing centers */
for ($i = 0; $i < MAXCPU; $i++) {
namex($i, L2C, $cname);
$nodes = PDQ_CreateNode($cname, CEN, FCFS);
}
/* create CPU nodes, workloads, and demands */
for ($i = 0; $i < intwt($Nrwht, $Wrwht); $i++) {
namex($i, RWHT, $wname);
$streams = PDQ_CreateClosed($wname, TERM, $Nrwht, $Zrwht);
namex($i, L2C, $cname);
PDQ_SetDemand($cname, $wname, 1.0);
PDQ_SetDemand(BUS, $wname, 0.0);
/* no bus activity */
}
for ($i = 0; $i < intwt($Nrdop, $Wrdop); $i++) {
namex($i, RDOP, $wname);
$streams = PDQ_CreateClosed($wname, TERM, $Nrdop, $Zrdop);
namex($i, L2C, $cname);
PDQ_SetDemand($cname, $wname, GEN);
/* generate bus request */
PDQ_SetDemand(BUS, $wname, $Srdop);
/* req + async data return */
}
if (WBACK) {
for ($i = 0; $i < intwt($Nwbop, $Wwbop); $i++) {
namex($i, WROP, $wname);
$streams = PDQ_CreateClosed($wname, TERM, $Nwbop, $Zwbop);
namex($i, L2C, $cname);
PDQ_SetDemand($cname, $wname, GEN);
PDQ_SetDemand(BUS, $wname, $Swbop);
/* asych write to memory ? */
}
} else {
/* write-thru */
for ($i = 0; $i < intwt($Nwthr, $Wwthr); $i++) {
namex($i, WROP, $wname);
$streams = PDQ_CreateClosed($wname, TERM, $Nwthr, $Zwthr);
namex($i, L2C, $cname);
PDQ_SetDemand($cname, $wname, GEN);
PDQ_SetDemand(BUS, $wname, $Swthr);
}
}
if (WBACK) {
for ($i = 0; $i < intwt($Ninvl, $Winvl); $i++) {
namex($i, INVL, $wname);
$streams = PDQ_CreateClosed($wname, TERM, $Ninvl, $Zinvl);
namex($i, L2C, $cname);
PDQ_SetDemand($cname, $wname, GEN);
/* GEN + intervene */
PDQ_SetDemand(BUS, $wname, 1.0);
}
}
PDQ_Solve(APPROX);
/* bus utilizations */
for ($i = 0; $i < intwt($Nrdop, $Wrdop); $i++) {
namex($i, RDOP, $wname);
$Ubrd += PDQ_GetUtilization(BUS, $wname, TERM);
}
$Ubrd *= $Wrdop;
if (WBACK) {
for ($i = 0; $i < intwt($Nwbop, $Wwbop); $i++) {
namex($i, WROP, $wname);
$Ubwr += PDQ_GetUtilization(BUS, $wname, TERM);
}
$Ubwr *= $Wwbop;
for ($i = 0; $i < intwt($Ninvl, $Winvl); $i++) {
namex($i, INVL, $wname);
$Ubin += PDQ_GetUtilization(BUS, $wname, TERM);
}
$Ubin *= $Winvl;
} else {
/* write-thru */
for ($i = 0; $i < intwt($Nwthr, $Wwthr); $i++) {
namex($i, WROP, $wname);
$Ubwr += PDQ_GetUtilization(BUS, $wname, TERM);
}
$Ubwr *= $Wwthr;
}
/* cache measures at CPU[0] only */
$i = 0;
namex($i, L2C, $cname);
namex($i, RWHT, $wname);
$Xcpu = PDQ_GetThruput(TERM, $wname) * $Wrwht;
$Pcpu += $Xcpu * $Zrwht;
$Ucht = PDQ_GetUtilization($cname, $wname, TERM) * $Wrwht;
namex($i, RDOP, $wname);
$Xcpu = PDQ_GetThruput(TERM, $wname) * $Wrdop;
$Pcpu += $Xcpu * $Zrdop;
$Ucrd = PDQ_GetUtilization($cname, $wname, TERM) * $Wrdop;
$Pcpu *= 1.88;
if (WBACK) {
namex($i, WROP, $wname);
$Ucwr = PDQ_GetUtilization($cname, $wname, TERM) * $Wwbop;
namex($i, INVL, $wname);
$Ucin = PDQ_GetUtilization($cname, $wname, TERM) * $Winvl;
} else {
/* write-thru */
namex($i, WROP, $wname);
$Ucwr = PDQ_GetUtilization($cname, $wname, TERM) * $Wwthr;
}
printf("\n**** %s Results ****\n", $model);
printf("PDQ nodes: %d PDQ streams: %d\n", $nodes, $streams);
printf("Memory Mode: %s\n", WBACK ? "WriteBack" : "WriteThru");
printf("Ncpu: %2d\n", MAXCPU);
printf("Nrwht: %5.2f (N:%2d W:%5.2f)\n", $Nrwht, intwt($Nrwht, $Wrwht), $Wrwht);
printf("Nrdop: %5.2f (N:%2d W:%5.2f)\n", $Nrdop, intwt($Nrdop, $Wrdop), $Wrdop);
if (WBACK) {
printf("Nwbop: %5.2f (N:%2d W:%5.2f)\n", $Nwbop, intwt($Nwbop, $Wwbop), $Wwbop);
printf("Ninvl: %5.2f (N:%2d W:%5.2f)\n", $Ninvl, intwt($Ninvl, $Winvl), $Winvl);
} else {
printf("Nwthr: %5.2f (N:%2d W:%5.2f)\n", $Nwthr, intwt($Nwthr, $Wwthr), $Wwthr);
}
printf("\n");
printf("Hit Ratio: %5.2f %%\n", HT * 100.0);
printf("Read Miss: %5.2f %%\n", RD * (1 - HT) * 100.0);
printf("WriteMiss: %5.2f %%\n", WR * (1 - HT) * 100.0);
printf("Ucpu: %5.2f %%\n", $Pcpu * 100.0 / MAXCPU);
printf("Pcpu: %5.2f\n", $Pcpu);
printf("\n");
printf("Ubus[reads]: %5.2f %%\n", $Ubrd * 100.0);
printf("Ubus[write]: %5.2f %%\n", $Ubwr * 100.0);
printf("Ubus[inval]: %5.2f %%\n", $Ubin * 100.0);
printf("Ubus[total]: %5.2f %%\n", ($Ubrd + $Ubwr + $Ubin) * 100.0);
printf("\n");
printf("Uca%d[hits]: %5.2f %%\n", $i, $Ucht * 100.0);
printf("Uca%d[reads]: %5.2f %%\n", $i, $Ucrd * 100.0);
printf("Uca%d[write]: %5.2f %%\n", $i, $Ucwr * 100.0);
printf("Uca%d[inval]: %5.2f %%\n", $i, $Ucin * 100.0);
printf("Uca%d[total]: %5.2f %%\n", $i, ($Ucht + $Ucrd + $Ucwr + $Ucin) * 100.0);
}
