yutian2009110的专栏

以matlab和python为工具的计算机视觉与深度学习实战代码

基于频率估计的间接式TPMS实现方法。间接式胎压监测虽然存在不能确定故障轮胎 、无法显示数值、车辆静止时不能监测等缺陷，但其在成本上有不可忽视的优势。直接式胎压监测除了传感器成本之外，在安装流程、修理、供电、重置等方面都带来一定操作复杂性。

用遥控器控制小车前进、后退、左转、右转运动来模拟驾驶员的驾驶动作；小车的最前部安装有超声波传感器，用于检测本车与前面障碍物的距离；电路板安装于小车的车架上；原车的后桥驱动电机和转向电机的布置基本不变。本装置的基本原理为：超声波发射端在单片机和前置电路的驱动下工作，接收端的信号经放大整形后在单片机的中断口产生中断，通过发射和接收的时间差计算出小车与障碍物的相对距离，再由单片机实现避障算法，做出判断决策，发出相应的控制指令，然后通过外围硬件电路实现PWM电机调速和转向控制，从而实现模型小车的主动避障。具体实现的过程：传感器实时检测本车与前面障碍物的距离，当此距离小于设定的安全距离时即通过蜂鸣器报警，并主动控制电机适当减速直至停车，当相对距离大于安全距离时方可前进，报警解除，同时LCD显示电路会实时显示当前距离和温度（测量温度的目的在于修正超声波传播速度）。硬件电路部分采用AT89S52单片机作为控制器，主要功能电路有超声波发射电路、超声波接收电路、温度检测电路、电机驱动输出控制电路、无线接收遥控接收电路、LCD显示电路和报警电路。软件部分采用分模块化设计的方法，其优点在于便于调试和查找错误。

直流电机PWM驱动L298 能够实现直流电机的正反转，且能实现PWM调速（经过实测）。

93c46的中文资料！供参考！需要的朋友支持一下！

红外线 控制步进电机C51源程序，单片机是89S51

自己编写的VB程序，请大家多指教！（赚一点积分嘿嘿……） 部分代码如下： Private Sub Command1_Click() k = 1.4 D = Val(Text1.Text) S = Val(Text2.Text) Ne = Val(Text3.Text) nh = Val(Text4.Text) ε = Val(Text5.Text) L = Val(Text6.Text) R = Val(Text7.Text) ge = Val(Text8.Text) P0 = Val(Text13.Text) T0 = Val(Text12.Text) gc = Val(Text9.Text) gh = Val(Text10.Text) go = Val(Text11.Text) mt = Val(Text14.Text) i = Val(Text15.Text) ι = Val(Text16.Text) α = Val(Text38.Text) ξz = Val(Text40.Text) φi = Val(Text41.Text) ηm = Val(Text42.Text) n = Val(Text45.Text) Vh = (S * 0.01) * 3.14 * (D * 0.01) ^ 2 / 4 '排气过程 Pr = 1 + 0.3 * n / nh Tr = 850 + 350 * n / nh Text17.Text = Val(Pr) Text18.Text = Val(Tr) '进气过程 δ = 0.5 ΔT = ΔTh * (110 - 0.0125 * n) / (110 - 0.0125 * nh) Pa = Int(10 ^ 3 * (P0 * (1 - ((10 * n ^ 2 / 520 / 10 ^ 6) / 10.6 ^ 2 / 0.75 ^ 2) * (ε - δ) ^ 2 / (ε - 1) ^ 2) ^ (k / (k - 1)))) / 10 ^ 3 γ = Int(10 ^ 3 * (T0 + ΔT) * Pr / Tr / (ε * Pa - Pr)) / 10 ^ 3 Text44.Text = γ Text19.Text = Pa Ta = (T0 + ΔT + γ * Tr) / (1 + γ) ηv = ε * Pa * T0 / (ε - 1) / P0 / Ta / (1 + γ) Text20.Text = Val(Int(1000 * Ta) / 1000) Text21.Text = Val(Int(1000 * ηv) / 1000) ' 压缩过程 n1 = 1.46 - 0.05 * Nn / n Pc = Pa * ε ^ n1 Tc = Ta * ε ^ (n1 - 1) Text22.Text = Val(Int(1000 * Pc) / 1000) Text23.Text = Val(Int(1000 * Tc) / 1000) '燃烧过程 L0 = (gc / 12 + gh / 4 - go / 32) / 0.21 M1 = α * L0 + 1 / mt Cv1 = (4.815 + 0.415 * 10 ^ (-3) * Tc) * 4.1868 M2 = 0.79 * α * L0 + gh / 2 + gc / 12 A = (3.7 + 3.3 * α) * 10 ^ (-4) * 4.1868 B = (4.4 + 0.62 * α) * 4.1868 μ0 = M2 / M1 μ = (μ0 + γ)

汽车动力性计算 VB源代码 部分代码 Private Sub Command2_Click() '加速度曲线 Label17.Caption = "" Picture1.Cls Picture1.Scale (-12, 3)-(125, -0.3) Picture1.Line (0, 0)-(0, 2.8) Picture1.Line (0, 0)-(120, 0) For j = 1 To 100 For i = 1 To 10 Picture1.Line (0, i * 0.25)-(2, i * 0.25) '取纵坐标刻度线 Picture1.Line (i * 10, 0.04)-(i * 10, 0) '取横坐标刻度线 Picture1.Line (1.5 - j * 0.015, 2.65)-(0, 2.8) '画纵坐标箭头 Picture1.Line (-1.5 + j * 0.015, 2.65)-(0, 2.8) Picture1.Line (120, 0)-(114, 0.05 - j * 0.0005) '画横坐标箭头 Picture1.Line (120, 0)-(114, -0.05 + j * 0.0005) Picture1.CurrentX = -4: Picture1.CurrentY = -0.02: Picture1.Print 0 Picture1.CurrentX = -10: Picture1.CurrentY = i * 0.25 + 0.02: Picture1.Print i * 0.25 '读取纵坐标刻度线数值 Picture1.CurrentX = 16: Picture1.CurrentY = 2.7: Picture1.Print "a / (m/s)" Picture1.CurrentX = 10 * i - 7: Picture1.CurrentY = -0.05: Picture1.Print i * 10 '读取纵坐标刻度线数值 Picture1.CurrentX = 103: Picture1.CurrentY = -0.05: Picture1.Print "Ua/(Km / h)" Next i Next j For i = 1 To 5 Ff = 0: ft = 0: a = 0: Ua = 0 If i = 1 Then Ig = 5.56: Uamax = 0.377 * r * Nmax / (Ig * io): Uamin = 0.377 * r * Nmin / (Ig * io) If i = 2 Then Ig = 2.769: Uamax = 0.377 * r * Nmax / (Ig * io): Uamin = 0.377 * r * Nmin / (Ig * io) If i = 3 Then Ig = 1.644: Uamax = 0.377 * r * Nmax / (Ig * io): Uamin = 0.377 * r * Nmin / (Ig * io) If i = 4 Then Ig = 1: Uamax = 0.377 * r * Nmax / (Ig * io): Uamin = 0.377 * r * Nmin / (Ig * io) If i = 5 Then Ig = 0.793: Uamax = 0.377 * r * Nmax / (Ig * io): Uamin = 0.377 * r * Nmin / (Ig * io) Ff = M3 * 9.8 * f + CDA * Ua * Ua / 21.15 For Ua = Uamin To Uamax Step 0.01 n = Ua * io * Ig / (0.377 * r) tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4 ft = tq * Ig * io * Nt / r δ = 1 + (Iw1 + Iw2 + Iff) / (M3 * r ^ 2) + Iff * Ig ^ 2 * io ^ 2 * Nt / (M3 * r ^ 2) a = (ft - Ff) / (M3 * δ) If a > 0 Then Picture1.PSet (Ua, a), RGB(100 + i ^ 2 * 6 - 15 * i, i ^ 2 * 15 - i * 5, i ^ 4 / 4 + 10) Next Ua Next i

proteus 7.4破解及汉化文件,此破解比较稳定！！！！！

multisim10破解补丁,破解比较彻底！