开一个卖算法的公司，用vba，如何？

micch

围观人太多搞得帖主都不说话了，本来还想等帖主分享一下的，这种情况看来是没戏了

兰色的回忆

吃瓜群众，坐等各路大神现身说法~~

skiss

算法我不懂，所以不敢说什么，至于超不过或者优不优于其它人，你得发点东西出来看看，毕竟你提到的两位前辈还是有很多东西发出来的。

mythqiu

路过一下。火钳刘明。

Meteor-渣渣

题主昨晚访问了，为什么不来展现一下技术呢？

232670631

鼠标不太行，前几天只是看看。最近遇到情感问题，心灰意冷想死。
清华有个人卖一个算法，20天完成，10万元，所以看到别人，眼馋。
我也一把岁数了，奔四了，学了一年vba，一年c，看不到收益懒得学了。真正的算法还带有机器学习，深度学习，也不知道是什么玩意。
我思考的维度是改进优化算法，无限接近世界最快的，难度可想而知。论坛里的都是业余，和职业相差甚远，就像田忌赛马，厉害的业余人员职业训练后，算个中等水平，哪个资本家愿意掏钱训练。我到目前写的都是一些中下难度的，连中等难度都不算。以后也碰不到那些高难度的。高难度都在美国顶尖科研机构和公司里。
力扣上，只做了20道，懒得做了，各路算法学了，可能有些没学到。双递归难学，10次后才明白原理。自学效率差，有人教就。。。
言归正传，看来开公司不可行。我还是老实上我的班吧。
分享一个代码，没啥意义的不起眼的，法师写过的，用的字典，我比他快了4倍。再的代码不想分享，自私。十六宫格和1,2,3,12,13,23,123排列，比香川快了几十倍。
Sub 随机数之和等于1000()

xx = Timer

v = 100

a = 2

b = 25

s = 1000

t = Int(s / v)

Dim ar

ReDim ar(1 To v, 1 To 1)

For i = v - 1 To 1 Step -1

    If t >= 10 Then

        ar(i, 1) = Int(Rnd() * (b - t) + t)

    Else

        ar(i, 1) = Int(Rnd() * (t - a) + a)

    End If

    s = s - ar(i, 1)

    t = Round(s / i, 0)

Next
If s > 0 Then ar(v, 1) = s Else ar(v - 1, 1) = ar(v - 1, 1) + s - a: ar(v, 1) = a


[a1:a100] = ar

[c1] = Format(Timer - xx, "0.000")

End Sub

opiona

我需要一个 集装箱 多尺寸纸箱 立体装箱的VBA算法

WANT-T

祝工作顺利，天天开心，好人一生平安

aman1516

232670631 发表于 2022-11-7 15:09
鼠标不太行，前几天只是看看。最近遇到情感问题，心灰意冷想死。
清华有个人卖一个算法，20天完成，10万元 ...

一个人、一家公司、年入一个亿！网友：“程序员的梦想！”
https://blog.csdn.net/itcodexy/a ... 1001.2014.3001.5501

40而不惑，应该知道 “人比人，气死人” 的道理吧

aman1516

opiona 发表于 2022-11-7 16:54
我需要一个 集装箱 多尺寸纸箱 立体装箱的VBA算法

+1
我需要一个优化选用多规格大板材（四方形），切割多规格多数量的小板料（四方形）的VBA开料算法