In[1]:=  si[t_]:=Floor[t/6]+1
In[2]:=  pi1d[t_]:=20si[t]
In[3]:=  pi2d[t_]:=12si[(t-60)]+200
In[4]:=  pitjd[t_]:=Min[pi1d[t],pi2d[t]]
In[5]:=  Plot[pitjd[t],{t,0,180}]

In[9]:=  pi1n[t_]:=16si[t]
In[11]:= pi1m[t_]:=16si[t]
In[13]:= pi2n[t_]:=10si[(t-60)]+160
In[15]:= pi2m[t_]:=9si[(t-60)]+160
In[17]:= pitjn[t_]:=Min[pi1n[t],pi2n[t]]
In[18]:= Plot[pitjn[t],{t,0,180}]

In[20]:= pitjm[t_]:=Min[pi1m[t],pi2m[t]]
In[21]:= Plot[pitjm[t],{t,0,180}]

In[22]:= Plot[{pitjd[t],pitjn[t],pitjm[t]},{t,0,180}]

In[23]:= Plot[{pitjd[t],pitjn[t],pitjm[t]},{t,0,120}]

In[24]:= sw[t_]:=Floor[t/60]+1
In[25]:= pw[t_]:=40.6sw[t]+138.6
In[26]:= Plot[pw[t],{t,0,180}]

In[29]:= Plot[{pitjd[t],pitjn[t],pitjm[t],pw[t]},{t,0,120}]

In[30]:= Plot[{pitjd[t],pitjn[t],pitjm[t],pw[t]},{t,0,180}]

In[31]:= Plot[{pitjd[t],pitjn[t],pitjm[t],pw[t]},{t,0,240}]

In[33]:= Plot[{pitjd[t],pitjn[t],pitjm[t],pw[t]},{t,0,250}]

In[35]:= dif[t_]:=pitjd[t]-pw[t]
In[37]:= Plot[dif[t],{t,0,180}]

In[38]:= Plot[pitjn[t]-pw[t],{t,0,240}]

In[39]:= Plot[pitjm[t]-pw[t],{t,0,240}]
In[40]:= Solve[pitjn[t]-pw[t]==0,t]