ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1087|回复: 1

[求助] 有没有批量调整PDF亮度的好方法?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-4-22 21:10 | 显示全部楼层 |阅读模式
现在有大量的PDF文件,由于扫描的亮度不够需要批处理调整亮度。不知道这个问题该发到哪个版块提问?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-4-22 21:33 | 显示全部楼层

close all;
filepath='D:\19_无人机照片\';
file =dir(strcat(filepath,'*.jpg'));
[k ~]=size(file);
for j=1:k
    imgname=file(j).name;
    RGB1 = imread(strcat(filepath,imgname));
    R=RGB1(:,:,1);
    G=RGB1(:,:,2);
    B=RGB1(:,:,3);
    maxR=im2double(max(max(R)));
    maxG=im2double(max(max(G)));
    maxB=im2double(max(max(B)));
    k=(maxR+maxG+maxB)/3;
    if k<0.9
        RGB2 = imadjust(RGB1,[0 0 0; k k k],[0 0 0;1 1 1],0.7);
    else
        RGB2=RGB1;
    end
% %全屏显示图像
%     hfig1 = figure(1);
%     hfig2 = figure(2);

%     figure(1); imshow(RGB1);title('原图');
%     set(hfig1, 'unit', 'normalized', 'position', [0,0,1,1]);
      out_path1 = strcat('./result',num2str(0.7),'/');
  
        if ~isdir(out_path1)
             mkdir(out_path1);
        end
  
    imwrite(RGB2,strcat(out_path1,imgname));
end
beep;
————————————————
版权声明:本文为CSDN博主「whuer_dyl」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/yingtaotaotao/java/article/details/88675929
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 11:52 , Processed in 0.040096 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表