from HighCorr High Temperature Digital Image Correlation Software by Robert Thompson
Software optimized to measure the coefficient of thermal expansion using digital image correlation.

RJT_master.m
% Code to administer DIC analysis
% Programmed by Rob
% Last revision: 4/2/2007


clear all;
clc;
close(gcf); close(gcf); close(gcf); close(gcf); close(gcf);




% Prompt user for the desired analysis type

selection1 = menu(sprintf('Johns Hopkins University HighCorr CTE Software for Windows\n Version 2.2.3\n\n  Written in Matlab 7.1 (R14) with SP3 by Rob Thompson\n  Copyright 2007\n\n  Click "Aquire Temperature Data" to start temperature data aquisition (DAQ hardware required).\n  Click "Process Images" to begin fullfield digital image correlation (usually requires considerable time).\n  Click "Create Plots" to generate displacement, strain, and CTE plots from the aquired temperature data and image correlation results (usually quite fast).\n  Click "Exit" to safely end the Matlab session.\n'),'Aquire Temperature Data','Process Images','Create Plots','Exit');




% Routine for AQUIRE TEMPERATURE

if selection1 == 1;

    RJT_get_temperature;
end;




% Routine for PROCESS IMAGES

if selection1 == 2;

    selection2 = menu(sprintf('Would you like to generate a list of image filenames\n to be used to load and analyze the corresponding images?\n  If the list has already been correctly created and saved in the image directory, then this step can be skipped.'),'Create List','Skip');

    if selection2 == 1;

        RJT_filelist_generator;
    end;

    selection3 = menu(sprintf('Would you like to generate an array of points\n to be used for fullfield digital image correlation analysis?\n  If the grid has already been correctly created and saved in the image directory, then this step can be skipped.'),'Create Grid','Skip');

    if selection3 == 1;

        RJT_grid_generator;
    end;

    RJT_process_images;
end;




% Routine for CREATE PLOTS

if selection1 == 3;

    RJT_process_results;
end;




% Routine to EXIT Matlab safely

if selection1 == 4;

    exit;
end;

Contact us at files@mathworks.com