导入文件夹中所有.dat文件，并设置每个文件第五列为x，第六列为y。对x进行插值外推，范围为（-20，20），共4001个点，y随x进行插值。对文件第四列取平均值设定为z，生成为新的文件”zmT.dat“存放插值外推后新的x和y。

要实现您的需求，我们可以使用Matlab编写一个脚本来完成以下步骤：

1. 查找当前文件夹中的所有`.dat`文件。
2. 读取每个文件的特定列。
3. 对每个文件的x列进行插值外推。
4. 计算每个文件的第四列的平均值。
5. 将插值后的x和y以及平均值z写入新的文件`zmT.dat`。

下面是一个可能的Matlab脚本实现：

% 获取当前文件夹下所有.dat文件
files = dir('*.dat');
numFiles = length(files);

% 初始化插值向量和用于存储所有插值结果的变量
x_interp = linspace(-20, 20, 4001);
y_interp = zeros(length(x_interp), numFiles);
z = zeros(1, numFiles);

% 对每个文件进行操作
for i = 1:numFiles
    % 读取数据
    data = load(files(i).name);
    
    % 提取指定列
    x = data(:, 5);
    y = data(:, 6);
    z第四列 = data(:, 4);
    
    % 对x进行插值外推
    f = interp1(x, y, x_interp, 'linear');
    y_interp(:, i) = f;
    
    % 计算第四列的平均值
    z(i) = mean(z第四列);
end

% 将插值后的数据和平均值z写入新的文件
header = 'x y z';
data = [x_interp', y_interp', z'];
dlmwrite('zmT.dat', data', 'delimiter', '\t', 'precision', '%.16f', 'roffset', 1, 'header', header);

请注意，这段代码假设您的`.dat`文件可以使用`load`函数读取，这通常意味着文件是Matlab的`.mat`文件格式。如果您的`.dat`文件是纯文本格式，那么您可能需要使用`dlmread`或`textscan`函数来读取数据。

此外，`interp1`函数用于执行线性插值，您也可以根据需要更改插值类型（例如使用'spline', 'pchip'等）。`dlmwrite`函数用于将结果写入新的文本文件，您可能需要根据实际情况调整写入格式和精度。