建立单污染源空气污染扩散模型，描述其对周围空气污染的动态影响规律。现假设华北平原境内有一个工厂废气排放烟囱高30m,主要排放物为氮氧化物。早上9点到下午5点间的排放浓度为300mg/m³，排放速度为900m³/h；通过你建立的扩散模型求解该工厂方圆15公里分别在早8点、中午12点、晚上9点空气污染浓度分布和空气质量等级。给出matlab代码

以下是单污染源空气污染扩散模型的 MATLAB 代码示例：

clear;clc;

% 定义常数和参数
H = 30; % 烟囱高度
Q = 900; % 排放速率
C0 = 300; % 排放浓度
D = 15; % 扩散半径
N = 100; % 离散点数
dt = 1; % 时间间隔
dx = D/N; % 空间间隔
x = linspace(-D,D,N); % 离散空间范围

% 定义初始浓度场
C = zeros(N,1);
C(N/2) = C0;

% 计算空气污染扩散模型
for i = 1:8 % 时间步数
    % 计算排放浓度
    if i >= 2 && i <= 6
        C(N/2) = C0;
    else
        C(N/2) = 0;
    end
    
    % 计算扩散
    for j = 2:N-1 % 空间步数
        C(j) = C(j) + Q*dt/(dx*H*sqrt(2*pi)) * ...
            (exp(-(x(j)-x(1))^2/(2*dx^2)) - exp(-(x(j)-x(N))^2/(2*dx^2))) + ...
            (C(j+1) - 2*C(j) + C(j-1))*dt/dx^2;
    end
    
    % 绘制浓度分布图
    figure;
    plot(x,C);
    xlabel('Distance (km)');
    ylabel('Concentration (mg/m^3)');
    title(['Air Pollution Concentration Distribution at ', num2str(8+i), ':00']);
    
    % 计算空气质量等级
    if max(C) <= 50
        disp(['Air Quality Level at ', num2str(8+i), ':00 is Excellent']);
    elseif max(C) <= 100
        disp(['Air Quality Level at ', num2str(8+i), ':00 is Good']);
    elseif max(C) <= 150
        disp(['Air Quality Level at ', num2str(8+i), ':00 is Lightly Polluted']);
    elseif max(C) <= 200
        disp(['Air Quality Level at ', num2str(8+i), ':00 is Moderately Polluted']);
    elseif max(C) <= 300
        disp(['Air Quality Level at ', num2str(8+i), ':00 is Heavily Polluted']);
    else
        disp(['Air Quality Level at ', num2str(8+i), ':00 is Severely Polluted']);
    end
end

在这个示例中，我们使用单污染源空气污染扩散模型来描述工厂废气排放对周围空气污染的动态影响规律。我们在早上8点到晚上4点之间模拟了8个时间步长，每次计算排放浓度和空气污染扩散，并绘制浓度分布图。在每个时间步长结束后，我们根据最大浓度值来判断空气质量等级，并输出相应的提示信息。您可以根据需要调整常数和参数，以适应您的应用场景。