#include "Processor.h"

#define time q[9]

#define d_time dq[9]

Processor::Processor()

{

rk_45<IO_Type>* solver = new adevs::rk_45<IO_Type>(sub, simulation_solverTolerance, simulation_step);

linear_event_locator<IO_Type>* event_finder = new adevs::linear_event_locator<IO_Type>(sub, simulation_locatorTolerance);

Hybrid<IO_Type>* shell = new Hybrid<IO_Type>(sub, solver, event_finder);

add(shell);

couple(this, this->in1->Id, shell, sub->in1->Id);

couple(shell, sub->out1->Id, this, this->out1->Id);

}

_Processor::_Processor():dae_se1_system<IO_Type>(10,14,0) {

}

void _Processor::init(double* q, double* a) {

for (int i = 0; i < numVars(); ++i) {

q[i] = 0;

}

for (int i = 0; i < numAlgVars(); ++i) {

a[i] = 0;

}

_t_out=DBL_MAX;

state=_initial;

capacity = 0;

isRequestTool = false;

accumulatedTime = 0;

t_next = 0;

num_raw = 0;

num_product = 0;

remainCapacityRaw = 0;

remainCapacityProduct = 0;

isOnDuty = false;

}

void _Processor::der_func(const double* q, const double* a,double* dq) {

d_time = 1;

dq[_initial] = 1;

dq[_Idle] = 1;

dq[_PrepareTools] = 1;

dq[_WarmUp] = 1;

dq[_Loading] = 1;

dq[_Processing] = 1;

dq[_Uploading] = 1;

dq[_Failure] = 1;

dq[_Repair] = 1;

}

void _Processor::alg_func(const double* q, const double* a,double* af) {

}

double _Processor::time_event_func(const double * q, const double* a) {

return _t_out;

}

void _Processor::state_event_func(const double* q, const double* a, double* z) {

if(state == _initial && q[_initial]>dwellTime){

if (true)

z[0] = 1;

}

else

z[0] = -1;

if(state == _Idle && q[_Idle]>dwellTime && isOnDuty == false){

if (true)

z[1] = 1;

}

else

z[1] = -1;

if(state == _Idle && q[_Idle]>dwellTime && isOnDuty == true && cf->processorIdleToPrepareTools(cf->processorTodoList(todoList, productionKanbanList, processInfoList, materialListRaw, materialListProduct, needList)) == true){

if (true)

z[2] = 1;

}

else

z[2] = -1;

if(state == _PrepareTools && q[_PrepareTools]>dwellTime && isRequestTool == true){

if (true)

z[3] = 1;

}

else

z[3] = -1;

if(state == _PrepareTools && q[_PrepareTools]>dwellTime && isRequestTool == false){

if (true)

z[4] = 1;

}

else

z[4] = -1;

if(state == _WarmUp && q[_WarmUp]>dwellTime && accumulatedTime>cf->processTime(MBTF)){

if (true)

z[5] = 1;

}

else

z[5] = -1;

if(state == _Processing && q[_Processing]>dwellTime && accumulatedTime>cf->processTime(MBTF)){

if (true)

z[6] = 1;

}

else

z[6] = -1;

if(state == _Failure && q[_Failure]>dwellTime && isRequestTool == true){

if (true)

z[7] = 1;

}

else

z[7] = -1;

if(state == _Failure && q[_Failure]>dwellTime && isRequestTool == false){

if (true)

z[8] = 1;

}

else

z[8] = -1;

if(state == _WarmUp && q[_WarmUp]>dwellTime && time>t_next){

if (true)

z[9] = 1;

}

else

z[9] = -1;

if(state == _Loading && q[_Loading]>dwellTime && time>t_next){

if (true)

z[10] = 1;

}

else

z[10] = -1;

if(state == _Processing && q[_Processing]>dwellTime && time>t_next){

if (true)

z[11] = 1;

}

else

z[11] = -1;

if(state == _Uploading && q[_Uploading]>dwellTime && time>t_next){

if (true)

z[12] = 1;

}

else

z[12] = -1;

if(state == _Repair && q[_Repair]>dwellTime && time>t_next){

if (true)

z[13] = 1;

}

else

z[13] = -1;

}

void _Processor::internal_event(double* q, double* a, const bool* state_event) {

if (state_event[0]){

xfe(_Idle,q);

map<string, map<string, string>> ::iterator it;

int num = 0;

for (it = processInfoList.begin(); it != processInfoList.end(); it++) {

for (int i = 0; i < atoi(it->second["materialRawPreparation"].c_str()); i++) {

map<string, string> newMat;

newMat["type"] = "0";

newMat["materialNum"] = it->first;

materialListRaw[processorId + "_" + to_string(num) + "r_" + to_string(i)] = newMat;

remainCapacityRaw--;

componentCapacity[processorId + "_raw"]--;

num_raw++;

if (!pullMode)

{

map<string, string> newToDo;

newToDo["ID"] = processorId + "_" + to_string(num) + "r_" + to_string(i);

newToDo["priority"] = "1";

todoList.push_back(newToDo);

}

}

for (int i = 0; i < atoi(it->second["materialProductPreparation"].c_str()); i++) {

map<string, string> newMat;

newMat["type"] = "0";

newMat["materialNum"] = it->second["afterMatNum"];

materialListProduct[processorId + "_" + to_string(num) + "p_" + to_string(i)] = newMat;

remainCapacityProduct--;

componentCapacity[processorId + "_product"]--;

num_product++;

if (!pullMode)

{

workIteCompletion wc;

wc.componentID = processorId;

wc.materialId = processorId + "_" + to_string(num) + "p_" + to_string(i);

wc.materialNum = it->second["afterMatNum"];

wc.priority = "1";

out1->send(wc);

}

}

num++;

}

}

if (state_event[1]){

xfe(_Idle,q);

isOnDuty=cf->isWorkingTime(shiftSchedule);

}

if (state_event[2]){

xfe(_PrepareTools,q);

if (pullMode)

todoList = cf->processorTodoList(todoList, productionKanbanList, processInfoList, materialListRaw, materialListProduct, needList);

processMatId = cf->highestPriorityItemOfProcessedStrategy(todoList,processInfoList,materialListRaw,priority,processorId);

string str = cf->getInfoListKey(processInfoList, materialListRaw[processMatId[0]]["materialNum"]);

string auxiliaryTool = processInfoList[str]["auxiliaryTools"];

if (auxiliaryTool != "null") {

isRequestTool = true;

for (int i = 0; i < toolList.size(); i++){

if (toolList[i] == auxiliaryTool){

isRequestTool = false;

break;

}

}

}

else isRequestTool = false;

}

if (state_event[3]){

xfe(_PrepareTools,q);

string str = cf->getInfoListKey(processInfoList, materialListRaw[processMatId[0]]["materialNum"]);

string auxiliaryTool = processInfoList[str]["auxiliaryTools"];

bool ans = cf->requestTools(auxiliaryTool,1);

if (ans == true){

isRequestTool = false;

toolList.push_back(auxiliaryTool);

}

}

if (state_event[4]){

xfe(_WarmUp,q);

string str = cf->getInfoListKey(processInfoList, materialListRaw[processMatId[0]]["materialNum"]);

double warmTM = cf->processTime(processInfoList[str]["warmUpTime"]);

t_next = time + warmTM;

accumulatedTime += warmTM;

accumulatedTimeCount[processorId] += warmTM;

}

if (state_event[5]){

xfe(_Failure,q);

isRequestTool = true;

}

if (state_event[6]){

xfe(_Failure,q);

isRequestTool = true;

}

if (state_event[7]){

xfe(_Failure,q);

bool ans = cf->requestTools("repairMan",1);

if (ans == true){

isRequestTool = false;

toolList.push_back("repairMan");

}

}

if (state_event[8]){

xfe(_Repair,q);

double MTTRTime = cf->processTime(MTTR);

t_next = time + MTTRTime;

}

if (state_event[9]){

xfe(_Loading,q);

string str = cf->getInfoListKey(processInfoList, materialListRaw[processMatId[0]]["materialNum"]);

double loadTM = cf->processTime(processInfoList[str]["loadingTime"]);

t_next = time + loadTM;

}

if (state_event[10]){

xfe(_Processing,q);

string str = cf->getInfoListKey(processInfoList, materialListRaw[processMatId[0]]["materialNum"]);

double processTM = cf->processTime(processInfoList[str]["processTime"]);

t_next = time + processTM;

accumulatedTime += processTM;

accumulatedTimeCount[processorId] += processTM;

}

if (state_event[11]){

xfe(_Uploading,q);

string str = cf->getInfoListKey(processInfoList, materialListRaw[processMatId[0]]["materialNum"]);

double uploadTM = cf->processTime(processInfoList[str]["uploadingTime"]);

t_next = time + uploadTM;

for (int i = 0; i < processMatId.size(); i++)

{

string strs = cf->getInfoListKey(processInfoList, materialListRaw[processMatId[i]]["materialNum"]);

string materialNum_temp = cf->getProcessorAfterMatNum(materialListRaw[processMatId[i]]["materialNum"], strs, processorId);

if (materialNum_temp == "") {

cf->getProcessorAfterMatNum(materialListRaw[processMatId[i]]["materialNum"], strs, processorId);

}

map<string, string> newMat;

newMat = materialListRaw[processMatId[i]];

materialListProduct[processMatId[i]] = newMat;

materialListProduct[processMatId[i]]["materialNum"] = materialNum_temp;

materialListRaw.erase(processMatId[i]);

num_raw--;

remainCapacityRaw++;

num_product++;

remainCapacityProduct--;

componentCapacity[processorId + "_raw"]++;

componentCapacity[processorId + "_product"]--;

}

if (pullMode)

{

for (map<string, map<string, string>> ::iterator it = processInfoList.begin(); it != processInfoList.end(); it++)

{

int numRaw = cf->materialCount(materialListRaw, it->first);

int numThreshold = atoi(it->second["materialRawThreshold"].c_str());

int num = 0;

for (int i = 0; i < materialPreparelist.size(); i++)

{

if (materialPreparelist[i] == it->first)

num++;

}

if (numRaw + num < numThreshold)

{

int signalNum = numThreshold - numRaw - num;

for (int k = 0; k < signalNum; k++)

{

pullSignal ps;

ps.componentId = processorId;

ps.materialNO = it->first;

out1->send(ps);

materialPreparelist.push_back(it->first);

}

}

}

}

}

if (state_event[12]){

xfe(_Idle,q);

for (int j = 0; j < processMatId.size(); j++)

{

if (pullMode)

{

int flag = 0;

for (int i = 0; i < needList.size(); i++)

{

if (needList[i].isHandle == 1 && needList[i].materialNO == materialListProduct[processMatId[j]]["materialNum"])

{

needList[i].isHandle = 2;

needList[i].materialId = processMatId[j];

workIteCompletion wc;

wc.componentID = processorId;

wc.materialId = processMatId[j];

wc.materialNum = materialListProduct[processMatId[j]]["materialNum"];

for (int k = 0; k < todoList.size(); k++)

{

if (todoList[k]["ID"] == processMatId[j])

{

wc.priority = todoList[k]["priority"];

break;

}

}

out1->send(wc);

needList[i].isHandle = 3;

flag = 1;

break;

}

}

if (flag == 1)

{

for (int i = 0; i < productionKanbanList.size(); i++)

{

if (productionKanbanList[i]["productionPurpose"] == "1" && productionKanbanList[i]["afterMatNum"] == materialListProduct[processMatId[j]]["materialNum"])

{

productionKanbanList.erase(productionKanbanList.begin() + i);

break;

}

}

}

else

{

for (int i = 0; i < productionKanbanList.size(); i++)

{

if (productionKanbanList[i]["productionPurpose"] == "0" && productionKanbanList[i]["afterMatNum"] == materialListProduct[processMatId[j]]["materialNum"])

{

productionKanbanList.erase(productionKanbanList.begin() + i);

break;

}

}

}

}

else

{

workIteCompletion wc;

wc.componentID = processorId;

wc.materialId = processMatId[j];

wc.materialNum = materialListProduct[processMatId[j]]["materialNum"];

for (int k = 0; k < todoList.size(); k++)

{

if (todoList[k]["ID"] == processMatId[j])

{

wc.priority = todoList[k]["priority"];

break;

}

}

out1->send(wc);

}

}

for (int i = 0; i < todoList.size(); i++)

{

for (int j = 0; j < processMatId.size(); j++)

{

if (todoList[i]["ID"] == processMatId[j]){

todoList.erase(todoList.begin() + i);

i--;

break;

}

}

}

for (int i = 0; i < toolList.size(); i++)

{

if (todoList.size() > 0) {

string str = cf->getInfoListKey(processInfoList, materialListRaw[todoList[0]["ID"]]["materialNum"]);

if (toolList[i] != processInfoList[str]["auxiliaryTools"]){

cf->returnTools(toolList[i],1);

toolList.erase(toolList.begin() + i);

i--;

}

}

}

}

if (state_event[13]){

xfe(_Idle,q);

for (int i = 0; i < toolList.size(); i++)

{

if (todoList.size() > 0) {

string str = cf->getInfoListKey(processInfoList, materialListRaw[todoList[0]["ID"]]["materialNum"]);

if (toolList[i] != processInfoList[str]["auxiliaryTools"]){

cf->returnTools(toolList[i],1);

toolList.erase(toolList.begin() + i);

i--;

}

}

}

accumulatedTime =0;

}

}

void _Processor::external_event(double* q, double* a, double e, const Bag<IO_Type>& xb) {

Bag < IO_Type >:: const_iterator i = xb.begin();

for (; i != xb.end(); i++) {

if(state == _Idle ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_Idle,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _PrepareTools ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_PrepareTools,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _WarmUp ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_WarmUp,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _Loading ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_Loading,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _Processing ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_Processing,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _Uploading ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_Uploading,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _Failure ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_Failure,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _Repair ){

if(!(*i).value->_list_workIteDistribution.empty()){

workIteDistribution params = (*i).value->_list_workIteDistribution.front();

if(true){

xfe(_Repair,q);

if (params.componentID == processorId){

map<string,string> newToDo;

newToDo["ID"] = params.materialId;

newToDo["priority"] = params.priority;

todoList.push_back(newToDo);

}

}

}

}

if(state == _Idle ){

if(!(*i).value->_list_arrivalMat.empty()){

arrivalMat params = (*i).value->_list_arrivalMat.front();

if(true){

xfe(_Idle,q);

if (params.arrivalComID == processorId){

map<string,string> newMat;

newMat["type"] = "0";

newMat["materialNum"] = params.materialNum;

materialListRaw[params.ID] = newMat;

remainCapacityRaw--;

num_raw++;

if (pullMode)

{

for (int i = 0; i < materialPreparelist.size(); i++)

{

if (materialPreparelist[i] == params.materialNum)

{

materialPreparelist.erase(materialPreparelist.begin() + i);

break;

}

}

}

}

}

}

}

if(state == _PrepareTools ){

if(!(*i).value->_list_arrivalMat.empty()){

arrivalMat params = (*i).value->_list_arrivalMat.front();

if(true){

xfe(_PrepareTools,q);

if (params.arrivalComID == processorId){

map<string,string> newMat;

newMat["type"] = "0";

newMat["materialNum"] = params.materialNum;

materialListRaw[params.ID] = newMat;

remainCapacityRaw--;

num_raw++;

if (pullMode)

{

for (int i = 0; i < materialPreparelist.size(); i++)

{

if (materialPreparelist[i] == params.materialNum)

{

materialPreparelist.erase(materialPreparelist.begin() + i);

break;

}

}

}

}

}

}

}

if(state == _WarmUp ){

if(!(*i).value->_list_arrivalMat.empty()){

arrivalMat params = (*i).value->_list_arrivalMat.front();

if(true){

xfe(_WarmUp,q);

if (params.arrivalComID == processorId){

map<string,string> newMat;

newMat["type"] = "0";

newMat["materialNum"] = params.materialNum;

materialListRaw[params.ID] = newMat;

remainCapacityRaw--;

num_raw++;

if (pullMode)

{

for (int i = 0; i < materialPreparelist.size(); i++)

{

if (materialPreparelist[i] == params.materialNum)

{

materialPreparelist.erase(materialPreparelist.begin() + i);

break;

}

}

}

}

}

}

}

if(state == _Loading ){

if(!(*i).value->_list_arrivalMat.empty()){

arrivalMat params = (*i).value->_list_arrivalMat.front();

if(true){

xfe(_Loading,q);

if (params.arrivalComID == processorId){

map<string,string> newMat;

newMat["type"] = "0";

newMat["materialNum"] = params.materialNum;

materialListRaw[params.ID] = newMat;

remainCapacityRaw--;

num_raw++;

if (pullMode)

{

for (int i = 0; i < materialPreparelist.size(); i++)

{

if (materialPreparelist[i] == params.materialNum)

{

materialPreparelist.erase(materialPreparelist.begin() + i);

break;

}

}

}

}

}

}

}

if(state == _Processing ){

if(!(*i).value->_list_arrivalMat.empty()){

arrivalMat params = (*i).value->_list_arrivalMat.front();

if(true){

xfe(_Processing,q);

if (params.arrivalComID == processorId){

map<string,string> newMat;

newMat["type"] = "0";

newMat["materialNum"] = params.materialNum;

materialListRaw[params.ID] = newMat;

remainCapacityRaw--;

num_raw++;

if (pullMode)

{

for (int i = 0; i < materialPreparelist.size(); i++)

{

if (materialPreparelist[i] == params.materialNum)

{

materialPreparelist.erase(materialPreparelist.begin() + i);

break;

}

}

}

}

}

}

}

if(state == _Uploading ){

if(!(*i).value->_list_arrivalMat.empty()){

arrivalMat params = (*i).value->_list_arrivalMat.front();

if(true){

xfe(_Uploading,q);

if (params.arrivalComID == processorId){

map<string,string> newMat;

newMat["type"] = "0";