vectorD make_vd(size_t size){
    vectorD vd = {NULL, size, max(size, 100)};
    vd.p = (double*)calloc(vd.capacity, sizeof(double));
    return vd;
}