I
n
[
]
:
=
C
l
e
a
r
[
"
G
l
o
b
a
l
`
*
"
]
;
H
e
a
t
=
∂
t
T
[
y
,
t
]
-
α
∂
{
y
,
2
}
T
[
y
,
t
]
=
=
0
;
T
r
a
d
i
t
i
o
n
a
l
F
o
r
m
[
%
]
;
i
c
=
{
T
[
y
,
0
]
=
=
0
,
T
[
0
,
t
]
=
=
1
,
(
T
[
y
,
t
]
/
.
y
I
n
f
i
n
i
t
y
)
=
=
0
}
;
s
o
l
[
x
_
,
t
_
]
=
F
u
l
l
S
i
m
p
l
i
f
y
[
D
S
o
l
v
e
V
a
l
u
e
[
{
H
e
a
t
,
i
c
}
,
T
[
y
,
t
]
,
{
y
,
t
}
]
]
O
u
t
[
]
=
1
-
2
∞
∑
K
[
1
]
=
1
0
π