높이에 따른 기압 분포 그래프 만들기
mathematica or wolfram code M = 0.02896; g = 9.807; R = 8.3143; T0 = 288.15; \[CapitalGamma] = 6.5; p0 = 1013.25; p[h_] := p0*Exp[(-g*h*1000*M)/(T0*R)] h[p_] := 1/1000 (-T0*R)/(g*M) Log[p/p0] Plot[h[x], {x, 0, p0}, PlotRange -> {{0, 1.05 p0}, {0, 50}}, AspectRatio -> 1, Axes -> True, Frame -> True] Show[ { Graphics[ {Arrow[{{0, 0}, {1.05 p0, 0}}], Arrow[{{0, 0}, {0, 40*1.03}}], Table[{Thin, Line..
기본 격자
Graphics[{Table[Line[{{0, k}, {50, k}}], {k, 0, 50}], Table[Line[{{k, 0}, {k, 50}}], {k, 0, 50}]} ]