%% 有用记得点推荐喔
clear all;
clc;
A=xlsread(‘C:\Users\NIGEL\Desktop\绩点计算\绩点计算.xlsx‘,‘sheet1‘,‘B2:C7‘)%读取表格数据，具体起始位置需自己确定
grade=(A(:,1)).‘%取成绩列并转置
xuefen=(A(:,2)).‘%取学分列并转置
k=length(grade(:))%读取数据长度
jidian=[];
for i=1:1:k
jidian(i)=4-3*(((100-grade(i))^2)/1600);% 算法来源：https://wenku.baidu.com/view/4121fc7cb6daa58da0116c175f0e7cd184251807.html
end
GPA=sum(xuefen.*jidian)/25 % GPA计算
下为表格设置，积极随便建一个Excel就行