<%set rsh=server.CreateObject("adodb.recordset")%>

set rsh=server.CreateObject("adodb.recordset")
创建记录集,并将记录都放在rsh中

sql="select * from hotelb order by id desc"
创建一个查询条件,在表hotelb中查找全部数据,并以id的倒序排列

rsh.open sql,conn,1,1
是用conn的数据库来执行sql语句,并且指明了打开记录集rsh的方法是1,1。意思就是以只读的方式打开,如果是1,3就是修改的方式打开,当然还有2,3等

 

转载于:https://www.cnblogs.com/net2/archive/2010/08/03/1791478.html

``` % 光伏电池特性仿真(优化版) function PV_Simulation_Optimized() %% 参数配置 [params, Iph_values] = configureParameters(); %% 核心计算 [V, I_matrix] = calculateIVCurves(params, Iph_values); %% 结果可视化 visualizeResults(V, I_matrix, Iph_values); end function [params, Iph_values] = configureParameters() % 电气参数 params.Rs = 0.1; % 串联电阻(Ω) params.Rsh = 100; % 并联电阻(Ω) params.n = 1.5; % 理想因子 params.Vt = 0.026; % 热电压(V) params.maxIter = 15; % 最大迭代次数 params.tol = 1e-8; % 收敛阈值 % 环境参数 Iph_values = [5,4,3,2]; % 光生电流(A) % 预计算常数 params.nVt = params.n * params.Vt; params.Rsh_inv = 1/params.Rsh; params.Rs_nVt = params.Rs / params.nVt; end function [V, I_matrix] = calculateIVCurves(params, Iph_values) % 电压范围设置 V = linspace(0, 1, 101); % 0-1V,101个采样点 numV = length(V); numIph = length(Iph_values); % 预分配内存 I_matrix = zeros(numV, numIph); % 并行计算不同光照条件 parfor k = 1:numIph Iph = Iph_values(k); I_prev = 0; % 初始猜测值 % 向量化电压扫描 current_values = zeros(numV, 1); for idx = 1:numV [current_values(idx), I_prev] = ... solveSinglePoint(V(idx), Iph, I_prev, params); end I_matrix(:,k) = current_values; end end function [Ij, I_prev] = solveSinglePoint(Vj, Iph, I_prev, params) % 牛顿迭代法求解单点电流 Ij = I_prev; % 使用前值初始化 for iter = 1:params.maxIter Vd = Vj + Ij*params.Rs; exp_term = exp(Vd/params.nVt); % 方程残差 f = Ij - Iph + Vd*params.Rsh_inv + Ij*params.Rs_nVt*exp_term; % 雅可比矩阵 df = 1 + params.Rs*params.Rsh_inv + ... params.Rs_nVt*exp_term*(1 + Vd/params.nVt); % 迭代更新 delta = f/df; Ij = Ij - delta; if abs(delta) < params.tol break end end I_prev = Ij; % 更新历史值 end function visualizeResults(V, I_matrix, Iph_values) % 可视化设置 figure('Position',[200 200 800 600], 'Color','w'); % 创建颜色映射 colors = lines(length(Iph_values)); % 绘制曲线 hold on; for k = 1:length(Iph_values) plot(V, I_matrix(:,k), 'LineWidth',2, ... 'Color',colors(k,:), 'DisplayName',sprintf('Iph = %dA',Iph_values(k))); end % 图例设置 xlabel('电压 (V)', 'FontSize',12, 'FontWeight','bold'); ylabel('电流 (A)', 'FontSize',12, 'FontWeight','bold'); title('光伏电池I-V特性曲线', 'FontSize',14); legend('Location','best'); grid on; % 样式优化 set(gca, 'LineWidth',1.5, 'FontSize',11, ... 'XColor',[0.2 0.2 0.2], 'YColor',[0.2 0.2 0.2]); box on; end```代码优化
最新发布
03-08
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值