In[]:=
Lg=500;Bp=30;vp=12;H=250;lxls=15;Qb=3000;
In[]:=
a=
LgBpH
4
10
;
In[]:=
b=
Lg
3
10
vp
;
In[]:=
c=
lxls
3
10
vp
;
In[]:=
nb=
4
10
*Qb
Lg*Bp*H
;
In[]:=
Q[t_]:=
a
b
(nb*b+(m-1)*c-t)
(m-1)*(b+c)<=t<=m*(b+c)-c
m=Range[1,nb]
(nb-m)*a
m(b+c)-c<=t<=m*(b+c)
m=Range[1,nb-1]
In[]:=
Plot[Q[t],{t,0,100}]
Out[]=
20
40
60
80
100
-1.0
-0.5
0.5
1.0
In[]:=
Q[t]
Out[]=
9000
1
3
-t,9000
803
2400
-t,9000
403
1200
-t,9000
809
2400
-t,9000
203
600
-t,9000
163
480
-t,9000
409
1200
-t,9000
821
2400
-t
0,
103
2400
,
103
1200
,
103
800
,
103
600
,
103
480
,
103
400
≤t≤
1
24
,
203
2400
,
51
400
,
409
2400
,
16
75
,
41
160
,
359
1200
,{1,2,3,4,5,6,7,8}
{2625,2250,1875,1500,1125,750,375}

1
24
,
203
2400
,
51
400
,
409
2400
,
16
75
,
41
160
,
359
1200
,
821
2400
≤t≤
103
2400
,
103
1200
,
103
800
,
103
600
,
103
480
,
103
400
,
721
2400
,
103
300
,{1,2,3,4,5,6,7}
0
True